开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Master.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：24k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Master.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <!--#include file="inc/md5.asp"-->
  4. <%
  5. If Not CheckAdmin("999") Then
  6.     Server.Transfer("showerr.asp")
  7.     Response.End
  8. End If
  9. '=====================================================================
  10. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  11. '=====================================================================
  12. ' 程序名称：蓝宇网络发布系统
  13. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  14. ' 文件名称：Admin_Master.asp
  15. ' 更新日期：2007-6-5
  16. '=====================================================================
  17. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  18. ' 程序开发：蓝宇,╲、随心゛
  19. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  20. '=====================================================================
  21. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  22. '=====================================================================
  23. Dim selAdminID
  24. Dim strClass
  25. titlename="系统管理员"
  26. Admin_header
  27. Response.Write "<table cellpadding=2 cellspacing=1 border=0 class=tableBorder align=center>" & vbCrLf
  28. Response.Write " <tr>" & vbCrLf
  29. Response.Write " <th height=22 colspan=6>管理员管理</th>" & vbCrLf
  30. Response.Write " </tr>" & vbCrLf
  31. Response.Write " <tr>" & vbCrLf
  32. Response.Write " <td " & LeftClass & "> <b>管理选项：</b> <a href=admin_master.asp>管理首页</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href=admin_master.asp?action=add>添加管理员</a>"
  33. Response.Write " </td>" & vbCrLf
  34. Response.Write " </tr>" & vbCrLf
  35. Response.Write " </table><br>" & vbCrLf
  36. Action = LCase(Request("action"))
  37. Select Case Trim(Action)
  38. Case "renew"
  39.         Call UpdateFlag
  40. Case "del"
  41.         Call del
  42. Case "pasword"
  43.         Call pasword
  44. Case "newpass"
  45.         Call newpass
  46. Case "add"
  47.         Call addadmin
  48. Case "edit"
  49.         Call userinfo
  50. Case "savenew"
  51.         Call savenew
  52. Case "active"
  53.         Call ActiveLock
  54. Case Else
  55.         Call userlist
  56. End Select
  57. If FoundErr = True Then
  58.         ReturnError(ErrMsg)
  59. End If
  60. Admin_footer
  61. CloseConn
  62. Private Sub userlist()
  63.         Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
  64.         Response.Write " <tr>" & vbCrLf
  65.         Response.Write "<th><B>用户名</B></th>" & vbCrLf
  66.         Response.Write "<th><B>上次登陆时间</B></th>" & vbCrLf
  67.         Response.Write "<th><B>上次登陆IP</B></th>" & vbCrLf
  68.         Response.Write "<th><B>级别</B></th>" & vbCrLf
  69.         Response.Write "<th><B>操作</B></th>" & vbCrLf
  70.         Response.Write "<th><B>状态</B></th>" & vbCrLf
  71.         Response.Write " </tr>" & vbCrLf
  72.         Set Rs = tee5.Execute("select * from Gq_Admin order by Logintime desc")
  73.         Do While Not Rs.EOF
  74.         Response.Write " <tr>" & vbCrLf
  75.         Response.Write " <td " & CenterClass & "><a href=""?id="
  76.         Response.Write Rs("id")
  77.         Response.Write "&action=edit"">"
  78.         Response.Write Rs("AdminName")
  79.         Response.Write "</a></td>" & vbCrLf
  80.         Response.Write "<td align=center " & CenterClass & ">"
  81.         Response.Write Rs("Logintime")
  82.         Response.Write "</td>" & vbCrLf
  83.         Response.Write "<td align=center " & CenterClass & ">"
  84.         Response.Write Rs("Loginip")
  85.         Response.Write "</td>" & vbCrLf
  86.         Response.Write "<td align=center " & CenterClass & ">"
  87.         If Rs("status")="高级管理员" then
  88.         Response.Write "<font color=red>"
  89.         Response.Write Rs("status")
  90.         Response.Write "</font>"
  91.         Else
  92.         Response.Write Rs("status")
  93.         End If
  94.         Response.Write "</td>" & vbCrLf
  95.         Response.Write "<td align=center " & CenterClass & "><a href=""?action=Active&id=" & Rs("id") & "&lock="
  96.         If Rs("isLock") = 0 Then
  97.                 Response.Write "1"" onclick=""return confirm('您确定要锁定此管理员吗?')"">锁定管理员</a> | "
  98.         Else
  99.                 Response.Write "0"" onclick=""return confirm('您确要激活此管理员吗?')"">激活管理员</a> | "
  100.         End If
  103.         Response.Write "<a href=""?id="
  104.         Response.Write Rs("id")
  105.         Response.Write "&action=pasword"" title='修改管理员信息'>"
  106.         Response.Write "修改</a>&nbsp;|&nbsp;"
  107.         Response.Write "<a href=""?action=del&id="
  108.         Response.Write Rs("id")
  109.         Response.Write "&name="
  110.         Response.Write Rs("AdminName")
  111.         Response.Write """ onclick=""return confirm('此操作将删除该管理员n 您确定执行此操作吗?')"">删除</a>&nbsp;|&nbsp;<a href=""?id="
  112.         Response.Write Rs("id")
  113.         Response.Write "&action=edit"">编辑权限</a></td>" & vbCrLf
  114.         Response.Write "<td align=center " & CenterClass & ">"
  115.         If Rs("isLock") = 0 Then
  116.                 Response.Write "正常"
  117.         Else
  118.                 Response.Write "<font color=red>锁定<font>"
  119.         End If
  120.         Response.Write "</td>" & vbCrLf
  121.         Response.Write " </tr>" & vbCrLf
  122.         Rs.movenext
  123.         i = i + 1
  124.         Loop
  125.         Rs.Close
  126.         Set Rs = Nothing
  127.         Response.Write " </table>" & vbCrLf
  128. End Sub
  130. Private Sub del()
  131.         If Trim(Request("id")) <> "" Then
  132.         tee5.Execute ("delete from Gq_Admin where AdminName<>'" & LoginName & "' And id=" & Request("id"))
  133.         Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
  134.         Else
  135.         ErrMsg = "<li>错误的系统参数！</li>"
  136.         Founderr = True
  137.         Exit Sub
  138.         End If
  139. End Sub
  141. Private Sub ActiveLock()
  142.         If Trim(Request("lock")) <> "" And Trim(Request("id")) <> "" Then
  143.         tee5.Execute ("update Gq_Admin set isLock="&Request("lock")&" where AdminName<>'" & LoginName & "' And id=" & Request("id"))
  144.         Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
  145.         Else
  146.         ErrMsg = "<li>错误的系统参数！</li>"
  147.         Founderr = True
  148.         Exit Sub
  149.         End If
  150. End Sub
  152. Private Sub pasword()
  153.         Dim oldpassword
  154.         If Not CheckAdmin("9999") Then
  155.         ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
  156.         Founderr = True
  157.         Exit Sub
  158.         End If
  159.         Set Rs = tee5.Execute("select * from Gq_Admin where id=" & Request("id"))
  160.         oldpassword = Rs("password")
  161.         Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
  162.         Response.Write "<form action=""?action=newpass"" method=post>" & vbCrLf
  163.         Response.Write " <tr>" & vbCrLf
  164.         Response.Write " <th colspan=2 height=23>管理员资料管理－－密码修改" & vbCrLf
  165.         Response.Write " </th>" & vbCrLf
  166.         Response.Write " </tr>" & vbCrLf
  167.         Response.Write " <tr >" & vbCrLf
  168.         Response.Write " <td width=""26%"" " & RightClass & ">后台登陆名称：</td>" & vbCrLf
  169.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  170.         Response.Write " <input type=hidden name=""oldLoginName"" value="""
  171.         Response.Write Rs("AdminName")
  172.         Response.Write """>" & vbCrLf
  173.         Response.Write " <input type=text size=25 name=""LoginName2"" value="""
  174.         Response.Write Rs("AdminName")
  175.         Response.Write """>" & vbCrLf
  176.         Response.Write " </td>" & vbCrLf
  177.         Response.Write " </tr>" & vbCrLf
  178.         Response.Write " <tr >" & vbCrLf
  179.         Response.Write " <td width=""26%"" " & RightClass & ">后台登陆密码：</td>" & vbCrLf
  180.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  181.         Response.Write " <input type=""password"" size=25 name=""password2"">"
  182.         Response.Write " (如果不修改密码请留空)" & vbCrLf
  183.         Response.Write " </td>" & vbCrLf
  184.         Response.Write " </tr>" & vbCrLf
  185.         Response.Write " <tr>" & vbCrLf
  186.         Response.Write " <td width=""26%"" " & RightClass & ">管理员级别：</td>" & vbCrLf
  187.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  188.         Response.Write " <input type=radio name=AdminGrade value='0' "
  189.         If Rs("AdminGrade") = 0 Then Response.Write " checked"
  190.         Response.Write " > 普通管理员&nbsp;&nbsp;" & vbCrLf
  191.         Response.Write " <input type=radio name=AdminGrade value='999' "
  192.         If Rs("AdminGrade") = 999 Then Response.Write " checked"
  193.         Response.Write " > 高级管理员 （拥有最高权限）" & vbCrLf
  194.         Response.Write " </td>" & vbCrLf
  195.         Response.Write " </tr>" & vbCrLf
  196.         Response.Write " <tr>" & vbCrLf
  197.         Response.Write " <td " & RightClass & ">是否激活管理员：</td>" & vbCrLf
  198.         Response.Write " <td " & LeftClass & ">" & vbCrLf
  199.         Response.Write " <input type=radio name=isLock value='1' "
  200.         If Rs("isLock") = 1 Then Response.Write " checked"
  201.         Response.Write " > 否&nbsp;&nbsp;" & vbCrLf
  202.         Response.Write " <input type=radio name=isLock value='0' "
  203.         If Rs("isLock") = 0 Then Response.Write " checked"
  204.         Response.Write " > 是" & vbCrLf
  205.         Response.Write " </td>" & vbCrLf
  206.         Response.Write " </tr>" & vbCrLf
  207.         Response.Write " <tr>" & vbCrLf
  208.         Response.Write " <td " & RightClass & ">限制一个管理员登陆：</td>" & vbCrLf
  209.         Response.Write " <td " & LeftClass & ">" & vbCrLf
  210.         Response.Write " <input type=radio name=isAloneLogin value='0' "
  211.         If Rs("isAloneLogin") = 0 Then Response.Write " checked"
  212.         Response.Write " > 否&nbsp;&nbsp;" & vbCrLf
  213.         Response.Write " <input type=radio name=isAloneLogin value='1' "
  214.         If Rs("isAloneLogin") = 1 Then Response.Write " checked"
  215.         Response.Write " > 是" & vbCrLf
  216.         Response.Write " </td>" & vbCrLf
  217.         Response.Write " </tr>" & vbCrLf
  218.         Response.Write " <tr align=""center"">" & vbCrLf
  219.         Response.Write " <td colspan=""2"" " & CenterClass & ">" & vbCrLf
  220.         Response.Write " <input type=hidden name=id value="""
  221.         Response.Write Request("id")
  222.         Response.Write """>" & vbCrLf
  223.         Response.Write " <input type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一页' class=Button> <input type=""submit"" name=""Submit"" value="" 更 新 "" class=""button"">" & vbCrLf
  224.         Response.Write " </td>" & vbCrLf
  225.         Response.Write " </tr>" & vbCrLf
  226.         Response.Write " </form>" & vbCrLf
  227.         Response.Write " </table>" & vbCrLf
  228. Rs.Close
  229. Set Rs = Nothing
  230. End Sub
  232. Private Sub newpass()
  233.         Dim passnw
  234.         Dim usernw
  235.         Dim aduser
  236.         Dim oldpassword
  237.         If Not CheckAdmin("9999") Then
  238.         ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
  239.         Founderr = True
  240.         Exit Sub
  241.         End If
  242.         Set Rs = tee5.Execute("select * from Gq_Admin where id=" & Request("id"))
  243.         oldpassword = Rs("password")
  244.         If Request("LoginName2") = "" Then
  245.         ErrMsg = "<li>请输入管理员名字。<a href=?>［ <font color=red>返回</font> ］</a>"
  246.         Founderr = True
  247.         Exit Sub
  248.         Else
  249.         usernw = Trim(Request("LoginName2"))
  250.         End If
  251.         If Request("password2") = "" Then
  252.         passnw = "没有修改"
  253.         Else
  254.         passnw = Request("password2")
  255.         End If
  256.         Set Rs = CreateObject("adodb.recordset")
  257.         SQL = "select * from Gq_Admin where AdminName='" & Trim(Request("oldLoginName")) & "'"
  258.         Rs.Open SQL, conn, 1, 3
  259.         If Not Rs.EOF And Not Rs.bof Then
  260.         Rs("AdminName") = usernw
  261.         If Request("password2") <> "" Then Rs("password") = md5(Request("password2"))
  262.         If CInt(Request.Form("AdminGrade")) = 999 Then
  263.                 Rs("status") = "高级管理员"
  264.         Else
  265.                 Rs("status") = "普通管理员"
  266.         End If
  267.         Rs("AdminGrade") = Request.Form("AdminGrade")
  268.         Rs("isLock") = Request.Form("isLock")
  269.         Rs("isAloneLogin") = Request.Form("isAloneLogin")
  270.         Succeed ("<li>管理员资料更新成功，请记住更新信息。<br> 管理员名称：" & Request("LoginName2") & " <BR> 管理员密码：" & passnw & "")
  271.         Rs.update
  272.         End If
  273.         Rs.Close
  274.         Set Rs = Nothing        
  275. End Sub
  277. Private Sub addadmin()
  278.         If Not CheckAdmin("9999") Then
  279.         ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
  280.         Founderr = True
  281.         Exit Sub
  282.         End If
  283.         Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
  284.         Response.Write "<form action=""?action=savenew"" method=post>" & vbCrLf
  285.         Response.Write " <tr>" & vbCrLf
  286.         Response.Write " <th colspan=2 height=23>管理员管理－－添加管理员" & vbCrLf
  287.         Response.Write " </th>" & vbCrLf
  288.         Response.Write " </tr>" & vbCrLf
  289.         Response.Write " <tr >" & vbCrLf
  290.         Response.Write " <td width=""26%"" " & RightClass & ">后台登陆名称：</td>" & vbCrLf
  291.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  292.         Response.Write " <input type=text name=""LoginName2"">" & vbCrLf
  293.         Response.Write " </td>" & vbCrLf
  294.         Response.Write " </tr>" & vbCrLf
  295.         Response.Write " <tr>" & vbCrLf
  296.         Response.Write " <td width=""26%"" " & RightClass & ">后台登陆密码：</td>" & vbCrLf
  297.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  298.         Response.Write " <input type=""password"" name=""password2"">" & vbCrLf
  299.         Response.Write " </td>" & vbCrLf
  300.         Response.Write " </tr>" & vbCrLf
  301.         Response.Write " <tr>" & vbCrLf
  302.         Response.Write " <td width=""26%"" " & RightClass & ">管理员级别：</td>" & vbCrLf
  303.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  304.         Response.Write " <input type=radio name=AdminGrade value='0' checked> 普通管理员&nbsp;&nbsp;" & vbCrLf
  305.         Response.Write " <input type=radio name=AdminGrade value='999'> 高级管理员 （拥有最高权限）" & vbCrLf
  306.         Response.Write " </td>" & vbCrLf
  307.         Response.Write " </tr>" & vbCrLf
  308.         Response.Write " <tr>" & vbCrLf
  309.         Response.Write " <td " & RightClass & ">限制一个管理员登陆：</td>" & vbCrLf
  310.         Response.Write " <td " & LeftClass & ">" & vbCrLf
  311.         Response.Write " <input type=radio name=isAloneLogin value='0' checked> 否&nbsp;&nbsp;" & vbCrLf
  312.         Response.Write " <input type=radio name=isAloneLogin value='1'> 是" & vbCrLf
  313.         Response.Write " </td>" & vbCrLf
  314.         Response.Write " </tr>" & vbCrLf
  315.         Response.Write " <tr>" & vbCrLf
  316.         Response.Write " <td width=""26%"" " & RightClass & ">是否激活管理员：</td>" & vbCrLf
  317.         Response.Write " <td width=""74%"" " & LeftClass & ">" & vbCrLf
  318.         Response.Write " <input type=radio name=isLock value='1' checked> 否&nbsp;&nbsp;" & vbCrLf
  319.         Response.Write " <input type=radio name=isLock value='0'> 是" & vbCrLf
  320.         Response.Write " </td>" & vbCrLf
  321.         Response.Write " </tr>" & vbCrLf
  322.         Response.Write " <tr align=""center"">" & vbCrLf
  323.         Response.Write " <td colspan=""2"" " & CenterClass & ">" & vbCrLf
  324.         Response.Write " <input type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一页' class=Button>  <input type=""submit"" name=""Submit"" value="" 添 加 "" class=""button"">" & vbCrLf
  325.         Response.Write " </td>" & vbCrLf
  326.         Response.Write " </tr>" & vbCrLf
  327.         Response.Write " </form>" & vbCrLf
  328.         Response.Write " </table>" & vbCrLf
  329. End Sub
  331. Private Sub savenew()
  332.         Dim adminuserid
  333.         If Not CheckAdmin("9999") Then
  334.         ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
  335.         Founderr = True
  336.         Exit Sub
  337.         End If
  338.         If Request.Form("LoginName2") = "" Then
  339.         ErrMsg = "请输入后台登陆用户名！"
  340.         Founderr = True
  341.         Exit Sub
  342.         Else
  343.         adminuserid = Request.Form("LoginName2")
  344.         End If
  345.         If Request.Form("password2") = "" Then
  346.         ErrMsg = "请输入后台登陆密码！"
  347.         Founderr = True
  348.         Exit Sub
  349.         End If
  350.         Set Rs = tee5.Execute("select AdminName from Gq_Admin where AdminName='" & Replace(Request.Form("LoginName2"), "'", "") & "'")
  351.         If Not (Rs.EOF And Rs.bof) Then
  352.         ErrMsg = "您输入的用户名已经在管理用户中存在！"
  353.         Founderr = True
  354.         Exit Sub
  355.         End If
  356.         Set Rs = Server.CreateObject("adodb.recordset")
  357.         SQL = "select * from Gq_Admin where (id is null)"
  358.         Rs.open SQL,conn,1,3
  359.         Rs.addnew
  360.         Rs("AdminName") = Replace(Request.Form("LoginName2"), "'", "")
  361.         If CInt(Request.Form("AdminGrade")) = 999 Then
  362.                 Rs("status") = "高级管理员"
  363.         Else
  364.                 Rs("status") = "普通管理员"
  365.         End If
  366.         Rs("password") = md5(Request.Form("password2"))
  367.         Rs("isLock") = Request.Form("isLock")
  368.         Rs("AdminGrade") = Request.Form("AdminGrade")
  369.         Rs("Authority") = ",,,,,,,,,,,,,,,"
  370.         Rs("LoginTime") = Now()
  371.         Rs("Loginip") = tee5.GetUserIP
  372.         Rs("RandomCode") = tee5.GetRandomCode
  373.         Rs("isAloneLogin") = Request.Form("isAloneLogin")
  374.         Rs.update
  375.         Rs.close:set Rs=Nothing
  376.         Succeed ("添加成功，请到管理员管理给予相应的权限，如需修改请返回管理员管理！<br> 管理员名称：" & adminuserid & "<br> 管理员密码：" & Request.Form("password2") & "")
  377. End Sub
  379. Private Sub userinfo()
  380.         Dim AdminFlag,rsChannel
  381.         Dim ChanID,ModuleName,strModules
  382.         Set Rs = tee5.Execute("SELECT id,Authority FROM Gq_Admin WHERE id=" & Request("id"))
  383.         AdminFlag = Rs("Authority")
  384.         Rs.Close
  385.         Set Rs = Nothing
  386.         Response.Write " <table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbCrLf
  387.         Response.Write "  <tr>" & vbCrLf
  388.         Response.Write " <th colspan=6>管理员权限管理(请选择相应的权限分配给管理员)</th>" & vbCrLf
  389.         Response.Write " </tr>" & vbCrLf
  390.         Response.Write " <form name=myform method=post action=?action=renew>" & vbCrLf
  391.         Response.Write " <input type=hidden name=id value=""" & Request("id") & """>" & vbCrLf
  392.         Response.Write "  <tr>" & vbCrLf
  393.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  394.         Response.Write "value=""SiteConfig"" "
  395.            If InStr(AdminFlag, "SiteConfig") <> 0 Then Response.Write "checked"
  396.         Response.Write " > 系统设置</td>" & vbCrLf
  397.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  398.         Response.Write "value=""GameType"" "
  399.            If InStr(AdminFlag, "GameType") <> 0 Then Response.Write "checked"
  400.         Response.Write "> 游戏类型</td>" & vbCrLf
  401.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  402.         Response.Write "value=""MenuList"" "
  403.            If InStr(AdminFlag, "MenuList") <> 0 Then Response.Write "checked"
  404.         Response.Write "> 导航管理</td>" & vbCrLf
  405.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  406.         Response.Write "value=""Advertise"" "
  407.            If InStr(AdminFlag, "Advertise") <> 0 Then Response.Write "checked"
  408.         Response.Write "> 广告管理</td>" & vbCrLf
  409.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  410.         Response.Write "value=""CreateHtml"" "
  411.            If InStr(AdminFlag, "CreateHtml") <> 0 Then Response.Write "checked"
  412.         Response.Write "> 生成HTML</td>" & vbCrLf
  413.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  414.         Response.Write "value=""Copyright"" "
  415.            If InStr(AdminFlag, "Copyright") <> 0 Then Response.Write "checked"
  416.         Response.Write "> 版权设置</td>" & vbCrLf
  417.         Response.Write "</tr>" & vbCrLf
  418.         Response.Write "  <tr>" & vbCrLf
  419.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  420.         Response.Write "value=""GameList"" "
  421.            If InStr(AdminFlag, "GameList") <> 0 Then Response.Write "checked"
  422.         Response.Write " > 私服管理</td>" & vbCrLf
  423.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  424.         Response.Write "value=""AddGameList"" "
  425.            If InStr(AdminFlag, "AddGameList") <> 0 Then Response.Write "checked"
  426.         Response.Write "> 添加私服</td>" & vbCrLf
  427.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  428.         Response.Write "value=""GameColl"" "
  429.            If InStr(AdminFlag, "GameColl") <> 0 Then Response.Write "checked"
  430.         Response.Write "> 私服采集</td>" & vbCrLf
  431.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  432.         Response.Write "value=""JzList"" "
  433.            If InStr(AdminFlag, "JzList") <> 0 Then Response.Write "checked"
  434.         Response.Write "> 家族管理</td>" & vbCrLf
  435.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  436.         Response.Write "value=""ArticleList"" "
  437.            If InStr(AdminFlag, "ArticleList") <> 0 Then Response.Write "checked"
  438.         Response.Write "> 文章管理</td>" & vbCrLf
  439.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  440.         Response.Write "value=""SoftList"" "
  441.            If InStr(AdminFlag, "SoftList") <> 0 Then Response.Write "checked"
  442.         Response.Write "> 下载管理</td>" & vbCrLf
  443.         Response.Write "</tr>" & vbCrLf
  444.         Response.Write "  <tr>" & vbCrLf
  445.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  446.         Response.Write "value=""BackupData"" "
  447.            If InStr(AdminFlag, "BackupData") <> 0 Then Response.Write "checked"
  448.         Response.Write " > 数据备份</td>" & vbCrLf
  449.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  450.         Response.Write "value=""RestoreData"" "
  451.            If InStr(AdminFlag, "RestoreData") <> 0 Then Response.Write "checked"
  452.         Response.Write "> 数据恢复</td>" & vbCrLf
  453.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  454.         Response.Write "value=""CompressData"" "
  455.            If InStr(AdminFlag, "CompressData") <> 0 Then Response.Write "checked"
  456.         Response.Write "> 数据压缩</td>" & vbCrLf
  457.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  458.         Response.Write "value=""SpaceSize"" "
  459.            If InStr(AdminFlag, "SpaceSize") <> 0 Then Response.Write "checked"
  460.         Response.Write "> 空间占用</td>" & vbCrLf
  461.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  462.         Response.Write "value=""FriendLink"" "
  463.            If InStr(AdminFlag, "FriendLink") <> 0 Then Response.Write "checked"
  464.         Response.Write "> 连接管理</td>" & vbCrLf
  465.         Response.Write " <td " & LeftClass & "><input type=""checkbox"" name=""AdminFlag"" "
  466.         Response.Write "value=""ChangePassword"" "
  467.            If InStr(AdminFlag, "ChangePassword") <> 0 Then Response.Write "checked"
  468.         Response.Write "> 修改密码</td>" & vbCrLf
  469.         Response.Write "</tr>" & vbCrLf
  470.         Response.Write " <tr>" & vbCrLf
  471.         Response.Write "<td colspan=6 " & CenterClass & ">" & vbCrLf
  472.         Response.Write "<input class=Button type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一页'> 　　" & vbCrLf
  473. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  474. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  475. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  476.         Response.Write "<input class=Button type=""submit"" name=""Submit"" value=""更新管理员权限""></td>" & vbCrLf
  477.         Response.Write "</tr>" & vbCrLf
  478.         Response.Write "</form>" & vbCrLf
  479.         Response.Write "</table>" & vbCrLf
  480. End Sub
  481. Private Sub UpdateFlag()
  482.         Dim Sucmsg
  483.         Set Rs = Server.CreateObject("adodb.recordset")
  484.         SQL = "SELECT * FROM Gq_Admin WHERE id=" & Request("id")
  485.         Rs.Open SQL, conn, 1, 3
  486.         If Not (Rs.EOF And Rs.BOF) Then
  487.         Rs("Authority") = Replace(Replace(Request("AdminFlag"), "'", ""), " ", "")
  488.         Rs.update
  489.         End If
  490.         Rs.Close
  491.         Set Rs = Nothing
  492.         Sucmsg = "<li>管理员更新成功，请记住更新信息。"
  493.         Succeed (Sucmsg)
  494. End Sub
  495. %>