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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
Admin_CaoZuo.Asp
资源名称：4.rar　[点击查看]
上传用户：zhbanny
上传日期：2020-11-04
资源大小：161k
文件大小：10k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

Admin_CaoZuo.Asp：源码内容
  1. <!--#Include File="../Inc/Head.Asp"--><%
  2. Private FangWen
  3. Set FangWen=New xkon_FangWen
  4. FangWen.FangWen()
  5. FangWen.Admin_Admin()
  6. Set FangWen=Nothing
  7. Call H_Title("管理站长-操作")
  8. Private c,s
  9. Private Table_Admin,Admin_Get
  10. Set c=New xkon_Response
  11. Set s=New xkon_Request
  12. Private Sub j()
  13. c.Writeln("<form method=""post"" action=""Admin_CaoZuo.Asp?l=j2"">账号:<input type=""text"" name=""ZhangHao"" />")
  14. c.Writeln("密码:<input type=""password"" name=""MiMa"" />")
  15. c.Writeln("访问后台:<input type=""checkbox"" name=""FangWen""/>")
  16. c.Writeln("修改密码:<input type=""checkbox"" name=""Admin_MiMa""/>")
  17. c.Writeln("管理站长:<input type=""checkbox"" name=""Admin_Admin""/>")
  18. c.Writeln("修改基本信息:<input type=""checkbox"" name=""Admin_JBXX""/>")
  19. c.Writeln("管理广告:<input type=""checkbox"" name=""Admin_GG""/>")
  20. c.Writeln("管理帮助,公告,制度:<input type=""checkbox"" name=""Admin_Help""/>")
  21. c.Writeln("管理头像:<input type=""checkbox"" name=""Admin_TouXiang""/>")
  22. c.Writeln("查看管理记录:<input type=""checkbox"" name=""JiLu""/>")
  23. c.Writeln("管理等级设置:<input type=""checkbox"" name=""DenJi""/>")
  24. c.Writeln("管理版块:<input type=""checkbox"" name=""BanKuai""/>")
  25. c.Writeln("管理版主:<input type=""checkbox"" name=""BanZhu""/>")
  26. c.Writeln("管理贴子:<input type=""checkbox"" name=""TieZhi""/>")
  27. c.Writeln("管理回复:<input type=""checkbox"" name=""HuiFu""/>")
  28. c.Writeln("管理会员:<input type=""checkbox"" name=""HuiYuan""/>")
  29. c.Writeln("管理消息:<input type=""checkbox"" name=""XiaoXi""/>")
  30. c.Writeln("过滤字符:<input type=""checkbox"" name=""ZiFu_GuoLv""/>")
  31. c.Writeln("管理表情:<input type=""checkbox"" name=""BiaoQing""/>")
  32. c.Writeln("备份恢复数据库:<input type=""checkbox"" name=""FangWen""/>")
  33. c.Writeln("修改提示:<input type=""checkbox"" name=""TiShi""/>")
  34. c.Writeln("修改调查:<input type=""checkbox"" name=""DiaoCha""/>")
  35. c.Writeln("群发信息:<input type=""checkbox"" name=""QunFa""/>")
  36. c.Writeln("加黑IP:<input type=""checkbox"" name=""IP""/>")
  37. c.Write("<input type=""submit"" value=""增加"" /></form>")
  38. End Sub
  39. Private Sub j2()
  40. Dim ZhangHao,MiMa,FangWen,Admin_MiMa,Admin_Admin,Admin_JBXX,Admin_GG,Admin_Help,Admin_TouXiang,JJiLu,DenJi,BanKuai,BanZhu,TieZhi,HuiFu,HuiYuan,XiaoXi,ZiFu_GuoLv,BiaoQing,Data,TiShi,DiaoCha,QunFa,IP
  41. ZhangHao=s.Form_aa("ZhangHao",4,16)
  42. MiMa=s.Form_aa("MiMa",4,16)
  43. FangWen=Checkeded(s.Form("FangWen"))
  44. Admin_MiMa=Checkeded(s.Form("Admin_MiMa"))
  45. Admin_Admin=Checkeded(s.Form("Admin_Admin"))
  46. Admin_JBXX=Checkeded(s.Form("Admin_JBXX"))
  47. Admin_GG=Checkeded(s.Form("Admin_GG"))
  48. Admin_Help=Checkeded(s.Form("Admin_Help"))
  49. Admin_TouXiang=Checkeded(s.Form("Admin_TouXiang"))
  50. JJiLu=Checkeded(s.Form("JiLu"))
  51. DenJi=Checkeded(s.Form("DenJi"))
  52. BanKuai=Checkeded(s.Form("BanKuai"))
  53. BanZhu=Checkeded(s.Form("BanZhu"))
  54. TieZhi=Checkeded(s.Form("TieZhi"))
  55. HuiFu=Checkeded(s.Form("HuiFu"))
  56. HuiYuan=Checkeded(s.Form("HuiYuan"))
  57. XiaoXi=Checkeded(s.Form("XiaoXi"))
  58. ZiFu_GuoLv=Checkeded(s.Form("ZiFu_GuoLv"))
  59. BiaoQing=Checkeded(s.Form("BiaoQing"))
  60. Data=Checkeded(s.Form("Data"))
  61. TiShi=Checkeded(s.Form("TiShi"))
  62. DiaoCha=Checkeded(s.Form("DiaoCha"))
  63. QunFa=Checkeded(s.Form("QunFa"))
  64. IP=Checkeded(s.Form("IP"))
  65. If ZhangHao="" Or MiMa="" Then
  66. Call xkon_Error("账号或密码不能为空")
  67. End If
  68. Call OpenData()
  69. Dim Cn1,Cn2,J_ID
  70. Set Cn1=Server.CreateObject("Adodb.Command")
  71. Cn1.ActiveConnection=Conn
  72. Cn1.CommandType=1
  73. Cn1.CommandText="Select ID From Admin Order By ID Desc"
  74. Set Cn2=Cn1.Execute
  75. If Cn2.Eof Then
  76. J_ID=1
  77. Else
  78. J_ID=Cn2("ID")+1
  79. End If
  80. Set Cn2=Nothing
  81. Set Cn1=Nothing
  82. Set Cn1=Server.CreateObject("Adodb.Recordset")
  83. Cn1.Open "Select * From Admin",Conn,1,2
  84. Cn1.AddNew
  85. Cn1("ID")=J_ID
  86. Cn1("ZhangHao")=ZhangHao
  87. Cn1("MiMa")=MiMa
  88. Cn1("QuanXian")=FangWen&" "&Admin_MiMa&" "&Admin_Admin&" "&Admin_JBXX&" "&Admin_GG&" "&Admin_Help&" "&Admin_TouXiang&" "&JJiLu&" "&DenJi&" "&BanKuai&" "&BanZhu&" "&TieZhi&" "&HuiFu&" "&HuiYuan&" "&XiaoXi&" "&ZiFu_GuoLv&" "&BiaoQing&" "&Data&" "&TiShi&" "&DiaoCha&" "&QunFa&" "&IP
  89. Cn1.Update
  90. Cn1.Close
  91. Set Cn1=Nothing
  92. Call JiLu("增加管理员"&J_ID)
  93. Call CloseData()
  94. Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
  95. Response.End()
  96. End Sub
  97. Private Sub b()
  98. Call OpenData()
  99. Dim Cn1,Cn2
  100. Set Cn1=Server.CreateObject("Adodb.Command")
  101. Cn1.ActiveConnection=Conn
  102. Cn1.CommandType=1
  103. Cn1.CommandText="Select * From Admin Where ID="&ID
  104. Set Cn2=Cn1.Execute
  105. If Cn2.Eof Then
  106. Call xkon_Error("该管理员不存在")
  107. End If
  108. Dim QuanXian,ZhangHao,MiMa
  109. ZhangHao=Cn2("ZhangHao")
  110. MiMa=Cn2("MiMa")
  111. QuanXian=Split(Cn2("QuanXian")," ")
  112. c.Writeln("<form method=""post"" action=""Admin_CaoZuo.Asp?l=b2&amp;id="&id&""">账号:<input type=""text"" name=""ZhangHao"" value="""&ZhangHao&""" />")
  113. c.Writeln("密码:<input type=""password"" name=""MiMa"" value="""&MiMa&""" />")
  114. c.Writeln("访问后台:<input type=""checkbox"" name=""FangWen"" "&Checked(QuanXian(0))&"/>")
  115. c.Writeln("修改密码:<input type=""checkbox"" name=""Admin_MiMa"" "&Checked(QuanXian(1))&"/>")
  116. c.Writeln("管理站长:<input type=""checkbox"" name=""Admin_Admin"" "&Checked(QuanXian(2))&"/>")
  117. c.Writeln("修改基本信息:<input type=""checkbox"" name=""Admin_JBXX"" "&Checked(QuanXian(3))&"/>")
  118. c.Writeln("管理广告:<input type=""checkbox"" name=""Admin_GG"" "&Checked(QuanXian(4))&"/>")
  119. c.Writeln("管理帮助,公告,制度:<input type=""checkbox"" name=""Admin_Help"" "&Checked(QuanXian(5))&"/>")
  120. c.Writeln("管理头像:<input type=""checkbox"" name=""Admin_TouXiang"" "&Checked(QuanXian(6))&"/>")
  121. c.Writeln("查看管理记录:<input type=""checkbox"" name=""JiLu"" "&Checked(QuanXian(7))&"/>")
  122. c.Writeln("管理等级设置:<input type=""checkbox"" name=""DenJi"" "&Checked(QuanXian(8))&"/>")
  123. c.Writeln("管理版块:<input type=""checkbox"" name=""BanKuai"" "&Checked(QuanXian(9))&"/>")
  124. c.Writeln("管理版主:<input type=""checkbox"" name=""BanZhu"" "&Checked(QuanXian(10))&"/>")
  125. c.Writeln("管理贴子:<input type=""checkbox"" name=""TieZhi"" "&Checked(QuanXian(11))&"/>")
  126. c.Writeln("管理回复:<input type=""checkbox"" name=""HuiFu"" "&Checked(QuanXian(12))&"/>")
  127. c.Writeln("管理会员:<input type=""checkbox"" name=""HuiYuan"" "&Checked(QuanXian(13))&"/>")
  128. c.Writeln("管理消息:<input type=""checkbox"" name=""XiaoXi"" "&Checked(QuanXian(14))&"/>")
  129. c.Writeln("过滤字符:<input type=""checkbox"" name=""ZiFu_GuoLv"" "&Checked(QuanXian(15))&"/>")
  130. c.Writeln("管理表情:<input type=""checkbox"" name=""BiaoQing"" "&Checked(QuanXian(16))&"/>")
  131. c.Writeln("备份恢复数据库:<input type=""checkbox"" name=""Data"" "&Checked(QuanXian(17))&"/>")
  132. c.Writeln("修改提示:<input type=""checkbox"" name=""TiShi"" "&Checked(QuanXian(18))&"/>")
  133. c.Writeln("修改调查:<input type=""checkbox"" name=""DiaoCha"" "&Checked(QuanXian(19))&"/>")
  134. c.Writeln("群发信息:<input type=""checkbox"" name=""QunFa"" "&Checked(QuanXian(20))&"/>")
  135. c.Writeln("加黑IP:<input type=""checkbox"" name=""IP"" "&Checked(QuanXian(21))&"/>")
  136. c.Write("<input type=""submit"" value=""增加"" /></form>")
  137. End Sub
  138. Private Sub b2()
  139. Dim ZhangHao,MiMa,FangWen,Admin_MiMa,Admin_Admin,Admin_JBXX,Admin_GG,Admin_Help,Admin_TouXiang,JJiLu,DenJi,BanKuai,BanZhu,TieZhi,HuiFu,HuiYuan,XiaoXi,ZiFu_GuoLv,BiaoQing,Data,TiShi,DiaoCha,QunFa,IP
  140. ZhangHao=s.Form_aa("ZhangHao",4,16)
  141. MiMa=s.Form_aa("MiMa",4,16)
  142. FangWen=Checkeded(s.Form("FangWen"))
  143. Admin_MiMa=Checkeded(s.Form("Admin_MiMa"))
  144. Admin_Admin=Checkeded(s.Form("Admin_Admin"))
  145. Admin_JBXX=Checkeded(s.Form("Admin_JBXX"))
  146. Admin_GG=Checkeded(s.Form("Admin_GG"))
  147. Admin_Help=Checkeded(s.Form("Admin_Help"))
  148. Admin_TouXiang=Checkeded(s.Form("Admin_TouXiang"))
  149. JJiLu=Checkeded(s.Form("JiLu"))
  150. DenJi=Checkeded(s.Form("DenJi"))
  151. BanKuai=Checkeded(s.Form("BanKuai"))
  152. BanZhu=Checkeded(s.Form("BanZhu"))
  153. TieZhi=Checkeded(s.Form("TieZhi"))
  154. HuiFu=Checkeded(s.Form("HuiFu"))
  155. HuiYuan=Checkeded(s.Form("HuiYuan"))
  156. XiaoXi=Checkeded(s.Form("XiaoXi"))
  157. ZiFu_GuoLv=Checkeded(s.Form("ZiFu_GuoLv"))
  158. BiaoQing=Checkeded(s.Form("BiaoQing"))
  159. Data=Checkeded(s.Form("Data"))
  160. TiShi=Checkeded(s.Form("TiShi"))
  161. DiaoCha=Checkeded(s.Form("DiaoCha"))
  162. QunFa=Checkeded(s.Form("QunFa"))
  163. IP=Checkeded(s.Form("IP"))
  164. If ZhangHao="" Or MiMa="" Then
  165. Call xkon_Error("账号或密码不能为空")
  166. End If
  167. Call OpenData()
  168. Dim Cn1
  169. Set Cn1=Server.CreateObject("Adodb.Recordset")
  170. Cn1.Open "Select * From Admin Where ID="&ID,Conn,1,2
  171. Cn1("ZhangHao")=ZhangHao
  172. Cn1("MiMa")=MiMa
  173. Dim QuanXian
  174. QuanXian=FangWen&" "&Admin_MiMa&" "&Admin_Admin&" "&Admin_JBXX&" "&Admin_GG&" "&Admin_Help&" "&Admin_TouXiang&" "&JJiLu&" "&DenJi&" "&BanKuai&" "&BanZhu&" "&TieZhi&" "&HuiFu&" "&HuiYuan&" "&XiaoXi&" "&ZiFu_GuoLv&" "&BiaoQing&" "&Data&" "&TiShi&" "&DiaoCha&" "&QunFa&" "&IP
  175. Cn1("QuanXian")=QuanXian
  176. Cn1.Update
  177. Cn1.Close
  178. Set Cn1=Nothing
  179. Call JiLu("编辑管理员"&ID)
  180. Call CloseData()
  181. Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
  182. Response.End()
  183. End Sub
  184. Private l,id
  185. id=s.QueryString_long("id")
  186. l=s.QueryString("l")
  187. Select Case l
  188. Case "b"
  189. Call b()
  190. Case "b2"
  191. Call b2()
  192. Case "s"
  193. Call OpenData()
  194. Conn.Execute("Delete From Admin Where ID="&Clng(ID))
  195. Call JiLu("删除管理员"&ID)
  196. Call CloseData()
  197. Response.Write("<script language=javascript>location.href=""Admin.Asp"";</script>")
  198. Response.End()
  199. Case "j"
  200. Call j()
  201. Case "j2"
  202. Call j2()
  203. End Select
  204. c.Writeln("<a href=""Admin.Asp"">返回管理站长</a>")
  205. Call H_End()
  206. Set c=Nothing
  207. Set s=Nothing
  208. %>