<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansuperuser")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_Admuser order by id asc"
if Request.QueryString ("username") <>"" then Sql="Select * from FreeHost.FreeHost_Admuser where superuser='"&Request("username")&"'"
		if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	ds.PageSize = 250
	ds.Open Sql,conn,1,3
if ds.Eof then
	ef=True
	ec="此类超级用户不存在！"
end if
end if


if not ef then
if Request.QueryString ("op") ="del" and trim(lcase(Request("username")))<>"freehost" then
ds.delete
ds.update
Response.Redirect "superlistuser.asp"
end if
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If ds.RecordCount <> 0 Then ds.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if ds.PageCount<=10 then
       endini=ds.PageCount 
       else
       endini=10
      end if
    end if
%>
<!--#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" style="FONT-WEIGHT: bolder; Cursor:hand"  id="tableTop1"><a href="superlistuser.asp"><font color="#FFFFFF">超级用户</font></a><br></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 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="462" align="center" vAlign=top background="contopa.gif" bgcolor="#FFFFFF">

共有：<%=ds.recordcount%> 条记录 <%if clng(pn)<=10 then%>最新 <%for i=begini to endini
    if clng(pn)=i then%><font color=red>[<%=i%>]</font><%else%><a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a><%end if%>　<%next%> 
        <%else%>　<a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 
        　共<%=ds.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%><a href="?<%=ask(0)%>&pn=<%=pn-1%>"><font color="#000000">上一页</font></a><%End If%>|<%If Clng(pn)<ds.PageCount Then%><a href="?<%=ask(0)%>&pn=<%=pn+1%>"><font color="#000000">下一页</font></a><%End If%>
<table width="97%"  border="0" cellspacing="1" bgcolor="#B5BECE">
  <tr bgcolor="#CCCCCC">
    <td width="14%" height="18" align="center">编号</td>    
    <td width="30%" height="18" align="center">用户名</td>
	<td width="33%" height="18" align="center">最后使用时间</td>
    <td width="23%" height="18" align="center">操作</td>
  </tr>
<%
For N=1 To ds.PageSize 
					If ds.RecordCount=0 Then Exit For
%>
  <tr>
    <td align="center" bgcolor="#F2F2F2"><font color="#000000"><%=ds("id")%></font></td>
    <td align="center" bgcolor="#F2F2F2"><a href="superlistuser.asp?username=<%=ds("superuser")%>"><font color="#FF0000"><%=ds("superuser")%></font></a></td>
    <td align="center" bgcolor="#F2F2F2"><%=ds("lastuse")%><br>
    </td>
    <td align="center" bgcolor="#F2F2F2"><a href="superlistuser.asp?username=<%=ds("superuser")%>"><font color="#FF0000">查询及管理</font></a>　<a href="superlistuser.asp?username=<%=ds("superuser")%>&op=del"><font color="#FF0000">删除</font></a></td>
  </tr>
<%
If clng(pn)=ds.PageCount Then
I = ds.RecordCount - (ds.PageCount-1) * ds.PageSize
If N=I Then Exit For
End If
ds.movenext
Next%>
</table>
	<%
ds.MoveFirst
username=ds ("superuser")
canmodifyhtml=ds ("canmodifyhtml")
cancheckmoney=ds ("cancheckmoney")
canaddmoney=ds ("canaddmoney")
candelmoney=ds ("candelmoney")
cansetserver=ds ("cansetserver")
canrebuild=ds ("canrebuild")
canmodpass=ds ("canmodpass")
canadmuser=ds ("canadmuser")
canshowuser=ds ("canshowuser")
canuserpass=ds ("canuserpass")
candeluser=ds ("candeluser")
canmailuser=ds ("canmailuser")
canshowpro=ds ("canshowpro")
cansetpro=ds ("cansetpro")

canadmhost=ds ("canadmhost")
canadmhostadd=ds ("canadmhostadd")
canadmhostset=ds ("canadmhostset")

canadmdomain=ds ("canadmdomain")
candomainpay=ds ("candomainpay")
candomaindel=ds ("candomaindel")

