<%@ 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")%>
　查询用户：  

　用户名： 或姓名（中文）： 或QQ：
　或手机： 或Email： 或电话：

　重新设置用户登陆密码：  

　用户名： 新密码：

　切换身份(可以用代理自己的代理名进入来开通业务)：

　用以下身份进入网站　用户名： 　 直接用自己的身份进入>>>
<% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsregagn = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'" dsregagn.Open Sql,conn,1,1 %>
　设置名下的用户开通信中的邮件发件人及相关信息：

　发件人称呼: "> 例如：XX公司
　发件人邮箱: "> 例如：123456@qq.com
　邮箱的密码: ">
　邮箱服务器: "> 例如：smtp.qq.com
　邮箱的端口: " size="3" maxlength="10"> 默认是25,QQ邮箱要用465
　邮件服务器是否启用SSL加密： checked<%end if%>> 否(默认) 　　 checked<%end if%>> 是 （QQ邮箱等要选是）

　邮件的结束信息
　 　　
注册名下新用户>>>

列出所有名下用户>>>

列出所有金额不为零的用户>>>

等待处理的网上支付成功但未入帐用户>>>

列出所有金额为零的用户>>>

群发邮件给所有用户>>>


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