<%@ 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_SqlProductlist 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") Sqltype=ds("Sqltype") usermoney=ds("usermoney") Sqlcount=ds("Sqlcount") ServerlistID=ds("ServerlistID") userspacelimt=ds("userspacelimt") logspacelimt=ds("logspacelimt") info=ds("info") infomore=ds("infomore") isbyhost=ds("isbyhost") Hosttype=ds("Hosttype") cantest=ds("cantest") end if %>

<%=ds("id")%>.<%=ds("Sqltype")%>	数据库文件上限<%=ds("userspacelimt")%>M　数据库日志文件上限<%=ds("logspacelimt")%>M　 <%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%> <%if ds("isbyhost")="y" then%> 由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%> <%end if%>	#m">修改
	简要说明: <%=ds("info")%>

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

<%=ds("id")%>.<%=Sqltypenew%>	数据库文件上限<%=ds("userspacelimt")%>M　数据库日志文件上限<%=ds("logspacelimt")%>M　 <%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语法) <%if session("canmyserver")="y" then%> 　独立服务器模式时此产品所用的服务器： <% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerSqllist 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%>