canadmemail=ds ("canadmemail")
canadmemailadd=ds ("canadmemailadd")
canadmemailset=ds ("canadmemailset")

canadmidc=ds ("canadmidc")
canadmidcadd=ds ("canadmidcadd")
canadmidcset=ds ("canadmidcset")

canadmsql=ds ("canadmsql")
canadmsqladd=ds ("canadmsqladd")
canadmsqlset=ds ("canadmsqlset")

cansetnews=ds ("cansetnews")
canadmlog=ds ("canadmlog")
canagnper=ds ("canagnper")

canadmagn=ds ("canadmagn")
canshowagn=ds ("canshowagn")
canagnpass=ds ("canagnpass")
cansetagn=ds ("cansetagn")
cansuperuser=ds ("cansuperuser")
canadmOther=ds ("canadmOther")
cansysteminfo=ds ("cansysteminfo")
canaws=ds ("canaws")

canmoneyNew=ds ("canmoneyNew")
canmoneyA=ds ("canmoneyA")
canmoneyB=ds ("canmoneyB")
canmoneyC=ds ("canmoneyC")
canmoneyD=ds ("canmoneyD")
canmoneyE=ds ("canmoneyE")
canmoneyF=ds ("canmoneyF")
canmoneyG=ds ("canmoneyG")
canmoneyH=ds ("canmoneyH")
canmoneyI=ds ("canmoneyI")
canmoneyJ=ds ("canmoneyJ")
canmoneyK=ds ("canmoneyK")

canadmkefu=ds ("canadmkefu")
canmodkefu=ds ("canmodkefu")
candelkefu=ds ("candelkefu")
canchnkefu=ds ("canchnkefu")

onlypasusesite=ds ("onlypasusesite")

canadmhostch=ds ("canadmhostch")
canadmhostmidsub=ds ("canadmhostmidsub")
canadmhostmiddomain=ds ("canadmhostmiddomain")
canadmhostmidcpu=ds ("canadmhostmidcpu")
canadmhostmidrepay=ds ("canadmhostmidrepay")
canadmhostdel=ds ("canadmhostdel")
canadmhostoth=ds ("canadmhostoth")

canadmemailreapy=ds ("canadmemailreapy")
canadmemaildel=ds ("canadmemaildel")
canadmemailch=ds ("canadmemailch")
canadmemailrenow=ds ("canadmemailrenow")
canadmemailupdate=ds ("canadmemailupdate")
canadmsqlrepay=ds ("canadmsqlrepay")
canadmsqldel=ds ("canadmsqldel")
canadmsqlch=ds ("canadmsqlch")
canadmsqlrenow=ds ("canadmsqlrenow")
canadmsqlupdate=ds ("canadmsqlupdate")
canadmsqlpau=ds ("canadmsqlpau")

canadmhostaddtest=ds ("canadmhostaddtest")


canadmvps=ds("canadmvps")
canadmvpsadd=ds("canadmvpsadd")
canadmvpsaddtest=ds("canadmvpsaddtest")
canadmvpsset=ds("canadmvpsset")
canadmvpsch=ds("canadmvpsch")
canadmvpsmidcpu=ds("canadmvpsmidcpu")
canadmvpsmidrepay=ds("canadmvpsmidrepay")
canadmvpsdel=ds("canadmvpsdel")
canadmvpsoth=ds("canadmvpsoth")
canadmispbeian=ds("canadmispbeian")

canadmCDN=ds("canadmCDN")
canadmCDNadd=ds("canadmCDNadd")
canadmCDNaddtest=ds("canadmCDNaddtest")
canadmCDNset=ds("canadmCDNset")
canadmCDNch=ds("canadmCDNch")
canadmCDNmidcpu=ds("canadmCDNmidcpu")
canadmCDNmidrepay=ds("canadmCDNmidrepay")
canadmCDNdel=ds("canadmCDNdel")
canadmCDNoth=ds("canadmCDNoth")
canadmispbeian=ds("canadmispbeian")

