<%@ 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 %>

免费av毛片不卡无码|久久中文字幕无码少妇|97国产品香蕉在线观看|久久综合97丁香色香蕉|福利进入入口成人在线免费|日韩中文字幕精品免费一区|2017最新理论电影在线|国精品无码一区二区三区在线观看

虛擬主機(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 %>