<%@ Language=VBScript %>
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmuser")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef Then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif" onClick="ShowDtable(1,6)"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" onClick="ShowDtable(1,6)" style="FONT-WEIGHT: bolder; Cursor:hand"  id="tableTop1"><font color="#FFFFFF">查找用户</font><br></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg"  onClick="ShowDtable(2,6)" id="tableTop2" style="Cursor:hand"><font color="#FFFFFF">重设密码<br>
            </font> </td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg"  onClick="ShowDtable(3,6)"  id="tableTop3" style="Cursor:hand"><font color="#FFFFFF">产品转移<br>
            </font> </td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg"  onClick="ShowDtable(4,6)"  id="tableTop4" style="Cursor:hand"><font color="#FFFFFF">代理转移<br>
            </font> </td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="60" align="center" valign="middle" background="img/r3.jpg"  onClick="ShowDtable(5,6)"  id="tableTop5" style="Cursor:hand"><font color="#FFFFFF">切换身份<br>
          </font> </td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="60" align="center" valign="middle" background="img/r3.jpg"  onClick="ShowDtable(6,6)"  id="tableTop6" style="Cursor:hand"><font color="#FFFFFF">综合管理<br>
          </font> </td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif"  id=rightid>&nbsp;</TD>
      <TD height="462" align="center" vAlign=top background="contopa.gif" bgcolor="#FFFFFF">
	  <form action="searchuser.asp" method="get" name="formSa" target="iframeFreeHost">
        <table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table1">
          <tr>
            <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
            <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="8" colspan="3"></td>
                </tr>
                <tr>
                  <td width="25">&nbsp;</td>
                  <td align="left" valign="top"><font color="#FFFFFF"><strong>查找用户</strong></font></td>
                  <td width="10">&nbsp;</td>
                </tr>
            </table></td>
            <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
          </tr>
          <tr>
            <td background="img/conmid1.gif">&nbsp;</td>
            <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="10" colspan="3"></td>
                </tr>
                <tr>
                  <td width="25" height="50">&nbsp;</td>
                  <td height="50" align="left">用户名：
                      <input name="username" type="text" size="10">
            模糊搜索：
            <input name="like" type="checkbox" id="like" value="y">
            <br>
            或姓名（中文）：
            <input name="truename" type="text" id="truename" size="6" maxlength="10">
            <br>
            或Email：
            <input name="email" type="text" id="email">
            或QQ：
            <input name="qq" type="text" id="qq" size="10">
            <br>
            或电话：
            <input name="tel" type="text" id="tel" size="15">
或身份证号码：
<input name="perid" type="text" id="perid" size="10">
<br>
或注册IP：
<input name="regip" type="text" id="regip" size="15">
或备注：
<input name="coreinfo" type="text" id="coreinfo" size="10">
<br>
或手机：
<input name="mobi" type="text" id="mobi" size="15">
<input type="submit" name="Submit" value="执行" onClick="actionbut(1)">
            　　
            <input type="button"  name="Submit" value="新窗口执行" onClick="javascript:window.document.formSa.target='_blank';document.formSa.submit();"></td>
                  <td width="10" height="50">&nbsp;</td>
                </tr>
                <tr>
                  <td colspan="3">&nbsp;</td>
                </tr>
            </table></td>
            <td width="10" background="img/conmid2.gif">&nbsp;</td>
          </tr>
          <tr>
            <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
            <td height="10" background="img/conend2.gif"></td>
            <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
          </tr>
        </table>
	  </form>
<form action="resetpassword.asp" method="post" name="form1" target="iframeFreeHost">
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table2" style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>重新设置用户登陆密码</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left">用户名：
            <input name="username" type="text" size="20">
新密码：
<input name="password" type="text" size="20">
<input type="submit" name="Submit" value="执行" onClick="actionbut(2)"></td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>
</form>


<form action="changeproductuser.asp" method="post" name="form1" target="iframeFreeHost">
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table3" style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>将一个用户名下的所有产品转移到另一个用户名下</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left">原有用户名：
            <input name="username" type="text" size="20">
新用户名：
<input name="newusername" type="text" id="newusername" size="20">
<input type="submit" name="Submit" value="执行" onClick="actionbut(3)"></td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>
</form>


<form action="changeuseragent.asp" method="post" name="form1" target="iframeFreeHost">
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table4" style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>将一个用户转移到另一个代理名下</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left">用户名：
            <input name="username" type="text" size="20">
指定所属代理名：
<input name="agent1" type="text" id="agent1" size="20">
<input type="submit" name="Submit" value="执行" onClick="actionbut(4)">
<br>
　(如果代理名为空，将取消这个这个用户所属的代理，用户将成为主站名下用户)</td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>
</form>


<form action="/user/changeuser.asp" method="post" name="form1">
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table5"  style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>切换身份</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left">用以下身份进入网站　用户名：
            <input name="username" type="text" size="20">
            <input type="submit" name="Submit" value="执行" onClick="actionbut(5)"></td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>
</form>