%>  
<form action="superuseradd.asp" method="post" name="form1" target="">
        <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>添加/修改超级用户<%if Request.QueryString ("finish") ="ok" then%>　　<font color=#FFFF00>--您的操作成功完成</font>
                        <%end if%></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"><table width="100%"  border="0" cellspacing="1">
                    <tr>
                      <td width="9%" height="30" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
                              <input name="username" type="text" value="<%=username%>" size="14" maxlength="14">
        密码：
        <input name="password" type="text" size="20" maxlength="50">
        (密码允许特殊字符) </p></td>
                    </tr>
                  </table>
                    <table width="100%"  border="0" cellspacing="1">
                      <tr>
                        <td width="9%" height="56" rowspan="2" bgcolor="#FFFFFF"><p><br>
                                <br>
        　权限：
        <input name="canmodifyhtml" type="checkbox" value="y" <%if canmodifyhtml="y" then%>checked<%end if%>>
        修改模板<br>
        　　　　
        <input name="cancheckmoney" type="checkbox" value="y" <%if cancheckmoney="y" then%>checked<%end if%>>
        财务查询　
        <input name="canaddmoney" type="checkbox" value="y" <%if canaddmoney="y" then%>checked<%end if%>>
        财务加款(简化型)　
        <input name="candelmoney" type="checkbox" value="y" <%if candelmoney="y" then%>checked<%end if%>>
        财务扣款(简化型)<br>
        　　　　
        <input name="canmoneyNew" type="checkbox" value="y" <%if canmoneyNew="y" then%>checked<%end if%>>
查看首页财务记录　　　
<input name="canmoneyA" type="checkbox" value="y" <%if canmoneyA="y" then%>checked<%end if%>>
        入款　　　
        <input name="canmoneyB" type="checkbox" value="y" <%if canmoneyB="y" then%>checked<%end if%>>
        直接扣款　
        <input name="canmoneyC" type="checkbox" value="y" <%if canmoneyC="y" then%>checked<%end if%>>
        消费扣款　
        <!--<input name="canmoneyD" type="checkbox" value="y" <%if canmoneyD="y" then%>checked<%end if%>>
        退款回帐　-->
        <input name="canmoneyE" type="checkbox" value="y" <%if canmoneyE="y" then%>checked<%end if%>>
        退款<br>
        　　　　
        <input name="canmoneyF" type="checkbox" value="y" <%if canmoneyF="y" then%>checked<%end if%>>
        代理返款　
        <input name="canmoneyG" type="checkbox" value="y" <%if canmoneyG="y" then%>checked<%end if%>>
        优惠虚增　
        <input name="canmoneyH" type="checkbox" value="y" <%if canmoneyH="y" then%>checked<%end if%>>
        审核财务　
        <input name="canmoneyI" type="checkbox" value="y" <%if canmoneyI="y" then%>checked<%end if%>>
        删除记录　
        <input name="canmoneyJ" type="checkbox" id="canmoneyJ" value="y" <%if canmoneyH="y" then%>checked<%end if%>>
        到帐状态<br>
        　　　　
        <input name="cansetserver" type="checkbox" value="y" <%if cansetserver="y" then%>checked<%end if%>>
        服务器设置
        <input name="canrebuild" type="checkbox" value="y" <%if canrebuild="y" then%>checked<%end if%>>
        重建用户　
        <input name="canmodpass" type="checkbox" value="y" <%if canmodpass="y" then%>checked<%end if%>>
        修改自己的密码<br>
        　　　　
        <input name="canadmuser" type="checkbox" value="y" <%if canadmuser="y" then%>checked<%end if%>>
        用户管理　
        <input name="canshowuser" type="checkbox" value="y" <%if canshowuser="y" then%>checked<%end if%>>
        查看用户资料
        <input name="canuserpass" type="checkbox" value="y" <%if canuserpass="y" then%>checked<%end if%>>
        修改用户资料及密码　
        <input name="candeluser" type="checkbox" value="y" <%if candeluser="y" then%>checked<%end if%>>
        删除/锁定用户<br>
        　　　　
        <input name="canmailuser" type="checkbox" value="y" <%if canmailuser="y" then%>checked<%end if%>>
        群发邮件/短信给用户或代理<br>
        　　　　
        <input name="canshowpro" type="checkbox" value="y" <%if canshowpro="y" then%>checked<%end if%>>
        查看产品　
        <input name="cansetpro" type="checkbox" value="y" <%if cansetpro="y" then%>checked<%end if%>>
        设置产品<br>
        　　　　
        <input name="canadmhost" type="checkbox" value="y" <%if canadmhost="y" then%>checked<%end if%>>
        查看虚拟主机信息　
        <input name="canadmhostadd" type="checkbox" value="y" <%if canadmhostadd="y" then%>checked<%end if%>>
        开通任何新虚拟主机　
        <input name="canadmhostaddtest" type="checkbox" value="y" <%if canadmhostaddtest="y" then%>checked<%end if%>>
        开通试用新虚拟主机<br>
        　　　　
        　　
        <input name="canadmhostch" type="checkbox" value="y" <%if canadmhostch="y" then%>checked<%end if%>>
