<%@ Language=VBScript %> <%GetChannel("虚拟主机")%> <%=ReadMe %> <% 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 %>
虚拟主机 Virtual Host
虚拟主机类型
迅捷数据中心图标 基本型虚拟主机

迅捷数据中心图标 基本A型

迅捷数据中心图标 基本B型

迅捷数据中心图标 基本C型


迅捷数据中心图标 增强型虚拟主机


迅捷数据中心图标 增强A型

迅捷数据中心图标 增强B型
迅捷数据中心图标 增强C型

迅捷数据中心图标 商务型虚拟主机


迅捷数据中心图标 商务A型

迅捷数据中心图标 商务B型

迅捷数据中心图标 商务C型


迅捷数据中心图标 网店型虚拟主机

迅捷数据中心图标 网店A型

 迅捷数据中心图标 网店B型

迅捷数据中心图标 网店C型

迅捷数据中心图标 尊贵型虚拟主机

迅捷数据中心图标 尊贵A型

迅捷数据中心图标 尊贵B型

迅捷数据中心图标 尊贵C型
虚拟主机类型


迅捷数据中心图标 中国电信机房

迅捷数据中心图标 珠海电信机房

迅捷数据中心图标 广州超级数据港1U托管

迅捷数据中心图标 东莞电信IDC机房

迅捷数据中心图标 深圳电信IDC机房

迅捷数据中心图标 中山电信IDC机房

迅捷数据中心图标 苏州电信IDC机房

迅捷数据中心图标 中国联通（网通）机房

迅捷数据中心图标 广州网通IDC机房

迅捷数据中心图标 深圳网通IDC机房

迅捷数据中心图标 双线机房

迅捷数据中心图标 北京双线IDC机房

迅捷数据中心图标 深圳双线IDC机房

迅捷数据中心图标 广州双线IDC机房

 

迅捷数据中心图标 香港机房


迅捷数据中心图标 香港HKNET机房

迅捷数据中心图标 香港新世界电讯机房

迅捷数据中心图标 香港PACNET机房

迅捷数据中心图标 香港互联通机房


迅捷数据中心图标
<% ' 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='虚拟主机' 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")%> 迅捷数据中心图标
<%=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 %>