<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%on error resume next
 
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf RegExpTest("[^A-Za-z0-9]",Request.QueryString ("username")) Then
	ef=True
	ec="用户名中有非法字符！"
ElseIf RegExpTest("[^A-Za-z0-9]",Request.QueryString ("ftpname")) Then
	ef=True
	ec="FTP名中有非法字符！"	
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="产品ID应该是数字！"
elseIf session("canadmhostset")="" and session("canadmhost")="" and session("canadmhostch")="" and session("canadmhostmidsub")="" and session("canadmhostmiddomain")="" and session("canadmhostmidcpu")="" and session("canadmhostmidrepay")="" and session("canadmhostdel")=""  and session("canadmhostoth")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if

if not ef then
hostname=trim(replace(Request("hostname"),"http://",""))
if hostname<>"" then hostname=ComX.idntoac_7i24_com(cstr(hostname))
hostnamecheck=replace(hostname,".","")
hostnamecheck=replace(hostnamecheck,"xn--","")
If RegExpTest("[^A-Za-z0-9--]",hostnamecheck) Then
	ef=True
	ec="请输入合法的域名！"
end if
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsph = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&Request.QueryString ("username")&"'"
if Request.QueryString ("id") <>"" then Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&Request.QueryString ("id")&"'"
if Request.QueryString ("ftpname") <>"" then Sql="Select * from FreeHost.FreeHost_Product_Host where ftpname='"&Request.QueryString ("ftpname")&"'"
if Request.QueryString ("hostname")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Host where hostname like '%"&ComX.idntoac_7i24_com(cstr(hostname))&"%'"
if Instr(1,sql, ";", 1)>0 or Instr(1,replace(sql,"xn--",""), "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsph.Open Sql,conn,1,1
if dsph.Eof then
	ef=True
	ec="此用户并没有开通虚拟主机！"
end if
end if

if not ef Then
subweb=0
domaincount=0
Maxbytes=0
CDNMaxMb=0
If Request.QueryString ("id") <>"" Or Request.QueryString ("hostname") <>"" Or Request.QueryString ("ftpname") <>"" Then

CDNMaxMb=dsph("CDNMaxMb")

spacelimt=dsph("spacelimt")
Maxbytes=CDbl(CDbl(dsph("Maxbytes"))/1024/1024)
MaxCPU=CDbl(CDbl(dsph("MaxCPU"))/8640000/5)

vdomains=dsph("vdomains")
allowdomain=dsph("allowdomain")
vdomains=dsph("vdomains")
nemails=dsph("nemails")
nemailf=dsph("nemailf")
nemailml=dsph("nemailml")
nemailr=dsph("nemailr")
mysql=dsph("mysql")
domainptr=dsph("domainptr")
ftp=dsph("ftp")
aftp=dsph("aftp")
spam=dsph("spam")
catchall=dsph("catchall")
ssl=dsph("ssl")
ssh=dsph("ssh")
cron=dsph("cron")
sysinfo=dsph("sysinfo")
dnscontrol=dsph("dnscontrol")
suspend_at_limit=dsph("suspend_at_limit")
packagename=dsph("packagename")

starttime=dsph("starttime")
endtime=dsph("endtime")
repaymoney=dsph("repaymoney")
corewhat=dsph("corewhat")
canrecypool=dsph("canrecypool")
pausereason=dsph("pausereason")
canchnetver=dsph("canchnetver")
notuserar=dsph("notuserar")
netver=dsph("netver")
subweb=dsph("subweb")
domaincount=dsph("domaincount")
pauseinfo=dsph("pauseinfo")
ServerlistID=dsph ("ServerlistID")

If dsph ("hosttype")<>"子目录绑定" then
	Set dspdl = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HostProductlist where Hosttype='"&dsph ("hosttype")&"'"
		dspdl.Open Sql,conn,1,1
If dspdl.Eof Then
	ef=True
	ec="不存在的产品类型！"
Else
'读取月付
PAY_Month=dspdl("PAY_Month")
PAY_Season=dspdl("PAY_Season")
PAY_halfyear=dspdl("PAY_halfyear")
PAY_Nextyear=dspdl("PAY_Nextyear")
PAY_2year=dspdl("PAY_2year")
PAY_3year=dspdl("PAY_3year")
PAY_4year=dspdl("PAY_4year")
PAY_5year=dspdl("PAY_5year")
end If
End if
else
starttime="2007-7-24"
endtime="2008-7-24"
End if
end if

if not ef then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_USER where username='"&dsph ("username")&"'"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
		ds.Open Sql,conn,1,1
if ds.eof then
	ef=True
	ec="用户不存在!"
end if
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"><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" id="tableTop1" style="Cursor:hand" onClick="t1.style.display='';"><a href="admhost.asp"><font color="#FFFFFF">主机管理</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</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="300" align="center" vAlign=top bgcolor="#FFFFFF">
	    <table width="98%" border="0" cellpadding="2" cellspacing="1" bgcolor="#C8DAFF">
          <tr height="24">
            <td width="13%" align="right" bgcolor="#ECF2FF"> 用户名：</td>
            <td width="87%" align="left" bgcolor="#FAFAFA">　<%=ds("username")%> 　 <a href="javascript:document.formTop.action='/user/changeuser.asp';document.formTop.username.value='<%=ds("username")%>';document.formTop.submit();"><font color="#000000">切换成此用户角色>>>(用户区点注销会自动退回管理区)</font></a> </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 金额：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("usermoney")%> 　</td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 电子邮件：</td>
            <td align="left" bgcolor="#FAFAFA">　<a href=mailto:<%=ds("email")%>><font color="#000000"><%=ds("email")%></font></a> 　<a href="emailone.asp?email=<%=ds("email")%>&title=<%=ds("username")%>用户您好" target="_blank">发邮件给这个用户&gt;&gt;&gt;</a></td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> QQ：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("qq")%> 　<a href="tencent://message/?uin=<%=ds("qq")%>&Site=<%=Request.ServerVariables("SERVER_NAME")%>&Menu=yes" title="发送即时消息给用户"" target="_blank">发送即时消息给用户&gt;&gt;</a>　　　　　　　　　　　　　　　　<a href="deluser.asp?username=<%=ds("username")%>"><font color="#000000">马上删除此用户&gt;&gt;&gt;</font></a>　 </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right">代理名：</td>
            <td align="left" bgcolor="#FAFAFA">　
                <%if ds("agent1")<>"n" then%>
                <a href="searchagent.asp?username=<%=ds("agent1")%>" target="_blank"><font color="blue"><%=ds("agent1")%></font></a>
                <%end if%></td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"><div align="right">中文名：</div></td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("truename")%> </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 联系地址：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("address")%> 　联系人：<%=ds("contact")%> 邮编：<%=ds("postid")%> </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 电话：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("tel")%> 　手机：<%=ds("mobi")%> 传真：<%=ds("fax")%> </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 手机：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("mobi")%>　 <a href="smsone.asp?SendNum=<%=ds("mobi")%>&Content=<%=ds("username")%>用户您好" target="_blank">发短信给这个手机&gt;&gt;&gt;</a></td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 备注：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("coreinfo")%>　<a href="javascript:document.formTop.action='/user/changeuser.asp?gourl=/user/modify.asp';document.formTop.username.value='<%=ds("username")%>';document.formTop.submit();"><font color="#000000">修改用户资料>>>(用户区点注销会自动退回管理区)</font></a></td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 身份证号码：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("perid")%></td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 注册ip：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("regip")%> </td>
          </tr>
          <tr height="24">
            <td bgcolor="#ECF2FF" align="right"> 注册时间：</td>
            <td align="left" bgcolor="#FAFAFA">　<%=ds("regtime")%> </td>
          </tr>
        </table>
	    <form action="handhost2.asp" method="post" name="form1">
<%if not dsph.eof then%>
<DIV class="tableborder">
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center">
  <tr bgcolor="#C1BFBF" align="center">
    <td height="24" colspan="2" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
    <td background="img/tablebg.gif"><font color="#FFFFFF">产品类型</font></td>
    <td width="8%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">用户名</font></td>
    <td width="10%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">域　名</font></td>
    <td width="9%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">FTP/Pass</font></td>
    <td width="8%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">IP 地址</font></td>
    <td width="11%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">开通/到期</font></td>
    <td width="11%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">资源使用</font></td>
    <td width="7%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">状态</font></td>
    <td width="7%" background="img/tablebg.gif"><font color="#FFFFFF">ICP</font></td>
    <td background="img/tablebg.gif"><font color="#FFFFFF">操作</font></td>
  </tr>
<%

while not dsph.Eof%><%

	Hosttype=dsph("Hosttype")

hostname=dsph("hostname")
hostname=replace(hostname, ":80:","")
hostname_arry=Split(hostname, ",")
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
ostype=dsserver("ostype")
isuseCDN=dsserver("isuseCDN")
	%>
  <tr align="center" bgcolor="#E4EAF2" title="<%=dsph("corewhat")%>">
    <td width="6%"><%=dsph("id")%></td>
    <td width="4%"><input type="radio" name="id" value="<%=dsph("id")%>" <%if dsph.RecordCount=1 then%>checked<%end if%> onClick="window.location='handhost1.asp?id='+this.value"></td>
    <td><%=Hosttype%><%if isAgnHostSer then%><br>
(独立模式)<%end if%>
<%if dsph("allowsub")="y" then%>
　 <br>
允许绑定子目录 <%=dsph("subweb")%> 个
<%end if%><br>

<%if not isnull(dsph("repaymoney")) then%>
此产品已设置了单独续费价格：<%=dsph("repaymoney")%>元/年
<%end if%>

</td>
    <td height="30"><a href="searchuser.asp?username=<%=dsph("username")%>"><%=dsph("username")%></a><br>
      <%if dsph("agent1")<>"n" then%>
(<a href="searchagent.asp?username=<%=dsph("agent1")%>" target="_blank"><font color="#FF0000"><%=dsph("agent1")%></font></a>)
<%end if%>
<%if not isnull(dsph("kefu")) then%>
<br>
<a href="admkefu.asp?kefu=<%=dsph("kefu")%>">(<font color="#0000FF"><%=dsph("kefu")%>)</font></a>
<%end if%></td>
    <td><%if dsserver("ostype")="linux" and dsserver("autodelicp")=true then
	Set dsICPDB = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_ICPDB where ftpname='"&dsph("ftpname")&"'"
	dsICPDB.Open Sql,conn,1,1
if dsICPDB.eof then%>
<%for idname=0 to ubound(hostname_arry)%>
      <a href="http://<%=hostname_arry(idname)%>" target="_blank">
      <%if ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))<>hostname_arry(idname) then%>
      <%=ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))%> (<%=hostname_arry(idname)%>)
      <%else%>
      <%=hostname_arry(idname)%>
      <%end if%>
      </a><br>
      <%next%>