转移虚拟主机　
<input name="canadmhostmidsub" type="checkbox" value="y" <%if canadmhostmidsub="y" then%>checked<%end if%>>
修改子目录绑定　
<input name="canadmhostmiddomain" type="checkbox" value="y" <%if canadmhostmiddomain="y" then%>checked<%end if%>>
修改域名绑定数量<br>
　　　　 　　
<input name="canadmhostmidcpu" type="checkbox" value="y" <%if canadmhostmidcpu="y" then%>checked<%end if%>>
修改流量及CPU限制　
<input name="canadmhostmidrepay" type="checkbox" value="y" <%if canadmhostmidrepay="y" then%>checked<%end if%>>
单独设置它的续费价格　
<input name="canadmhostdel" type="checkbox" value="y" <%if canadmhostdel="y" then%>checked<%end if%>>
删除虚拟主机<br>
　　　　 　　
　		
        <input name="canadmhostset" type="checkbox" value="y" <%if canadmhostset="y" then%>checked<%end if%>>
高级详细虚拟主机管理(延期,升级IIS参数等)　　
<input name="canadmhostoth" type="checkbox" value="y" <%if canadmhostoth="y" then%>checked<%end if%>> 
其他虚拟主机管理权限<br>
<br>
　　　　
<input name="canadmvps" type="checkbox" value="y" <%if canadmvps="y" then%>checked<%end if%>>
查看VPS信息　
<input name="canadmvpsadd" type="checkbox" value="y" <%if canadmvpsadd="y" then%>checked<%end if%>>
开通任何新VPS　
<input name="canadmvpsaddtest" type="checkbox" value="y" <%if canadmvpsaddtest="y" then%>checked<%end if%>>
开通试用新VPS　
<input name="canadmvpsset" type="checkbox" value="y" <%if canadmvpsset="y" then%>checked<%end if%>> 
续费更改时间及升级
<br>
　　　　 　　
<input name="canadmvpsch" type="checkbox" value="y" <%if canadmvpsch="y" then%>checked<%end if%>>
转移VPS 　
<input name="canadmvpsmidcpu" type="checkbox" value="y" <%if canadmvpsmidcpu="y" then%>checked<%end if%>>
修改CPU内存硬盘限制　
<input name="canadmvpsmidrepay" type="checkbox" value="y" <%if canadmvpsmidrepay="y" then%>checked<%end if%>>
单独设置它的续费价格　
<input name="canadmvpsdel" type="checkbox" value="y" <%if canadmvpsdel="y" then%>checked<%end if%>>
删除VPS/更换云服务器<br>
　　　　 　　
<input name="canadmvpsoth" type="checkbox" value="y" <%if canadmvpsoth="y" then%>checked<%end if%>>
其他云服务器管理权限<br>
　　　　<br>
          <br>
		  
　　　　
          <input name="canadmCDN" type="checkbox" value="y" <%if canadmCDN="y" then%>checked<%end if%>>
