<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　名下用户管理
<%=htmlwrite("html6")%>
			<form action="searchuser.asp" method="get" name="form1">
			  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
                <tr bgcolor="#CCCCCC">
                  <td colspan="2"><strong>　查询用户：</strong></td>
                  <td width="70%">&nbsp;</td>
                </tr>
              </table>
			  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
                <tr>
                  <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
                          <input name="username" type="text" size="10">
          或姓名（中文）：
          <input name="truename" type="text" id="truename">
          或QQ：
            <input name="qq" type="text" id="qq" size="10">
            <br>
          　或手机：
          <input name="mobi" type="text" id="mobi" size="15">
          或Email：
          <input name="email" type="text" id="email">
          或电话：
            <input name="tel" type="text" id="tel" size="10">
<input type="submit" name="Submit" value="执行">
                  </p></td>
                </tr>
              </table>
</form>
			<form action="resetpassword.asp" method="post" name="form1">
              <strong></strong>
              <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
                <tr bgcolor="#CCCCCC">
                  <td colspan="2" bgcolor="#CCCCCC"><strong>　<font color="#000000">重新设置用户登陆密码：</font></strong></td>
                  <td width="70%">&nbsp;</td>
                </tr>
              </table>
              <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
                <tr>
                  <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
                          <input name="username" type="text" size="20">
          新密码：
          <input name="password" type="text" size="20">
          <input type="submit" name="Submit222" value="执行">
                  </p></td>
                </tr>
              </table>
</form>
<form action="/user/changeuseragn.asp" method="get" name="form1">		
            <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
              <tr bgcolor="#CCCCCC">
                <td bgcolor="#CCCCCC"><strong>　<font color="#000000">切换身份(可以用代理自己的代理名进入来开通业务)：</font></strong></td>
              </tr>
            </table>
            <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
              <tr>
                <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用以下身份进入网站　用户名：
                    <input name="username" type="text" size="20">
<input type="submit" name="Submit222" value="执行"> 　
<a href="/user/changeuseragn.asp">直接用自己的身份进入&gt;&gt;&gt;</a></p></td>
              </tr>
            </table>

</form>
			 <form action="setmailfrom.asp" method="post" name="form1">
<%
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
%>			 
               <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
                 <tr bgcolor="#CCCCCC">
                   <td><strong>　设置名下的用户开通信中的邮件发件人及相关信息：</strong></td>
                 </tr>
               </table>
               <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
                 <tr>
                   <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　发件人称呼:
                           <input name="MailfromName" type="text" value="<%=dsregagn("MailfromName")%>">
          例如：XX公司<br>
          　发件人邮箱:
          <input name="Mailfrom" type="text"  value="<%=dsregagn("Mailfrom")%>">
          例如：123456@qq.com<br>
          　邮箱的密码:
          <input name="MailfromPass" type="password"  value="<%=dsregagn("MailfromPass")%>">
          <br>
          　邮箱服务器:
          <input name="MailfromServer" type="text"  value="<%=dsregagn("MailfromServer")%>">
          例如：smtp.qq.com<br>
          　邮箱的端口:
          <input name="Mail_emailport" type="text"  value="<%=dsregagn("emailport")%>" size="3" maxlength="10">
默认是25,QQ邮箱要用465<br>
　邮件服务器是否启用SSL加密：
  <input type="radio" name="Mail_EnableSsl" value="0" <%if dsregagn("EnableSsl")=false then%>checked<%end if%>>
否(默认) 　　
<input type="radio" name="Mail_EnableSsl" value="1" <%if dsregagn("EnableSsl")=true then%>checked<%end if%>>
是 （QQ邮箱等要选是）<br><br>

　邮件的结束信息<br>
          　
          <textarea name="emailendmessage" cols="60" rows="10" id="emailendmessage"><%=dsregagn("emailendmessage")%></textarea>
          <input type="submit" name="Submit" value="执行">
      　　<br>
      <br>
</p></td>
                 </tr>
               </table>
</form>
			 <strong><a href="/user/register2.asp" target="_blank"><font color="#000000">注册名下新用户>>></font></a></strong><br>
			 <br>			 
			 <strong><a href="admuserlistuser.asp?op=all"><font color="#000000">列出所有名下用户>>></font></a></strong><br>
			 <br>
			 <strong><a href="admuserlistuser.asp?op=notzero"><font color="#000000">列出所有金额不为零的用户>>></font></a></strong>			 <br>
            <br>
            <strong><a href="admuserlistuser.asp?op=waitmoney"><font color="#000000">等待处理的网上支付成功但未入帐用户>>></font></a></strong><br>
            <br>
            <strong><a href="admuserlistuser.asp?op=zero"><font color="#000000">列出所有金额为零的用户>>></font></a></strong>
<p><strong><a href="gemail.asp?type=user&da=all"><font color="#000000">群发邮件给所有用户>>></font></a></strong> <br>
  <br>
  <br>
</p>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