<%end if
while not dsICPDB.Eof%>
主域名:<%=dsICPDB("domain")%><br>
备案:<%=dsICPDB("status")%>
<br>
<%dsICPDB.movenext
wend
dsICPDB.close	
	%>
<%else%>
<%for idname=0 to ubound(hostname_arry)%>
<a href="http://<%=hostname_arry(idname)%>" target="_blank">
<%if ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))<>hostname_arry(idname) then%>
<%=ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))%> (<%=hostname_arry(idname)%>)
<%else%>
<%=hostname_arry(idname)%>
<%end if%>
</a><br>
<%next%>
<%end if%></td>
    <%
'
%>
    <td bgcolor="#E4EAF2"><%=dsph("ftpname")%><br>
      <%if session("canadmhostadd")="" And session("canadmhostset")="" And session("canadmhostch")="" And session("canadmhostmidsub")="" And session("canadmhostmiddomain")="" And session("canadmhostmidcpu")="" And session("canadmhostmidrepay")="" And session("canadmhostdel")="" And session("canadmhostoth")="" Then%>
      无权查看密码
      <%else%>
      <%=dsph("ftppassword")%><br>
      <a target="_blank" href="ftp://<%=dsph("ftpname")%>:<%=dsph("ftppassword")%>@<%=replace(lcase(dsserver("ftpdomain")),"ftp://","")%>"> 连接FTP</a>
      <%end if%></td>
    <td>      
      <%=dsserver("ip")%>
