<%@ Language=VBScript %> <%GetChannel("虛擬主機(jī)")%> "/> "/> <% agentname=session("agentname") if session("agentusername")<>"" Or session("AgnRunasUser")=True then if session("agentusername")<>"" Then agentname=session("agentusername") Set dsagent = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where username='"&agentname&"'" dsagent.Open Sql,conn,1,1 if Not dsagent.eof then Set dsagnettype = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_pers where agenttype='"&dsagent("agenttype")&"'" dsagnettype.Open Sql,conn,1,1 if Not dsagnettype.eof Then canshowagnpric=True Else canshowagnpric=false End if end If dsagent.close end If %>

91精品久久久久|囯产目拍亚洲精品欧美|午夜男女视频一区二区|不卡在线亚洲一区二区三区|99在线精品一区二区三区|婷婷丁香五月综合开心久久|精品视频一区二区三区免费观看|日本精品视频一区二区在线观看

虛擬主機(jī) Virtual Host
虛擬主機(jī)類型
迅捷數(shù)據(jù)中心圖標(biāo) 基本型虛擬主機(jī)

迅捷數(shù)據(jù)中心圖標(biāo) 基本A型

迅捷數(shù)據(jù)中心圖標(biāo) 基本B型

迅捷數(shù)據(jù)中心圖標(biāo) 基本C型


迅捷數(shù)據(jù)中心圖標(biāo) 增強(qiáng)型虛擬主機(jī)


迅捷數(shù)據(jù)中心圖標(biāo) 增強(qiáng)A型

迅捷數(shù)據(jù)中心圖標(biāo) 增強(qiáng)B型
迅捷數(shù)據(jù)中心圖標(biāo) 增強(qiáng)C型

迅捷數(shù)據(jù)中心圖標(biāo) 商務(wù)型虛擬主機(jī)


迅捷數(shù)據(jù)中心圖標(biāo) 商務(wù)A型

迅捷數(shù)據(jù)中心圖標(biāo) 商務(wù)B型

迅捷數(shù)據(jù)中心圖標(biāo) 商務(wù)C型


迅捷數(shù)據(jù)中心圖標(biāo) 網(wǎng)店型虛擬主機(jī)

迅捷數(shù)據(jù)中心圖標(biāo) 網(wǎng)店A型

 迅捷數(shù)據(jù)中心圖標(biāo) 網(wǎng)店B型

迅捷數(shù)據(jù)中心圖標(biāo) 網(wǎng)店C型

迅捷數(shù)據(jù)中心圖標(biāo) 尊貴型虛擬主機(jī)

迅捷數(shù)據(jù)中心圖標(biāo) 尊貴A型

迅捷數(shù)據(jù)中心圖標(biāo) 尊貴B型

迅捷數(shù)據(jù)中心圖標(biāo) 尊貴C型
迅捷數(shù)據(jù)中心圖標(biāo)
<% ' aXinNo1 主要功能是模糊查詢 Set rshost=Server.CreateObject("ADODB.Recordset") sql="Select * from FreeHost.FreeHost_HostProductlist where serverlistid=1 and hosttype like '%型' order by orderbyid desc" rshost.open sql,conn,1,1 For i=1 to rshost.RecordCount if not rshost.eof then %> <% usermoney=rshost("usermoney") if agentname<>"n" then Set dsendmoney = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_user_price where prtype='虛擬主機(jī)' and username='"&agentname&"' and id="&rshost("id")&"" dsendmoney.Open Sql,conn,1,1 if not dsendmoney.eof then usermoney=dsendmoney("usermoney") end if dsendmoney.close end if %>
<%=rshost("hosttype")%> 迅捷數(shù)據(jù)中心圖標(biāo)
<%=rshost("info")%>
<% if i mod 3=0 and i<>rshost.RecordCount then response.Write("
") End if %> <% rshost.movenext End if next rshost.close Set rshost=nothing %>