<%@ 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_VPSProductlist 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") vpstype=ds("vpstype") usermoney=ds("usermoney") ServerlistID=ds("ServerlistID") info=ds("info") infomore=ds("infomore") vpstype=ds("vpstype") cantest=ds("cantest") end if %>

<%=ds("id")%>.<%=ds("vpstype")%>	虚拟硬盘上限<%=ds("maxspace")%>M　内存上限<%=ds("Maxram")%>M　CPU个数<%=ds("cpunum")%>个　 <%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%>	#m">修改
	简要说明: <%=ds("info")%>

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

<%=ds("id")%>.<%=vpstypenew%>	虚拟硬盘上限<%=ds("maxspace")%>M　内存上限<%=ds("Maxram")%>M　CPU个数<%=ds("cpunum")%>个　 <%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_ServerVPSlist 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%>