<%if dsserver("ostype")="linux" then%>
<br><%if dsph("status")="暂停" or dsph("status")="停止" then%>暂停或停止状态不能登陆DA后台<%else%><a href="hostadm2.asp?id=<%=dsph("id")%>" target="_blank">进入DA接口后台</a><%end if%>
<%end if%>
      <%dsserver.close%>
      <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_Host_IP where HostID="&dsph("id")
if dsph("Hosttype")="子目录绑定" then Sql="Select * from FreeHost.FreeHost_Product_Host_IP where HostID="&dsph("allowsubbyid")		
		dsX.Open Sql,conn,1,1
If not dsX.Eof Then%>
      <br>
      独立IP:
      <%
while not dsX.eof
%>
      <%=dsX("IP")%>
      <%
dsX.movenext
wend
end if%>
<br></td>
    <td width="11%"><%=dsph("starttime")%><br>
      <%=dsph("endtime")%><br>
      <a href="moneyalllist.asp?op=search&selecttype=全部&usertype=用户或代理名&whichProduct=虚拟主机&pdid=<%=dsph("id")%>" target="_blank">此产品财务信息</a></td>
    <td width="11%">
<%if dsph("hosttype")<>"子目录绑定" then%>
<%
'处理sub
thismonbytesALLsub=0
CPUALLsub=0
BytesReceivedSub=0
BytesSentSub=0
Set dsphsub = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where allowsubbyid='"&dsph("id")&"' and allowsub='n' and ftpname='"&dsph("ftpname")&"'"
	dsphsub.Open Sql,conn,1,1
