<!--#include file = "../inc/dbconn.asp"-->
<!--#include file = "CheckLogin.asp"-->
<!--#include file = "../inc/md5.asp"-->
<!--#include file = "../inc/function.asp"-->
<% LOADING_BUFFER_INI %>
<% LOADING_ADMIN_HEAD %>
<% call dbconn %>
<%
dim tmp_Type:tmp_Type=""
if gqv("do") = "edit" then
	dim uname,upass,pass1,pass2,scode,code1,code2
	uname = trim(gfv("uname"))
	upass = trim(gfv("upass"))
	pass1 = trim(gfv("pass1"))
	pass2 = trim(gfv("pass2"))
	scode = trim(gfv("scode"))
	code1 = trim(gfv("code1"))
	code2 = trim(gfv("code2"))
	if uname = "" or upass = "" or  scode = "" then
		call alertbox("请完整填写用户信息!",2)
	elseif not isnumeric(scode) then
		call alertbox("安全密码必须是数字!",2)
	elseif code1 <> "" and not isnumeric(code1) then
		call alertbox("安全密码必须是数字!",2)
	elseif code2 <> "" and not isnumeric(code2) then
		call alertbox("安全密码必须是数字!",2)
	end if
	if pass1 <> pass2 then
		call alertbox("两次密码输入不一致!",2)
	end if
	if code1 <> code2 then
		call alertbox("两次安全密码输入不一致!",2)
	end if
	dim rs,sql
	set rs = server.createobject (G_654_RS)
	sql = "select * from DH654_admin where uname='" & uname & "' and upass='" & md5(upass,32) & "' and scode=" & scode & ""
	rs.open sql,conn,1,3
	if not rs.eof then
		if pass1 <> "" and pass2 <> "" then
			rs("upass") = md5(trim(request("pass2")),32)
		end if
		if code1 <> "" and code2 <> "" then
			rs("scode") = trim(request("code2"))
		end if
		rs.update
		rs.close:set rs = nothing
		call alertbox("恭喜!修改用户资料成功!请牢记!",2)
	else
		call alertbox("抱歉!用户资料填写错误!",2)
	end if
elseif gqv("do") = "del" then
    if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以删除用户",2)
	conn.execute("delete * from DH654_admin where id=" & ChkNum(gqv("id")))
	call alertbox("恭喜!删除用户成功!",2)
elseif gqv("do") = "show" then
    if Trim(Request.QueryString("Is_Super"))="1" then
	   tmp_Type =  " and Admin_Pop_List like '%DH654%'" 
	elseif Trim(Request.QueryString("islock"))="1"  then
	   tmp_Type =  " and Admin_Is_Locked=1" 
	elseif Trim(Request.QueryString("islock"))="0"  then
	   tmp_Type =  " and Admin_Is_Locked=0" 
	else 
	   tmp_Type = ""
	end if
elseif gqv("do") = "add" then
    if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以添加用户",2)
	if gfv("uname") = "" then
		call alertbox("[用户名称]不能为空!",2)
	elseif gfv("pass1") = "" then
		call alertbox("[用户密码]不能为空!",2)
	elseif gfv("pass2") = "" then
		call alertbox("[确认密码]不能为空!",2)
	elseif gfv("pass1") <> gfv("pass2") then
		call alertbox("两次输入密码不一致!",2)
	elseif gfv("scode") = "" then
		call alertbox("[安全密码]不能为空!",2)
	end if
	set rs = server.createobject (G_654_RS)
	sql = "select * from DH654_admin where uname='" & gfv("uname") & "'"
	rs.open sql,conn,1,3
	if not rs.eof then		
        rs.update
	    rs.close:set rs = nothing
		call alertbox("抱歉!该用户名存在，请换用其他名字吧!",2)
	end if	
    dim rsn,nsql
	set rsn = server.createobject(G_654_RS)
	    nsql = "select top 1 * from DH654_Admin"
	    rsn.open nsql,conn,1,3
	    rsn.addnew
	    rsn("uname") = gfv("uname")
	    rsn("upass") = md5(gfv("pass2"),32)
	    rsn("scode") = gfv("scode")
	    rsn("addtime") = dateformat(now(),1)
        rsn.update
	    rsn.close:set rsn = nothing
	call alertbox("恭喜!添加用户成功!",2)
elseif gqv("do") = "PopedomSave" then	
	if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以设置权限",2)
	if trim(gfv("Id"))="" then			
	   call alertbox("错误的参数。",2)
	else
	   dim PopList:PopList=gfv("PopList")
	   if PopList="" then PopList="654"
	   set rs= Server.CreateObject(G_654_RS)
	   rs.open "select Admin_Pop_List From DH654_Admin where id="&gfv("Id"),conn,1,3
	   rs("Admin_Pop_List")= Replace(PopList," ","")
	   rs.update
	   rs.close:set rs=nothing	
	end if	
	
