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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多媒体编程 > 查看源码
purview.asp
资源名称：1.rar　[点击查看]
上传用户：ziqing_518
上传日期：2022-08-09
资源大小：446k
文件大小：15k
源码类别：

多媒体编程

开发平台：

ASP/ASPX

purview.asp：源码内容
  1. <!--#include file="users.asp" -->
  2. <!--#include file="config.asp" -->
  3. <!--#include file="../md5.asp" -->
  4. <!--#include file="cookies.asp" -->
  5. <%
  6. if rs4("boolUser")=False then
  7. Response.Redirect "index.asp"
  8. end if
  9. end if
  10. rs.close
  11. set rs=nothing
  12. end if
  13. %>
  14. <!--#include file="function.asp" -->
  15. <!--#include file="code.asp" -->
  16. <!--#include file="first.asp" -->
  17. <table border=0 cellspacing=0 style='border-collapse:collapse' width=735 height=233 cellpadding=3>
  18. <tr>
  19. <td width=185 valign=top>
  20. <!--#include file="inc.asp" -->
  21. </td>
  22. <td width=550 valign=top>
  23. <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
  24. <%
  25. dim strUseridEdit(1,16)
  26. select case Request.QueryString("post")
  27. case "add"
  28. if Request.QueryString("save")<>"ok" then
  29. strTitle="添加自定义权限"
  30. strSubmit="执行添加"
  31. posSubmit="purview.asp?post=add&save=ok"
  32. else
  33. dim str(14)
  34. str(0)="boolAdmin"
  35. str(1)="boolAdd"
  36. str(2)="boolDel"
  37. str(3)="boolOrtherDel"
  38. str(4)="boolAllDel"
  39. str(5)="boolTatt"
  40. str(6)="boolMoney"
  41. str(7)="boolAllSort"
  42. str(8)="strOneSmall"
  43. str(9)="boolAD"
  44. str(10)="boolConfig"
  45. str(11)="boolUser"
  46. str(12)="boolReview"
  47. str(13)="boolAff"
  48. str(14)="boolLink"
  49. for i= 0 to 14
  50. if i<>"8" then
  51. if request.form(""& str(i) &"")="" then
  52. response.write("除了分类/名称以外的选项不能为空,请返回重新填写")
  53. response.end
  54. end if
  55. end if
  56. next
  57. set rs=conn.execute("select * from config order by id desc")
  58. strAname=int(rs("id"))+1
  59. strAname="自定义"&strAname
  60. conn.execute("insert into config(strAname,boolAdmin,boolAdd,boolDel,boolOrtherDel,boolAllDel,boolTatt,boolMoney,boolAllSort,strOneSmall,boolAD,boolConfig,boolUser,boolReview,boolAff,boolLink) values('"& strAname &"',"& request.form("boolAdmin") &","& request.form("boolAdd") &","& request.form("boolDel") &","& request.form("boolOrtherDel") &","& request.form("boolAllDel") &","& request.form("boolTatt") &","& request.form("boolMoney") &","& request.form("boolAllSort") &",'"& request.form("strOneSmall") &"',"& request.form("boolAD") &","& request.form("boolConfig") &","& request.form("boolUser") &","& request.form("boolReview") &","& request.form("boolAff") &","& request.form("boolLink") &")")
  61. if Request.QueryString("Userid")<>"" then
  62. set rs=conn.execute("select * from config order by id desc")
  63. numID=rs("id")
  64. conn.execute("update admin set qx="& numID &" where admin='"& Request.QueryString("Userid") &"'")
  65. response.write("管理员"& Request.QueryString("Userid") &"权限编辑完成,同时增加权限:"& strAname &"<br>")
  66. end if
  67. set rs=nothing
  68. Response.write("操作完成，2秒钟后返回<META HTTP-EQUIV=REFRESH CONTENT='2;URL=purview.asp'>")
  69. response.end
  70. end if
  71. case "edit"
  72. if Request.QueryString("save")<>"ok" then
  73. if Request.QueryString("Userid")<>"" and Request.QueryString("id")="" then
  74. strTitle="编辑"& Request.QueryString("Userid") &"用户的权限"
  75. strSubmit="提交编辑"
  76. posSubmit="purview.asp?post=edit&save=ok&Userid="& Request.QueryString("Userid")
  77. set rs=conn.execute("select * from admin where admin='"& Request.QueryString("Userid") &"'")
  78. numQx=int(rs("qx"))
  79. set rs=conn.execute("select * from config where id="&numQx)
  80. for i = 0 to 16
  81. Select case rs(i)
  82. case "False"
  83. strUseridEdit(0,i)="checked"
  84. case "True"
  85. strUseridEdit(1,i)="checked"
  86. case else
  87. strUseridEdit(0,i)=rs(i)
  88. end select
  89. next
  90. set rs=nothing
  91. elseif Request.QueryString("id")<>"" and Request.QueryString("Userid")="" then
  92. strTitle="编辑权限"
  93. strSubmit="提交编辑"
  94. posSubmit="purview.asp?post=edit&save=ok&id="& Request.QueryString("id")
  95. set rs=conn.execute("select * from config where id="&int(Request.QueryString("id")))
  96. for i = 0 to 16
  97. Select case rs(i)
  98. case "False"
  99. strUseridEdit(0,i)="checked"
  100. case "True"
  101. strUseridEdit(1,i)="checked"
  102. case else
  103. strUseridEdit(0,i)=rs(i)
  104. end select
  105. next
  106. set rs=nothing
  107. else
  108. response.write("程序操作失败,请确认程序是否运行正确")
  109. response.end
  110. end if
  111. else
  112. if Request.QueryString("Userid")<>"" and Request.QueryString("id")="" then
  113. response.write("<form name=""PurviewFroms"" method=""post"" action=""purview.asp?post=add&save=ok&Userid="& Request.QueryString("Userid") &"""><input type='hidden' name='boolAdmin' value='"& request.form("boolAdmin") &"'><input type='hidden' name='boolAdd' value='"& request.form("boolAdd") &"'><input type='hidden' name='boolDel' value='"& request.form("boolDel") &"'><input type='hidden' name='boolOrtherDel' value='"& request.form("boolOrtherDel") &"'><input type='hidden' name='boolAllDel' value='"& request.form("boolAllDel") &"'><input type='hidden' name='boolTatt' value='"& request.form("boolTatt") &"'><input type='hidden' name='boolMoney' value='"& request.form("boolMoney") &"'><input type='hidden' name='boolAllSort' value='"& request.form("boolAllSort") &"'><input type='hidden' name='strOneSmall' value='"& request.form("strOneSmall") &"'><input type='hidden' name='boolAD' value='"& request.form("boolAD") &"'><input type='hidden' name='boolConfig' value='"& request.form("boolConfig") &"'><input type='hidden' name='boolUser' value='"& request.form("boolUser") &"'><input type='hidden' name='boolReview' value='"& request.form("boolReview") &"'><input type='hidden' name='boolAff' value='"& request.form("boolAff") &"'><input type='hidden' name='boolLink' value='"& request.form("boolLink") &"'>由于数据库未预存该用户的管理权限,请点击<a href=javascript:document.PurviewFroms.submit()><b>确定</b></a>自动添加</form>")
  114. response.end
  115. elseif Request.QueryString("id")<>"" and Request.QueryString("Userid")="" then
  116. if Request.QueryString("id")<="1" then
  117. response.write("对不起,超级管理员权限不能进行编辑")
  118. else
  119. conn.execute("update [config] set boolAdmin="& Request.Form("boolAdmin") &",boolAdd="& Request.Form("boolAdd") &",boolDel="& Request.Form("boolDel") &",boolOrtherDel="& Request.Form("boolOrtherDel") &",boolAllDel="& Request.Form("boolAllDel") &",boolTatt="& Request.Form("boolTatt") &",boolMoney="& Request.Form("boolMoney") &",boolAllSort="& Request.Form("boolAllSort") &",strOneSmall='"& Request.Form("strOneSmall") &"',boolAD="& Request.Form("boolAD") &",boolConfig="& Request.Form("boolConfig") &",boolUser="& Request.Form("boolUser") &",boolReview="& Request.Form("boolReview") &",boolAff="& Request.Form("boolAff") &",boolLink="& Request.Form("boolLink") &" where id="& Request.QueryString("id"))
  120. Response.write("操作完成，2秒钟后返回<META HTTP-EQUIV=REFRESH CONTENT='2;URL=purview.asp'>")
  121. end if
  122. response.end
  123. else
  124. response.write("程序操作失败,请确认程序是否运行正确")
  125. response.end
  126. end if
  127. end if
  129. case "del"
  130. if Request.QueryString("id")<>"" and Request.QueryString("Userid")="" then
  131. if Request.QueryString("id")<="5" then
  132. response.write("对不起,默认的5项管理员权限不能进行删除操作")
  133. else
  134. conn.execute("delete from admin where qx="&Request.QueryString("id"))
  135. conn.execute("delete from config where id="&Request.QueryString("id"))
  136. response.write("操作完成，2秒钟后返回"&_
  137. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=purview.asp'>")
  138. end if
  139. response.end
  140. else
  141. response.write("程序操作失败,请确认程序是否运行正确")
  142. response.end
  143. end if
  144. case else
  145. %>
  146. <table border="0" width="100%" cellspacing="1" cellpadding="2" bgcolor="#000000">
  147.   <tr>
  148.     <td width="100%" align="center" bgcolor="#E3E3E3" colspan="2"><b>--==权限列表==--</b></td>
  149.   </tr>
  150.   <tr>
  151.     <td width="100%" bgcolor="#F3F3F3" colspan="2">
  152. <%
  153. Set rs =Server.CreateObject("ADODB.Recordset")
  154. sql="select * from config"
  155. rs.open sql,conn,1,1
  156. if rs.eof then
  157. response.write("程序运行错误,确认是否正确上传程序")
  158. else
  159. do while not rs.eof
  160. response.write("<li>"& rs("strAname") &" <a href=purview.asp?post=edit&id="& rs("id") &">编辑</a>|<a href=purview.asp?post=del&id="& rs("id") &" onclick=""{if(confirm('您确定执行的操作吗?n删除该权限会同时删除该权限下的管理员!!!n如果还需要该权限下的管理员,请转移后再操作')){return true;}return false;}"">删除</a>")
  161. rs.movenext
  162. loop
  163. end if
  164. rs.close
  165. set rs=nothing
  166. %>
  167. <p align="center"><a href=purview.asp?post=add>点这添加自定义管理员</a></p>
  168. </td>
  169.   </tr>
  170. </table>
  171. </table>
  172. </td>
  173. </tr>
  174. </table>
  175. <br><hr width=735>
  176. <center>
  177. <%
  178. response.end
  179. end select
  180. %>
  181. <form name="PurviewFrom" method="post" action="<%=posSubmit%>">
  182.   <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
  183.     <tr align="center" bgcolor="#E0E0E0"> 
  184.       <td colspan="2"><%=strTitle%></td>
  185.     </tr>
  186.     <tr bgcolor="#FFFFFF"> 
  187.       <td width="25%" bgcolor="#FFFFFF">设定名称</td>
  188.       <td width="75%"><input name="strAname" type="text" id="strAname" size="20" maxlength="20" value="<%=strUseridEdit(0,1)%>" readonly style='color:#000000; border:0px; background-color:#FFFFFF'></td>
  189.     </tr>
  190.     <tr bgcolor="#FFFFFF"> 
  191.       <td bgcolor="#FFFFFF">后台登陆</td>
  192.       <td><input name="boolAdmin" type="radio" value="True" <%=strUseridEdit(1,2)%>>
  193.         是 
  194.         <input type="radio" name="boolAdmin" value="False" <%=strUseridEdit(0,2)%>>
  195.         否</td>
  196.     </tr>
  197.     <tr bgcolor="#FFFFFF"> 
  198.       <td width="25%" bgcolor="#FFFFFF">添加影片</td>
  199.       <td width="75%"><input name="boolAdd" type="radio" value="True" <%=strUseridEdit(1,3)%>>
  200.         是 
  201.         <input type="radio" name="boolAdd" value="False" <%=strUseridEdit(0,3)%>>
  202.         否</td>
  203.     </tr>
  204.     <tr bgcolor="#FFFFFF"> 
  205.       <td width="25%" bgcolor="#FFFFFF">删除/编辑(个人)</td>
  206.       <td width="75%"><input name="boolDel" type="radio" value="True" <%=strUseridEdit(1,4)%>>
  207.         是 
  208.         <input type="radio" name="boolDel" value="False" <%=strUseridEdit(0,4)%>>
  209.         否</td>
  210.     </tr>
  211.     <tr bgcolor="#FFFFFF"> 
  212.       <td width="25%" bgcolor="#FFFFFF">删除/编辑(全体)</td>
  213.       <td width="75%"><input name="boolOrtherDel" type="radio" value="True" <%=strUseridEdit(1,5)%>>
  214.         是 
  215.         <input type="radio" name="boolOrtherDel" value="False" <%=strUseridEdit(0,5)%>>
  216.         否</td>
  217.     </tr>
  218.     <tr bgcolor="#FFFFFF"> 
  219.       <td width="25%" bgcolor="#FFFFFF">批量操作</td>
  220.       <td width="75%"><input name="boolAllDel" type="radio" value="True" <%=strUseridEdit(1,6)%>>
  221.         是 
  222.         <input type="radio" name="boolAllDel" value="False" <%=strUseridEdit(0,6)%>>
  223.         否</td>
  224.     </tr>
  225.     <tr bgcolor="#FFFFFF"> 
  226.       <td bgcolor="#FFFFFF">影片认证</td>
  227.       <td><input name="boolTatt" type="radio" value="True" <%=strUseridEdit(1,7)%>>
  228.         是 
  229.         <input type="radio" name="boolTatt" value="False" <%=strUseridEdit(0,7)%>>
  230.         否</td>
  231.     </tr>
  232.     <tr bgcolor="#FFFFFF"> 
  233.       <td bgcolor="#FFFFFF">会员影片</td>
  234.       <td><input name="boolMoney" type="radio" value="True" <%=strUseridEdit(1,8)%>>
  235.         是 
  236.         <input type="radio" name="boolMoney" value="False" <%=strUseridEdit(0,8)%>>
  237.         否</td>
  238.     </tr>
  239.     <tr bgcolor="#FFFFFF"> 
  240.       <td width="25%" bgcolor="#FFFFFF">分类管理</td>
  241.       <td width="75%"><input name="boolAllSort" type="radio" value="True" <%=strUseridEdit(1,9)%>>
  242.         是 
  243.         <input type="radio" name="boolAllSort" value="False" <%=strUseridEdit(0,9)%>>
  244.         否</td>
  245.     </tr>
  246.     <tr bgcolor="#FFFFFF"> 
  247.       <td width="25%" bgcolor="#FFFFFF">选择分类</td>
  248.       <td width="75%"><select name="strOneSmall" size="6" width=100% multiple>
  249. <%
  250. Set rs = Server.CreateObject("ADODB.Recordset")
  251. sql="select sort.id,sort.sort from sort"
  252. rs.open sql, conn,1,1
  253. if rs.eof then
  254. response.write("<option>--==没有分类==--</option>")
  255. else
  256. while not rs.eof
  257. strSort=rs("sort")
  258. Set rs1 = Server.CreateObject("ADODB.Recordset")
  259. sql1="select small.id,small.small,small.sortid from small where sortid='"&strSort&"'"
  260. rs1.open sql1, conn,1,1
  261. while not rs1.eof
  262. numSmallid=cint(rs1("id"))
  263. strSmall=rs1("small")
  264. if strUseridEdit(0,10)="0" then
  265. strAllSelected="selected"
  266. else
  267. if strUseridEdit(0,10)<>"" then
  268. strPurSort=Split(strUseridEdit(0,10),", ")
  269. for i= 0 to UBound(strPurSort)
  270. if numSmallid=cint(strPurSort(i)) then
  271. strSelected="selected"
  272. exit for
  273. else
  274. strSelected=""
  275. end if
  276. next
  277. end if
  278. end if
  279. response.write("<option "& strSelected &" value='"& rs1("id") &"'>"&strSmall&"("& strSort &")</option>")
  280. rs1.movenext
  281. wend
  282. rs1.close
  283. set rs1=nothing
  284. rs.movenext
  285. wend
  286. response.write("<option "& strAllSelected &" value='0'>★所有分类★</option>")
  287. end if
  288. rs.close
  289. set rs=nothing
  290. %>
  291. </select><br><br><font color=red>(按 Ctrl 键多选/取消选择,选取 <b>所有分类</b> 请清空其他分类选项)</font></td>
  292.     </tr>
  293.     <tr bgcolor="#FFFFFF"> 
  294.       <td width="25%" bgcolor="#FFFFFF">广告管理</td>
  295.       <td width="75%"><input name="boolAD" type="radio" value="True" <%=strUseridEdit(1,11)%>>
  296.         是 
  297.         <input type="radio" name="boolAD" value="False" <%=strUseridEdit(0,11)%>>
  298.         否</td>
  299.     </tr>
  300.     <tr bgcolor="#FFFFFF"> 
  301.       <td width="25%" bgcolor="#FFFFFF">系统设定</td>
  302.       <td width="75%"><input name="boolConfig" type="radio" value="True" <%=strUseridEdit(1,12)%>>
  303.         是 
  304.         <input type="radio" name="boolConfig" value="False" <%=strUseridEdit(0,12)%>>
  305.         否</td>
  306.     </tr>
  307.     <tr bgcolor="#FFFFFF"> 
  308.       <td width="25%" bgcolor="#FFFFFF">用户管理</td>
  309.       <td width="75%"><input name="boolUser" type="radio" value="True" <%=strUseridEdit(1,13)%>>
  310.         是 
  311.         <input type="radio" name="boolUser" value="False" <%=strUseridEdit(0,13)%>>
  312.         否</td>
  313.     </tr>
  314.     <tr bgcolor="#FFFFFF"> 
  315.       <td width="25%" bgcolor="#FFFFFF">评论管理</td>
  316.       <td width="75%"><input name="boolReview" type="radio" value="True" <%=strUseridEdit(1,14)%>>
  317.         是 
  318.         <input type="radio" name="boolReview" value="False" <%=strUseridEdit(0,14)%>>
  319.         否</td>
  320.     </tr>
  321.     <tr bgcolor="#FFFFFF"> 
  322.       <td width="25%" bgcolor="#FFFFFF">公告管理</td>
  323.       <td width="75%"><input name="boolAff" type="radio" value="True" <%=strUseridEdit(1,15)%>>
  324.         是 
  325.         <input type="radio" name="boolAff" value="False" <%=strUseridEdit(0,15)%>>
  326.         否</td>
  327.     </tr>
  328.     <tr bgcolor="#FFFFFF"> 
  329.       <td width="25%" bgcolor="#FFFFFF">友情连接</td>
  330.       <td width="75%"><input name="boolLink" type="radio" value="True" <%=strUseridEdit(1,16)%>>
  331.         是 
  332.         <input type="radio" name="boolLink" value="False" <%=strUseridEdit(0,16)%>>
  333.         否</td>
  334.     </tr>
  335.     <tr align="center" bgcolor="#FFFFFF"> 
  336.       <td colspan="2"> 
  337.         <input type="submit" name="Submit" value="<%=strSubmit%>">
  338.       </td>
  339.     </tr>
  340.   </table>
  341. </form>
  342. </table>
  343. </td>
  344. </tr>
  345. </table>
  346. <br><hr width=735>
  347. <center>