while not dsphsub.eof
thismonbytesALLsub=thismonbytesALLsub+CDbl(dsphsub("thismonbytes"))
CPUALLsub=CPUALLsub+CDbl(dsphsub("TimeTaken"))
BytesReceivedSub=BytesReceivedSub+CDbl(dsphsub("BytesReceived"))
BytesSentSub=BytesSentSub+CDbl(dsphsub("BytesSent"))
dsphsub.movenext
wend
%>
<%end if%>
	<a href="allsearch.asp" <%if dsph("hosttype")<>"子目录绑定" then%>title="昨天流量：不包含子目录是：<%=FormatNumber(((CDbl(dsph("BytesReceived"))+CDbl(dsph("BytesSent")))/1048576),1,-1)%>M，包含子目录是：<%=FormatNumber(((CDbl(dsph("BytesReceived"))+CDbl(dsph("BytesSent"))+BytesReceivedSub+BytesSentSub)/1048576),1,-1)%>M 本月流量：不包含子目录是：<%=FormatNumber((CDbl(dsph("thismonbytes"))/1048576),1,-1)%>M，包含子目录是：<%=FormatNumber((CDbl(dsph("thismonbytesALL"))/1048576),1,-1)%>M"<%end if%>><font color="#000000">昨天:
          <%
value=FormatNumber(((CDbl(dsph("BytesReceived"))+CDbl(dsph("BytesSent")))/1048576),1,-1)
%>
          <%=value%><%if dsph("hosttype")<>"子目录绑定" then%>(<%=FormatNumber(((CDbl(dsph("BytesReceived"))+CDbl(dsph("BytesSent"))+BytesReceivedSub+BytesSentSub)/1048576),1,-1)%>)<%end if%> M
          <br>
流入:
<%
value=FormatNumber((CDbl(dsph("BytesReceived"))/1048576),1,-1)
%>
          <%=value%> M
		  <br>
流出:
<%
value=FormatNumber((CDbl(dsph("BytesSent"))/1048576),1,-1)
%>
<%=value%> M<br>
本月:
<%

value=FormatNumber((CDbl(dsph("thismonbytes"))/1048576),1,-1)
maxvalue=FormatNumber((CDbl(dsph("Maxbytes"))/1048576),1,-1)
spaceused=FormatNumber((CDbl(dsph("thismonbytesALL"))/1048576),1,-1)
%>
<%=value%><%if dsph("hosttype")<>"子目录绑定" then%>(<%=spaceused%>)<%end if%>(<%=maxvalue%>) M<br>
上月:
<%
value=FormatNumber((CDbl(dsph("oldmonthbytes"))/1048576),1,-1)
%>
<%=value%> M<br>
CPU:
<%
value=FormatNumber(((CDbl(dsph("TimeTaken")))/8640000/5),1,-1)
CPUALLsub=FormatNumber(value+CPUALLsub1,-1)
maxvalue=FormatNumber((CDbl(dsph("MaxCPU"))/8640000/5),1,-1)
%>
<%=value%><%if dsph("hosttype")<>"子目录绑定" then%>(<%=CPUALLsub%>)<%end if%>(<%=maxvalue%>)%</font></a>
<%if isuseCDN=true then%><br>昨天的流量为 <%=dsph("CDNMB"&day(txml))%> MB　(月流量上限为
          <%if dsph("CDNMaxMb")=0 then%>
        不限流量
        <%else%>
        <%=dsph("CDNMaxMb")%>MB 已用了<%=FormatNumber(dsph("CDNMBthismonth")*100/dsph("CDNMaxMb"),1,-1)%>%
        <%end if%>
        )
<%end if%>