查看CDN信息　
<input name="canadmCDNadd" type="checkbox" value="y" <%if canadmCDNadd="y" then%>checked<%end if%>>
开通任何新CDN　
<input name="canadmCDNaddtest" type="checkbox" value="y" <%if canadmCDNaddtest="y" then%>checked<%end if%>>
开通试用新CDN　
<input name="canadmCDNset" type="checkbox" value="y" <%if canadmCDNset="y" then%>checked<%end if%>> 
续费更改时间及升级
<br>
　　　　 　　
<input name="canadmCDNch" type="checkbox" value="y" <%if canadmCDNch="y" then%>checked<%end if%>>
转移CDN 　
<input name="canadmCDNmidcpu" type="checkbox" value="y" <%if canadmCDNmidcpu="y" then%>checked<%end if%>>
修改域名数量及流量限制　
<input name="canadmCDNmidrepay" type="checkbox" value="y" <%if canadmCDNmidrepay="y" then%>checked<%end if%>>
单独设置它的续费价格　
<input name="canadmCDNdel" type="checkbox" value="y" <%if canadmCDNdel="y" then%>checked<%end if%>>
删除CDN<br>
　　　　 　　
<input name="canadmCDNoth" type="checkbox" value="y" <%if canadmCDNoth="y" then%>checked<%end if%>>
其他CDN管理权限<br>
　　　　<br>
          <br>		  
          　　　　
          <input name="canadmdomain" type="checkbox" value="y" <%if canadmdomain="y" then%>checked<%end if%>>
          域名管理　
          <input name="candomainpay" type="checkbox" value="y" <%if candomainpay="y" then%>checked<%end if%>>
          域名确认　
          <input name="candomaindel" type="checkbox" value="y" <%if candomaindel="y" then%>checked<%end if%>>
          域名删除<br>
          　　　　
          <input name="canadmemail" type="checkbox" value="y" <%if canadmemail="y" then%>checked<%end if%>>
          查看邮箱　
          <input name="canadmemailadd" type="checkbox" value="y" <%if canadmemailadd="y" then%>checked<%end if%>>
          新建邮箱　
          <input name="canadmemailset" type="checkbox" value="y" <%if canadmemailset="y" then%>checked<%end if%>>
          高级邮箱管理<br>
          　　　　　　
          <input name="canadmemailreapy" type="checkbox" value="y" <%if canadmemailreapy="y" then%>checked<%end if%>>
单独设置邮箱续费价格　
<input name="canadmemaildel" type="checkbox" value="y" <%if canadmemaildel="y" then%>checked<%end if%>>
删除邮箱　
<input name="canadmemailch" type="checkbox" value="y" <%if canadmemailch="y" then%>checked<%end if%>>
转移邮箱　
<input name="canadmemailrenow" type="checkbox" value="y" <%if canadmemailrenow="y" then%>checked<%end if%>>
邮箱续费 <br>
　　　　　　
<input name="canadmemailupdate" type="checkbox" value="y" <%if canadmemailupdate="y" then%>checked<%end if%>>
升级邮箱　<br>
          <br>
          　　　　
          <input name="canadmsql" type="checkbox" value="y" <%if canadmsql="y" then%>checked<%end if%>>
          查看SQL 　
          <input name="canadmsqladd" type="checkbox" value="y" <%if canadmsqladd="y" then%>checked<%end if%>>
          新建SQL　
          <input name="canadmsqlset" type="checkbox" value="y" <%if canadmsqlset="y" then%>checked<%end if%>>
          高级SQL管理<br>
          　　　　　　
          <input name="canadmsqlrepay" type="checkbox" value="y" <%if canadmsqlrepay="y" then%>checked<%end if%>>
单独设置SQL续费价格 　
 <input name="canadmsqldel" type="checkbox" value="y" <%if canadmsqldel="y" then%>checked<%end if%>>