elseif gqv("do") = "Locked" then	
  if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以锁定用户",2)
  conn.execute("update DH654_Admin set Admin_Is_Locked=1 where ID="& gqv("ID"))'
elseif gqv("do") = "UnLocked" then		
  if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以解开锁定用户",2)
  conn.execute("update DH654_Admin set Admin_Is_Locked=0 where ID="& gqv("ID"))'
end if
	LINE "<table width=""99%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td align=""center""><B>管理员管理</B></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head""><a href=""?do=show"">管理员首页</a> | <a href=""?do=show&Is_Super=1"">超级管理员</a> | <a href=""?do=show&islock=0"">锁定的管理员</a> | <a href=""?do=show&islock=1"">开放的管理员</a> | <a href=""?do=adduser"">添加用户</a></td>"
	LINE "</tr>"
	LINE "</table>" 
	
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" width=""5%"" align=""center"" height=""30"">ID</td>"
	LINE "<td class=""tbl_head"" width=""10%"" align=""center"" height=""30"">用户名称</td>"
	LINE "<td class=""tbl_head"" width=""15%"" align=""center"" height=""30"">级别（设权）</td>"
	LINE "<td class=""tbl_head"" width=""10%"" align=""center"" height=""30"">加入日期</td>"
	LINE "<td class=""tbl_head"" width=""20%"" align=""center"" height=""30"">最后登陆时间</td>"
	LINE "<td class=""tbl_head"" width=""5%"" align=""center"" height=""30"">次数</td>"
	LINE "<td class=""tbl_head"" width=""5%"" align=""center"" height=""30"">状态</td>"
	LINE "<td class=""tbl_head"" width=""10%"" align=""center"" height=""30"">修改</td>"
	LINE "<td class=""tbl_head"" width=""10%"" align=""center"" height=""30"">删除</td>"
	LINE "</tr>"
	dim ors
	set ors = new cls_vbspage
	set ors.conn = conn
	with ors
		.pagesize = 20
		.pagename = "page"
		.dbtype = "ac"
		.rectype = 0
		.jsurl = "../inc"
		.pkey = "id"
		.field = "id,uname,addtime,LastLoginTime,LoginTimes,Admin_Is_Locked,Admin_Pop_List"
		.table = "DH654_admin"
		.condition = "id > 0"&tmp_Type
		.orderby = "id desc"
	end with
	dim ireccount,irs
		ireccount = ors.reccount()
		irs = ors.resultset()
	if ireccount < 1 then
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center""  height=""30"" colspan=""9""><font color=""red"">暂时没有用户!</font></td>"
	LINE "</tr>"
	else
	dim i
	for i = 0 to ubound(irs,2)
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" & irs(0,i) & "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" & irs(1,i) & "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30""><a href=""?do=Popedom&id=" & irs(0,i) &""">"& Popedom_List(irs(6,i)) & "</a></td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" & irs(2,i) & "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" & irs(3,i) & "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" & irs(4,i) & "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">" 
	if irs(5,i)="0" then:response.Write("<a href=""?do=Locked&id=" & irs(0,i) &"""><font color=red>锁定</font></a>"):Else:response.Write("<a href=""?do=UnLocked&id=" & irs(0,i) &""">开放</a>"):End if 
	LINE "</td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30""><input name=""submit1"" type=""button"" value=""编辑"" onclick=""window.location.href('?do=edituser&id=" & irs(0,i) & "&uname="& irs(1,i)&"');""></td>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30""><input name=""submit2"" type=""button"" value=""删除"" onclick=""if(confirm('确定要删除此用户?')){window.location.href('?do=del&id=" & irs(0,i) & "&uname="& irs(1,i)&"');}""></td>"
	LINE "</tr>"
	next
	LINE "<tr>"
	%><td bgcolor="#ffffff" align="right" height="30" colspan="9"><% = ors.showpage() %></td><%
	LINE "</tr>"
	end if
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"

select case gqv("do")
	case "adduser"
	  if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以添加用户",2)
	  Call adduser
	  Call cursor("#adduser",0)
	case "edituser"
	  if not (Check_Popedom("DH654") or (trim(gqv("uname"))=session("uname"))) then call alertbox("只有本人或超级管理员才可以修改信息",2)
	  Call edituser
	  Call cursor("#edituser",0)
	case "Popedom"
	  if not Check_Popedom("DH654") then call alertbox("只有超级管理员才可以设置用户的权限",2)
	  Call Popedom
	  Call cursor("#Popedom",0)
end select

sub adduser
	LINE "<a name=""adduser""></a>"
	LINE "<form name=""form"" action=""?do=add"" method=""post"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""10%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_top0"">添加用户</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">用户名称:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""uname"" type=""text"" value="""" style=""width:200px;""></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">用户密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""pass1"" type=""password"" value="""" style=""width:200px;""></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">确认密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""pass2"" type=""password"" value="""" style=""width:200px;""></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">安全密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""scode"" type=""password"" value="""" style=""width:200px;""></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td align=""right"" bgcolor=""#ffffff""></td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "<input name=""submit1"" type=""submit"" value=""添加用户"" onclick=""this.disabled=true;document.form.submit();"">&nbsp;"
	LINE "<input name=""submit2"" type=""reset"" value=""重新填写"">&nbsp;"
	LINE "<input name=""submit3"" type=""button"" value=""返回"" onclick=""window.history.back();"">"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</form>"
end sub

sub edituser
	dim rs,databox
	set rs = conn.execute("select top 1 * from DH654_admin where id=" & ChkNum(gqv("id")))
	if rs.eof then
		rs.close:set rs = nothing
		call alertbox("抱歉!系统没有找到相关记录!",2)
	else
		databox = rs.getrows()
		rs.close:set rs = nothing
	end if
	LINE "<a name=""edituser""></a>"
	LINE "<form name=""form"" action=""?do=edit"" method=""post"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""10%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_top0"">修改密码</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">用户名称:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""uname"" type=""text"" value=""" & databox(1,0) & """ style=""width:200px;"" readonly=""true""></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">原来密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""upass"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">必填</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">新建密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""pass1"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">不改留空</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">再次确认:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""pass2"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">不改留空</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">原安全码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""scode"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">必填</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">新安全码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""code1"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">不改留空</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" align=""right"">再次确认:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""75%""><input name=""code2"" type=""password"" value="""" style=""width:200px;"">&nbsp;<font color=""red"">不改留空</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td align=""right"" bgcolor=""#ffffff""></td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "<input name=""submit1"" type=""submit"" value=""修改密码"" onclick=""this.disabled=true;document.form.submit();"">&nbsp;"
	LINE "<input name=""submit2"" type=""reset"" value=""重新填写"">&nbsp;"
	LINE "<input name=""submit3"" type=""button"" value=""返回"" onclick=""window.history.back();"">"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</form>"
	databox = ""
end sub

sub Popedom 
    Dim id,Admin_Name,str_PopList
	set rs = server.createobject (G_654_RS)
	sql = "select * from DH654_admin where id=" & NoSqlHack(gqv("id")) & ""
	rs.open sql,conn,1,1
	id=rs("id")
	Admin_Name=rs("uname")
	str_PopList=rs("Admin_Pop_List")
	rs.close:set rs = nothing
	LINE "<a name=""Popedom""></a>"
	LINE "<form name=""PopForm"" method=""post"" action=""?do=PopedomSave"">"
	
	LINE "<table width=""99%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td align=""center"" class=""tbl_head"">多用户管理分权限发布&nbsp;&nbsp;&nbsp;&nbsp;你正在设置["&Admin_Name&"]用户的权限</td>"
	LINE "</tr>"
	LINE "</table>" 
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td class=""tbl_head"" width=""20%"" align=""center"" height=""30"">主要分类</td>"
	LINE "<td class=""tbl_head"" width=""80%"" align=""center"" height=""30"">详细分类</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">网址管理</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H001"" "
	if InStr(1,str_PopList,"H001",1)>0 then	response.Write "checked" 
	LINE ">网址添加删除"	
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H002"" "
	if InStr(1,str_PopList,"H002",1)>0 then	response.Write "checked" 
	LINE ">栏目添加删除"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H003"" "
	if InStr(1,str_PopList,"H003",1)>0 then	response.Write "checked" 
	LINE ">自助链吧"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H004"" "
	if InStr(1,str_PopList,"H004",1)>0 then	response.Write "checked" 
	LINE ">广告服务"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">网站信息</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H101"" "
	if InStr(1,str_PopList,"H101",1)>0 then	response.Write "checked" 
	LINE ">频道栏目"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H102"" "
	if InStr(1,str_PopList,"H102",1)>0 then	response.Write "checked" 
	LINE ">实用酷站"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H103"" "
	if InStr(1,str_PopList,"H103",1)>0 then	response.Write "checked" 
	LINE ">统计管理"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H104"" "
	if InStr(1,str_PopList,"H104",1)>0 then	response.Write "checked" 
	LINE ">多站面板"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">发布管理</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H201"" "
	if InStr(1,str_PopList,"H201",1)>0 then	response.Write "checked" 
	LINE ">生成管理器"
	LINE "&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H202"" "
	if InStr(1,str_PopList,"H202",1)>0 then	response.Write "checked" 
	LINE ">JS生成管理"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">工 具 箱</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H301"" "
	if InStr(1,str_PopList,"H301",1)>0 then	response.Write "checked" 
	LINE ">智能工具箱"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">会员互动</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H401"" "
	if InStr(1,str_PopList,"H401",1)>0 then	response.Write "checked" 
	LINE ">公告管理"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H402"" "
	if InStr(1,str_PopList,"H402",1)>0 then	response.Write "checked" 
	LINE ">留言管理"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H403"" "
	if InStr(1,str_PopList,"H403",1)>0 then	response.Write "checked" 
	LINE ">会员管理"
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H404"" "
	if InStr(1,str_PopList,"H404",1)>0 then	response.Write "checked" 
	LINE ">用户管理"	
	LINE "</td>"
	LINE "</tr>"
	
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">系统设置</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H501"" "
	if InStr(1,str_PopList,"H501",1)>0 then	response.Write "checked" 
	LINE ">信息设置中心"	
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H502"" "
	if InStr(1,str_PopList,"H502",1)>0 then	response.Write "checked" 
	LINE ">网站配置中心"	
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H503"" "
	if InStr(1,str_PopList,"H503",1)>0 then	response.Write "checked" 
	LINE ">模板制作"	
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H504"" "
	if InStr(1,str_PopList,"H504",1)>0 then	response.Write "checked" 
	LINE ">网址转移"	
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">辅助功能</td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H601"" "
	if InStr(1,str_PopList,"H601",1)>0 then	response.Write "checked" 
	LINE ">封锁IP段"	
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H602"" "
	if InStr(1,str_PopList,"H602",1)>0 then	response.Write "checked" 
	LINE ">登陆日记"	
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H603"" "
	if InStr(1,str_PopList,"H603",1)>0 then	response.Write "checked" 
	LINE ">数据备份"	
	LINE "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H604"" "
	if InStr(1,str_PopList,"H604",1)>0 then	response.Write "checked" 
	LINE ">执行语句"	
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30""><SPAN class=fenhong>特殊职能</SPAN></td>"
	LINE "<td bgcolor=""#ffffff"">"
	LINE "&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H701"" "
	if InStr(1,str_PopList,"H701",1)>0 then	response.Write "checked" 
	LINE ">网址录入员"	
	LINE "&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H702"" "
	if InStr(1,str_PopList,"H702",1)>0 then	response.Write "checked" 
	LINE ">网址审核员"	
	LINE "&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H703"" "
	if InStr(1,str_PopList,"H703",1)>0 then	response.Write "checked" 
	LINE ">留言回复员"	
	LINE "&nbsp;&nbsp;&nbsp;<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""H704"" "
	if InStr(1,str_PopList,"H704",1)>0 then	response.Write "checked" 
	LINE ">自助链审核员"	
	
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"">超级管理员</td>"
	LINE "<td bgcolor=""#ffffff"">&nbsp;"
	LINE "<input name=""PopList"" type=""checkbox"" id=""PopList"" value=""DH654"" "
	if InStr(1,str_PopList,"H654",1)>0 then	response.Write "checked" 
	LINE ">超级无敌管理员（有了它，你将获得至高无尚的功能！）"
	LINE "</td>"	
	LINE "</tr>"	
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" height=""30"" colspan=""2""><input name=""id"" type=""hidden"" value="""&id&"""><input type=""submit"" name=""Submit"" value=""确定设置权限"">&nbsp; <input type=""reset"" name=""Submit2"" value=""重置""></td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>" 
	LINE "</form>"
end sub%>

  <%LINE "&nbsp;<span class=fenhong style=""cursor:hand;"" onclick=""javascript:return document.all.boxhelp.style.display='block'"">帮助</span>"
	LINE "&nbsp;<span class=fenhong style=""cursor:hand;"" onclick=""javascript:return document.all.boxhelp.style.display='none'"">隐藏</span>"
    LINE "<div id=""boxhelp"" style=""display:none;"">"
    LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""middle"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td height=""50"" class=""tbl_head"">管理员管理操作说明:http://bbs.itmop.com<BR>1.这里可以添加/删除管理员，修改密码等常规操作。也可以对管理员设置权权。如该管理员只能审核网址。<BR>2.删除：点击‘批量修改栏目’按钮，在出现的修改框中输入‘×’（不含单引号）在按‘批量修改栏目’即可。</font></div></td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
    LINE "</div>"
%>
<% LOADING_ADMIN_FOOT %>