</td>
    <td width="7%"><%if dsph("endtime")>NOW then%>
      <%if dsph("istest")="y" then%>
      <font color="#FF0000">试用<br>
      <%=dsph("status")%></font>
      <%else%>
      <%=dsph("status")%>
      <%end if%>
      <%else%>
      <font color="#FF0000">过期</font>
      <%if dsph("status")="暂停" then%>
      <br>
      <font color="#FF0000">暂停</font>
      <%end if%>
      <%end if%></td>
    <td width="7%"><a href="beian.asp?id=<%=dsph("id")%>">
      <%if dsph("beianstatus")="备案成功" then%>
      <FONT color=red>成功</FONT>
      <%else%>
      <FONT color=#000000>备案</FONT>
      <%end if%>
      </a><br>
      <br>
      <a href="admicpdb.asp?ftpname=<%=dsph("ftpname")%>">审核本地备案库</a> </td>
    <td><a href="hostadm3.asp?id=<%=dsph("id")%>&go=a" target="_blank">用户区面板</a></td>
  </tr>
<%username=dsph("Ftpname")


if (instr(1,returnstr,"用户不存在！")>0) then %>
<font color=red>服务器上没有找到此用户，修复此用户</font>
<input type="submit" name="Submit" value="马上重开此用户"><br>
<%end if
if returnstr="" then
%>
<!--无法连接此服务器，请检查-->
<%=returnstr%><%
end if 
%>

<%
dsph.movenext
wend%></table>
</div>

<%dsph.close
set dsph=nothing
else%>
<DIV class="tableborder"><br>
<br>
没有相关的记录。<br>
<br>
</div>
<%end if%>
<br>
<DIV class="tableborder">
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center">
  <tr bgcolor="#C1BFBF" align="center">
    <td width="15%" height="24" background="img/tablebg.gif"><font color="#FFFFFF">类型</font></td>
    <td height="24" background="img/tablebg.gif"><font color="#FFFFFF">
      <input name="username" type="hidden" value="<%=ds("username")%>">
      操作</font></td>
    </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>修改FTP密码</td>
    <td height="30" align="left">　新FTP密码：
        <input name="password" type="text" id="password" size="14" maxlength="14">
        <input type="submit" name="Submit" value="重设FTP密码">　
        　　　　　　
        <%if ostype="windows" then%><input type="submit" name="Submit" value="回收池"><%end if%></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td height="70">暂停/恢复</td>
    <td height="30" align="left">　
      
如果是暂停可以选择暂停的原因：<br>
　
<input name="pauseweb" type="radio" value="pauseweb" <%if pausereason=1 then%>checked<%end if%>>
超过使用期限
<input name="pauseweb" type="radio" value="pauseweb2" <%if pausereason=2 then%>checked<%end if%>>
政治或色情
<input name="pauseweb" type="radio" value="pauseweb3" <%if pausereason=3 then%>checked<%end if%>>
上传引起不稳定的程序或其他原因<br>
　
<input name="pauseweb" type="radio" value="pauseweb4" <%if pausereason=4 then%>checked<%end if%>>
没有备案或备案不成功
<input type="submit" name="Submit" value="暂停">
<input type="submit" name="Submit" value="停止">
<input type="submit" name="Submit" value="恢复"> 　　
<input type="submit" name="Submit" value="临时恢复">　
<br>
　　备注：
<input name="pauseinfo" type="text" id="pauseinfo" size="50" value="<%=pauseinfo%>"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td><%if ostype="windows" then%><font color="#FF0000">详细管理</font><%else%>删除<%end if%></td>
    <td height="30" align="left">　<%if ostype="windows" then%>
      <input type="submit" name="Submit" value="主机管理"><%end if%>
　　　　　　　　　　　　　　　　　　　　
<input type="button" name="Submit" value="删除"  onclick="JavaScript:if(confirm('确定删除吗？')){document.form1.dodel.value = '删除';this.disabled=true;this.value='请您稍等，正在删除中....';document.form1.submit();}">
<input type="hidden" name="dodel" value="">
(删除是不可恢复的删除)
<script language=JavaScript>
<!--
	function chkForm(theform)
	{
			if(! confirm("请确认是否要删除?\n注意，如果删除是没有办法恢复的。"))
				return false;
	}
//-->
</script></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>转移产品</td>
    <td height="30" align="left">　转移此产品给新用户：
      <input name="newusername" type="text" id="newusername" size="14">
      <input type="submit" name="Submit" value="马上转移"></td>
  </tr>
<%if ostype="windows" then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>网站日志</td>
    <td height="30" align="left">　