删除SQL 　
<input name="canadmsqlpau" type="checkbox" value="y" <%if canadmsqlpau="y" then%>checked<%end if%>>
暂停恢复SQL改密码换服务器<br>
　　　　　　
<input name="canadmsqlch" type="checkbox" value="y" <%if canadmsqlch="y" then%>checked<%end if%>> 
转移SQL用户
　
<input name="canadmsqlrenow" type="checkbox" value="y" <%if canadmsqlrenow="y" then%>checked<%end if%>>
SQL续费　　　　　
<input name="canadmsqlupdate" type="checkbox" value="y" <%if canadmsqlupdate="y" then%>checked<%end if%>>
升级SQL<br>
          <br>
          <br>
          　　　　
          <input name="canadmidc" type="checkbox" value="y" <%if canadmidc="y" then%>checked<%end if%>>
          托管租用管理　
          <input name="canadmidcadd" type="checkbox" value="y" <%if canadmidcadd="y" then%>checked<%end if%>>
          新建托管租用　
          <input name="canadmidcset" type="checkbox" value="y" <%if canadmidcset="y" then%>checked<%end if%>>
          修改删除托管租用<br>
          　　　　
          <input name="canadmOther" type="checkbox" value="y" <%if canadmOther="y" then%>checked<%end if%>>
          其他类产品管理 <br>
          　　　　
          <input name="cansetnews" type="checkbox" value="y" <%if cansetnews="y" then%>checked<%end if%>>
          设置新闻　
          <input name="canadmlog" type="checkbox" value="y" <%if canadmlog="y" then%>checked<%end if%>>
          查看系统记录<br>
          　　　　
          <input name="canagnper" type="checkbox" value="y" <%if canagnper="y" then%>checked<%end if%>>
          代理折扣及代理域名<br>
          　　　　
          <input name="canadmagn" type="checkbox" value="y" <%if canadmagn="y" then%>checked<%end if%>>
          代理管理　
          <input name="canshowagn" type="checkbox" value="y" <%if canshowagn="y" then%>checked<%end if%>>
          查看代理资料
          <input name="canagnpass" type="checkbox" value="y" <%if canagnpass="y" then%>checked<%end if%>>
          修改代理密码　
          <input name="cansetagn" type="checkbox" value="y" <%if cansetagn="y" then%>checked<%end if%>>
          更改取消代理级别<br>
          　　　　
          <input name="cansuperuser" type="checkbox" value="y" <%if cansuperuser="y" then%>checked<%end if%>>
          增加修改删除超级用户 <br>
          　　　　
          <input name="cansysteminfo" type="checkbox" value="y" <%if cansysteminfo="y" then%>checked<%end if%>>
          修改核心参数及查看管理区首页登陆信息及列出新开通产品的权限<br>
          　　　　
          <input name="canaws" type="checkbox" value="y" <%if canaws="y" then%>checked<%end if%>>
          客服问答 <br>
          　　　　
          <input name="canmoneyK" type="checkbox" value="y" <%if canmoneyK="y" then%>checked<%end if%>>
          管理备案</p>
                          <p>　　　　
                            <input name="canadmkefu" type="checkbox" value="y" <%if canadmkefu="y" then%>checked<%end if%>>
管理客服
<input name="canmodkefu" type="checkbox" value="y" <%if canmodkefu="y" then%>checked<%end if%>>
增加修改客服信息　
<input name="candelkefu" type="checkbox" value="y" <%if candelkefu="y" then%>checked<%end if%>>
删除客服人员　
<input name="canchnkefu" type="checkbox" value="y" <%if canchnkefu="y" then%>checked<%end if%>>
审批客服变更申请<br>
<br>
　　　　
<input name="onlypasusesite" type="checkbox" value="y" <%if onlypasusesite="y" then%>checked<%end if%>>
单独查找并暂停虚拟主机权限(一般用来授权给机房或网监暂停非法网站用，不要同时选中虚拟主机管理权限。)<br>
　　　　
　　登陆后点自助管理，虚拟主机就可以单独进入暂停功能。
                              <br>
                              <br>
                              　　　　ＩＳＰ备案系统部分：<br>
                              　　　　
                              <input name="canadmispbeian" type="checkbox" id="canadmispbeian" value="y" <%if canadmispbeian="y" then%>checked<%end if%>>
管理备案系统<br>
                              <br>
                              　　　　
                              <input type="submit" name="Submit222" value="执行">                              
                              <br>
                              <br>
                          </p></td>
                      </tr>
                    </table>
				  

				  
				  
				  </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>





</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%>
