<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%> 　虚拟主机产品 <%session("FreeHostCom").FreeHost_WR("html6")%> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HostProductlist where canbyagn='y' and (onlyusebyagn is null or onlyusebyagn='"&session("agentusername")&"') order by orderbyid desc" ds.Open Sql,conn,1,1 If ds.Eof Then%> 产品列表为空. <%else while not ds.Eof if Request.QueryString ("id")=Cstr(ds("id")) then id=ds("id") Hosttype=ds("Hosttype") usermoney=ds("usermoney") MaxConnections=ds("MaxConnections") ServerlistID=ds("ServerlistID") spacelimt=ds("spacelimt") info=ds("info") infomore=ds("infomore") AppPoolnum=ds("AppPoolnum") html=ds("html") asp=ds("asp") aspx=ds("aspx") php=ds("php") cgi=ds("cgi") jsp=ds("jsp") cantest=ds("cantest") end if %> 原名称：

<%=ds("id")%>.<%=ds("Hosttype")%>	大小限制:<%=ds("spacelimt")%>M　 <%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%>	#m">修改
	简要说明: <%=ds("info")%>

<% Set newname_host = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HostProductlist_AGN where agent1='"&session("agentusername")&"' and id='"&ds("id")&"'" newname_host.Open Sql,conn,1,1 if not newname_host.eof then Hosttypenew=newname_host("Hosttype") infonew=newname_host("info") infomorenew=newname_host("infomore") if Request.QueryString ("id")=Cstr(ds("id")) then ServerlistID=newname_host("ServerlistID") Hosttype=newname_host("Hosttype") info=newname_host("info") infomore=newname_host("infomore") end if %> 新名称：

<%=ds("id")%>.<%=Hosttypenew%>	大小限制:<%=ds("spacelimt")%>M　 <%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%>	#m">修改
	简要说明: <%=infonew%>

<%end if%> <% ds.movenext wend end if%>
<%if id<>"" then%>

修改产品名与相关介绍：

序　　号：　<%=id%> 　产品　名： 　简要说明： <%=info%> (可以用html语法) 　详细说明： <%=infomore%> (可以用html语法) <%if session("canmyserver")="y" then%> 　独立服务器模式时此产品所用的服务器： <% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serverlist where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id asc" dsX.Open Sql,conn,1,1 If dsX.Eof Then%> 服务器列表为空. <%else%> 使用平台默认 <%while not dsX.Eof%> " <%if ServerlistID=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%> <% dsX.movenext wend%> <%end if%> <%end if%>

<%end if %> <%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>