<!--        <input type="submit" name="Submit" value="启用日志">
        <input type="submit" name="Submit" value="停止日志">　-->
        <input type="submit" name="Submit" value="提取日志"> 
        (明天才有)　　　
        (
        <input name="oldday" type="text" id="oldday" value="0" size="3" maxlength="4">
        天前的日志(0是今天,昨天输入-1,前天输入-2)
        <input type="submit" name="Submit" value="提取旧日志">
        马上生成,<a href="http://sys.7i24.com/system/support/show.asp?id=104261651147" target="_blank">帮助&gt;&gt;&gt;</a>) 
        </td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>出错信息</td>
    <td height="30" align="left">　
      <input type="submit" name="Submit" value="启用详细出错信息">
      <input type="submit" name="Submit" value="停止详细出错信息">
</td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>拒绝ＩＰ</td>
    <td height="30" align="left">　
      <input name="IPARRY" type="text" id="IPARRY" size="30">
      <input type="submit" name="Submit" value="设置拒绝IP">
      <br>　
以@为分隔。格式为：192.168.0.1, 255.255.255.255@)<br> 
　 拒绝IP段192.168.2.0-192.168.2.254可以写为：192.168.2.0, 255.255.255.0@</td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>目录执行权</td>
    <td height="30" align="left">　
        <input name="htmdir" type="text" id="htmdir" value="images" size="15">
        <input type="submit" name="Submit" value="设置此目录只有htm权限">
        <input type="submit" name="Submit" value="恢复此目录"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>打包还原</td>
    <td height="30" align="left">　
      RAR文件名：
        <input name="rarname" type="text" id="rarname" value="" size="20">
.rar 对应的
<input name="rardirname" type="text" id="rardirname" value="\web" size="18" maxlength="50">
目录　　
<input type="submit" name="Submit" value="RAR还原" onClick="if (confirm('请您确认本次操作？')==false){return false;}">
      <input type="submit" name="Submit" value="RAR打包" onClick="if (confirm('请您确认本次操作？')==false){return false;}">
      <input name="rarv" type="checkbox" id="rarv" value="y">
分卷打包(每个包50M)</td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>写入权限</td>
    <td height="30" align="left">　
      <input type="submit" name="Submit" value="关闭写入权限">
      <input type="submit" name="Submit" value="恢复写入权限"></td>
  </tr>
<%end if%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>重开主机</td>
    <td height="30" align="left">　在特殊情况下，您可以
        <input type="submit" name="Submit" value="马上重开此用户"></td>
  </tr>
<%if ostype="windows" then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>子目录绑定</td>
    <td height="30" align="left">　
        <input name="subweb" type="text" id="subweb" value="<%=subweb%>" size="3" maxlength="3">
    个
    <input type="submit" name="Submit" value="允许绑定子目录">
    <input type="submit" name="Submit" value="关闭绑定子目录绑定"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>域名绑定数量</td>
    <td height="30" align="left">　
        <input name="domaincount" type="text" id="domaincount" value="<%=domaincount%>" size="3" maxlength="3">
    个
    <input type="submit" name="Submit" value="更改允许的域名绑定数量">    </td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>流量及CPU限制</td>
    <td height="30" align="left">　 流量:
        <input name="Maxbytes" type="text" id="Maxbytes" value="<%=Maxbytes%>" size="6" maxlength="10">
    M/月 　CPU:
    <input name="MaxCPU" type="text" id="MaxCPU" value="<%=MaxCPU%>" size="3" maxlength="3">
    % (0代表不限制)
    <input type="submit" name="Submit" value="设置流量及CPU">
    　
    <input type="submit" name="Submit" value="将当前的流量及CPU清0">
    </td>
  </tr>
<%if isuseCDN=true then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>CDN流量及CPU限制</td>
    <td height="30" align="left">　
        流量:
      <input name="CDNMaxMb" type="text" id="CDNMaxMb" value="<%=CDNMaxMb%>" size="6" maxlength="10">
    M/月 (0代表不限制)
    <input type="submit" name="Submit" value="设置CDN流量">　
    <input type="submit" name="Submit" value="将当前的CDN流量清0">
</td>
  </tr>
<%end if%>  
<%end if%>  
<%if ostype="linux" then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>资源调整</td>
    <td height="30" align="left">　　空间总大小限制(M)：
      <input name="spacelimt" type="text" id="spacelimt" size="5" maxlength="8" value="<%=spacelimt%>">　    
流量上限：
            <input name="Maxbytes" type="text" id="Maxbytes" size="10" maxlength="20" value="<%=Maxbytes%>">
M/月(0表示不限制)<br>
　　虚拟主机数量：
      <input name="vdomains" type="text" id="vdomains" size="4" value="<%=vdomains%>">
个  允许绑定的子域名数量：
      <input name="allowdomain" type="text" id="allowdomain" size="3" value="<%=allowdomain%>">