<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table6" style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>群发邮件</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left"><strong><a href="/user/register2.asp" target="_blank"><font color="#000000">注册新用户>>></font></a></strong><br>
            <br>
            <strong><a href="admuserlistuser.asp?op=all" target="iframeFreeHost" ><font color="#000000">列出所有用户>>></font></a></strong><br>
            <br>
			<%If Application("mustcheckid")=True Then%>
                  <strong><a href="admuserlistuser.asp?op=mustcheckid" target="iframeFreeHost" ><font color="#000000">列出所有资料待审核用户>>></font></a></strong><br>
            <br>
      <%end if%>
			
            <strong><a href="admuserlistuser.asp?op=noactive" target="iframeFreeHost" ><font color="#000000">列出所有没有通过验证的用户>>>(当系统参数中设置了邮箱激活本功能才有效)</font></a></strong><br>
            <br>
            <strong><a href="admuserlistuser.asp?op=notzero" target="iframeFreeHost" ><font color="#000000">列出所有金额不为零的用户>>></font></a></strong><br>
            <br>
            <strong><a href="admuserlistuser.asp?op=zero" target="iframeFreeHost" ><font color="#000000">列出所有金额为零的用户>>></font></a></strong> <br>
            <br>
            <strong><a href="admuserlistuser.asp?op=notnor" target="iframeFreeHost" ><font color="#000000">列出所有金额为负的用户>>></font></a></strong> <br>
            <br>
            <strong><a href="gemail.asp?type=user&da=all"><font color="#000000">群发邮件给所有用户>>></font></a></strong> <br>
			<br>
            <strong><a href="gemail.asp?type=user&da=all&pdtype=host"><font color="#000000">群发邮件给所有虚拟主机用户>>></font></a></strong> <strong><a href="gemail.asp?type=user&da=notagent&pdtype=host"><font color="#000000">主站名下>>></font></a></strong>　<strong><a href="gemail.asp?type=user&da=agent&pdtype=host"><font color="#000000">代理名下>>></font></a></strong><br>
            <br>
        <strong><a href="gemail.asp?type=user&da=all&pdtype=domain"><font color="#000000">群发邮件给所有域名用户>>></font></a></strong> <strong><a href="gemail.asp?type=user&da=notagent&pdtype=domain"><font color="#000000">主站名下>>></font></a></strong>　<strong><a href="gemail.asp?type=user&da=agent&pdtype=domain"><font color="#000000">代理名下>>></font></a></strong><br>

            <br>
            <strong><a href="gemail.asp?type=user&da=notagent"><font color="#000000">群发邮件给所有不是代理名下的用户>>></font></a></strong> <br>
<form action="gemail.asp" method="get" name="form1">			
            <strong>群发邮件/短信给特定虚拟主机服务器上的用户：</strong>
            <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
服务器列表为空.
<%else%>
<select name="ServerlistID" id="ServerlistID">
  <%while not dsX.Eof%>
  <option value="<%=dsX("id")%>" <%if dsX("id")=ServerlistID then

  %>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%></option>
  <br>
  <%
dsX.movenext
wend%>
</select>
<input type="hidden" name="type" value="server">
<input type="hidden" name="da" value="server">
<select name="userfor">
  <option value="all">这台服务器上全部用户</option>
  <option value="main">这台服务器上主站名下用户</option>
  <option value="agn">这台服务器上代理名下用户</option>
</select>
<input type="submit" name="Submit" value="执行群发邮件" onClick="actionbut(6)">
<input type="submit" name="Submit" value="执行群发短信" onClick="actionbut(6)">
<%end if%>
</form>
<br><br>

<form action="gemail.asp" method="get" name="form1">
            <strong>群发邮件/短信给特定云服务器上的用户：</strong>
            <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerVPSlist order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
服务器列表为空.
<%else%>
<select name="ServerlistIDvps" id="ServerlistID">
  <%while not dsX.Eof%>
  <option value="<%=dsX("id")%>" <%if dsX("id")=ServerlistID then

  %>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%></option>
  <br>
  <%
dsX.movenext
wend%>
</select>
<input type="hidden" name="typevps" value="server">
<input type="hidden" name="davps" value="server">
<select name="userforvps">
  <option value="all">这台服务器上全部用户</option>
  <option value="main">这台服务器上主站名下用户</option>
  <option value="agn">这台服务器上代理名下用户</option>
</select>
<input type="submit" name="Submit" value="执行群发云服务器邮件" onClick="actionbut(6)">
<input type="submit" name="Submit" value="执行群发云服务器短信" onClick="actionbut(6)">
<br>
<%end if%>
</form>

</td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>


<iframe name="iframeFreeHost" width="0" height="0" scrolling="no"></iframe>
<table width="98%"  border="0" cellspacing="0" cellpadding="0" id="table0" style="display:none">
  <tr>
    <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
    <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="8" colspan="3"></td>
        </tr>
        <tr>
          <td width="25">&nbsp;</td>
          <td align="left" valign="top"><font color="#FFFFFF"><strong>执行结果</strong></font></td>
          <td width="10">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="img/conmid1.gif">&nbsp;</td>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" colspan="3"></td>
        </tr>
        <tr>
          <td width="25" height="50">&nbsp;</td>
          <td height="50" align="left" id=outconM>正在提交数据中.........</td>
          <td width="10" height="50">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="img/conmid2.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
    <td height="10" background="img/conend2.gif"></td>
    <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
  </tr>
</table>


</TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>


