<%@ 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_EmailProductlist 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") Emailtype=ds("Emailtype") usermoney=ds("usermoney") emailcount=ds("emailcount") 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") end if %>

<%=ds("id")%>.<%=ds("Emailtype")%>	邮箱数量:<%=ds("emailcount")%> 单个邮箱大小<%=ds("userspacelimt")%>M　域大小<%=ds("domainspacelimt")%>M <%if ds("cantest")="y" then%> 可以试用 <%else%> 不可以试用 <%end if%> <%if ds("isbyhost")="y" then%> 由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%> <%end if%>	#m">修改
	简要说明: <%=ds("info")%>

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

<%=ds("id")%>.<%=Emailtypenew%>	邮箱数量:<%=ds("emailcount")%> 单个邮箱大小<%=ds("userspacelimt")%>M　域大小<%=ds("domainspacelimt")%>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_ServerEmaillist 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%>