个<br>
　　域名转发数量：
<input name="domainptr" type="text" id="domainptr" size="3" value="<%=domainptr%>">
个　允许开通的邮箱数量：
            <input name="nemails" type="text" id="nemails" size="3" value="<%=nemails%>">
个　允许开通的FTP数量：
<input name="ftp" type="text" id="ftp" size="3" value="<%=ftp%>">
个<br> 　　邮箱转发数量：
<input name="nemailf" type="text" id="nemailf" size="3" value="<%=nemailf%>">
个 　邮箱列表数量：
<input name="nemailml" type="text" id="nemailml" size="2" value="<%=nemailml%>">
个 　邮箱自动回复数量：
<input name="nemailr" type="text" id="nemailr" size="2" value="<%=nemailr%>">
个<br>
　　允许开通的MySQL数量：
<input name="mysql" type="text" id="mysql" size="3" value="<%=mysql%>">
个
<input type="submit" name="Submit" value="设置资源" onClick="if (confirm('调整资源会直接更改DA面板中单独个用户的设置，请您确认本次操作？')==false){return false;}"></td>
  </tr>
<%end if%>

<%if ostype="windows" then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>FTP权限</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="停止这个主机的FTP读写权限">
        <input type="submit" name="Submit" value="恢复这个主机的FTP读写权限"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>关闭FSO</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="关闭此网站的FSO权限">
        <input type="submit" name="Submit" value="打开此网站的FSO权限"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>查看日志</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="允许查看日志/CPU">
        <input type="submit" name="Submit" value="不允许查看日志/CPU"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>允许打包还原</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="允许打包还原">
        <input type="submit" name="Submit" value="不允许打包还原"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>允许用户自己回收池</td>
    <td height="30" align="left">　
        <%if canrecypool="y" then%>
        <input type="submit" name="Submit" value="不允许回收池">
        <%else%>
        <input type="submit" name="Submit" value="允许回收池">
        <%end if%>
    </td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>允许用户切换.Net版本</td>
    <td height="30" align="left">　
        <%if canchnetver="y" then%>
        <input type="submit" name="Submit" value="不允许用户自己切换.Net版本">
        <%else%>
        <input type="submit" name="Submit" value="允许用户自己切换.Net版本">
        <%end if%>
        <br>
        　 当前.Net版本<%=Netver%>(注意Net 2.0版本兼容Net 3.0/3.5)<br>
        　
<input name="Submit" type="submit" id="Submit" value="切换成1.1版本">
<input name="Submit" type="submit" id="Submit" value="切换成2.0/3.5版本"> 　
<input name="Submit" type="submit" id="Submit" value="切换成4.0版本"> 
</td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>是否禁止下载类文件</td>
    <td height="30" align="left">　
<%if notuserar="n" then%>        <input type="submit" name="Submit" value="不允许下载类文件"><%else%>        <input type="submit" name="Submit" value="允许下载类文件"><%end if%>
</td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>允许备份还原</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="允许备份还原">
        <input type="submit" name="Submit" value="不允许备份还原"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>重算配额主机</td>
    <td height="30" align="left">　
        <input type="submit" name="Submit" value="重新计算此用户的实际占用空间"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>恢复权限</td>
    <td height="30" align="left">　
      <input type="submit" name="Submit" value="重新恢复此用户的权限结构"></td>
  </tr>
<%end if%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>单独设置<br>
      它的续费价格</td>
    <td height="30" align="left">　
        <input name="repaymoney" type="text" id="repaymoney" size="4" maxlength="7">
        元/年
        <input type="submit" name="Submit" value="单独设置续费价格">　
        <input type="submit" name="Submit" value="取消单独价格"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>更改主机的备注信息</td>
    <td height="30" align="left">　
        <input name="corewhat" type="text" id="corewhat" size="50" value="<%=corewhat%>">
        <input type="submit" name="Submit" value="更改主机的备注信息">
        </td>
  </tr>
<%if ostype="windows" then%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td>清空数据</td>
    <td height="30" align="left">　目录：\web\
        
      <input name="dirname" type="text" id="dirname" size="15">      　　
    <input type="submit" name="Submit" value="清空数据" onClick="return chkFormweb(this)">
    (清空数据是不可恢复的)
    <script language=JavaScript>
<!--
	function chkFormweb(theform)
	{
			if(! confirm("请确认是否要清空?\n注意，如果清空是没有办法恢复的。"))
				return false;
	}
//-->
</script></td>
  </tr>
