<%@ 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_OtherProductlist 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") Othertype=ds("Othertype") usermoney=ds("usermoney") Othercount=ds("Othercount") ServerlistID=ds("ServerlistID") userspacelimt=ds("userspacelimt") info=ds("info") infomore=ds("infomore") domainspacelimt=ds("domainspacelimt") isbyhost=ds("isbyhost") Hosttype=ds("Hosttype") cantest=ds("cantest") domainmustsame=ds("domainmustsame") remindinfo=ds("remindinfo") end if %>

<%=ds("id")%>.<%=ds("Othertype")%>	<%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%> <%if ds("isbyhost")="y" then%> 由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%> <%end if%>	#m">修改
	简要说明: <%=ds("info")%>

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

<%=ds("id")%>.<%=Othertypenew%>	<%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%> <%if ds("isbyhost")="y" then%> 由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%> <%end if%>	#m">修改
	简要说明: <%=infonew%>

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

修改产品名与相关介绍：

序　　号：　<%=id%> 　产品　名： 　简要说明： <%=info%> (可以用html语法) 　详细说明： <%=infomore%> (可以用html语法) 　提示信息： <%=remindinfo%> (用户在申请开通前看到)

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