<%end if%>  
  <tr align="center" bgcolor="#E4EAF2">
    <td height="70">转移服务器</td>
    <td height="30" align="left">　 请注意，以下操作将自动删除所有旧服务器上的用户内容，并在新服务器上开通网站，<br>
    　 因此，需要先备份旧的网站内容，如果存在子目录绑定的网站，需要重新绑定。<br>
    　 新的服务器为：
    <select name="newServerlistID">
      <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist where ostype='"&ostype&"'  order by orderbyid desc,id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
      
  
服务器列表为空.

  
      <%else%>
      <%while not dsX.Eof%>
      <option value="<%=dsX("id")%>" <%If ServerlistID=dsX("id") then%>selected<%End if%>><%=dsX("id")%>.<%=dsX("servername")%> (<%=dsX("ip")%>)</option>
      <br>
      <%
dsX.movenext
wend%>
    </select>
    <%end if%>
    <input type="submit" name="Submit" value="删除旧主机并更换服务器" onClick="return chkFormmov(this)">
	 <script language=JavaScript>
<!--
	function chkFormmov(theform)
	{
			if(! confirm("请确认是否要删除并更换?\n注意，必须要先备份旧数据，删除后数据就无法恢复。"))
				return false;
	}
//-->
</script>
    </td>
  </tr>

  <tr align="center" bgcolor="#E4EAF2">
    <td>调整时间</td>
    <td height="103" align="left">　
      <%if repaymoney<>"" then%>
      <font color="red">此产品已设置了单独续费价格：<%=repaymoney%>元/年</font>
      <%end if%>
      <input type="radio" name="year" value="<%=PAY_Month%>">
一个月
<input type="radio" name="year" value="<%=PAY_Season%>">
一季
<input type="radio" name="year" value="<%=PAY_halfyear%>">
半年
<input type="radio" name="year" value="<%=PAY_Nextyear%>" checked>
一年
<input type="radio" name="year" value="<%=PAY_2year%>">
两年
<input type="radio" name="year" value="<%=PAY_3year%>">
三年
<input type="radio" name="year" value="<%=PAY_4year%>">
四年
<input type="radio" name="year" value="<%=PAY_5year%>">
五年<br>
　手工指定开通时间:
<input name="starttime" type="text" id="starttime" size="10" maxlength="10">
<%=formatdatetime(starttime,2)%>　手工指定开通时间时，必须填写到期时间及扣除金额<br>
　手工指定到期时间:
<input name="endtime" type="text" value="" size="10" maxlength="10">
<%=formatdatetime(endtime,2)%>　手工指定必须填写扣除金额<br>
　用户金额中扣除：
<input name="usermoney" type="text" id="usermoney" size="3" value="">
元(如果不填写，将按产品默认金额扣除,也可以设成0)

<input type="submit" name="Submit" value="马上调整"></td>
  </tr>
  <tr align="center" bgcolor="#E4EAF2">
    <td>升级</td>
    <td height="30" align="left">　　更产品类型:
                <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HostProductlist where ostype='"&ostype&"' order by orderbyid desc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
产品列表为空.
<%else%>
<select name="hosttypeAuto" id="hosttypeAuto">
  <%while not dsX.Eof%>
  <option value="<%=dsX("id")%>" <%if dsX("hosttype")=hosttype then%>selected<%end if%>><%=dsX("hosttype")%></option>
  <br>
  <%
dsX.movenext
wend%>
</select>
<%end if%>
<br>
　
<input name="chmoneyauto" type="checkbox" id="chmoneyauto" value="checkbox">
从用户金额中扣除(如果不选将只更改而不扣费)(产品不变不会扣)<br>
　　 　价格：
<input name="usermoneyauto" type="text" id="usermoneyauto" size="4" value="">
元(不填价格将按产品差价扣除或退回)
<input name="istestch1" type="checkbox" id="istestch1" value="y">
将试用的用户变更成正式用户 <br>
　
<input name="Submit" type="submit" id="auto" value="马上升级" onClick="if (confirm('请您确认本次升级操作？')==false){return false;}">
(注意，代理及代理名下用户请让代理或用户自己操作，这儿的操作不会返款给上级代理)<br>
　　(如果是产品降级，如果降级后没有送数据库/邮箱，您需要手工删除原来已送的数据库/邮箱)</td>
  </tr>

  <tr align="center" bgcolor="#E4EAF2">
    <td height="30" colspan="2" align="right"><a href="#top"><font color="#6B9EDE" face="Arial, Helvetica, sans-serif">Top↑</font></a></td>
    </tr>
</table>
</div>
</form></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%>
