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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
AdminEdit.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：19k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

AdminEdit.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  4. <TITLE>编辑管理员</TITLE>
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script>
  7. </HEAD>
  8. <!--#include file="../skweb/Const.asp" -->
  9. <!--#include file="../skweb/ConnSiteData.asp" -->
  10. <!--#include file="../skweb/Md5.asp"-->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <%
  13. if Instr(session("AdminPurview"),"|101,")=0 then 
  14.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  15.   response.end
  16. end if
  17. '========判断是否具有管理权限
  18. %>
  19. <BODY>
  20. <% 
  21. dim Result
  22. Result=request.QueryString("Result")
  23. dim ID,AdminName,Working,Password,vPassword,UserName,Purview,Explain,AddTime
  24. ID=request.QueryString("ID")
  25. if ID="" then ID=0
  26. call AdminEdit() 
  27. %>
  28. <!--#include file="conn/1top.asp"-->
  29. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  30.   <tr>
  31.     <td height="29" nowrap background="Images/menutitle.gif"><font color="#FFFFFF">&nbsp;</font><strong>网站管理员：添加，修改管理员信息</strong></td>
  32.   </tr>
  33.   <tr>
  34.     <td height="24" align="center" nowrap  bgcolor="#EBF2F9"><a href="AdminEdit.asp?Result=Add" onClick='changeAdminFlag("添加管理员")'>添加管理员</a>&nbsp;|<font color="#0000FF">&nbsp;</font><a href="AdminList.asp" onClick='changeAdminFlag("网站管理员")'>查看所有管理员</a></td>
  35.   </tr>
  36. </table>
  37. <br>
  38. <table width="100%" border="0" cellpadding="3"  >
  39.   <form name="editForm" method="post" action="AdminEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>" onSubmit="return CheckAdminEdit()">
  40.   <tr>
  41.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editProduct idth="100%">
  43.       <tr>
  44.         <td width="120" height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  45.         <td bgcolor="#FFFFFF">&nbsp;</td>
  46.       </tr>
  47.       <tr>
  48.         <td height="20" align="right" bgcolor="#FFFFFF">登&nbsp;录&nbsp;名：</td>
  49.         <td bgcolor="#FFFFFF"><input name="AdminName" type="text" class="textfield" id="AdminName" style="WIDTH: 120;" value="<%=AdminName%>" maxlength="16" <%if Result="Modify" then response.write ("readonly")%>>&nbsp;*&nbsp;3-10位字符，不可修改</td>
  50.       </tr>
  51.       <tr>
  52.         <td height="20" align="right" bgcolor="#FFFFFF">生　　效：</td>
  53.         <td bgcolor="#FFFFFF"><input name="Working" type="checkbox" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if Working then response.write ("checked")%>></td>
  54.       </tr>
  55.       <tr>
  56.         <td height="20" align="right" bgcolor="#FFFFFF">密　　码：</td>
  57.         <td bgcolor="#FFFFFF"><input name="Password" type="password" class="textfield" id="Password" maxlength="20" style="WIDTH: 120;">&nbsp;*&nbsp;6-16位字符，不填表未修改密码</td>
  58.       </tr>
  59.       <tr>
  60.         <td height="20" align="right" bgcolor="#FFFFFF">确认密码：</td>
  61.         <td bgcolor="#FFFFFF"><input name="vPassword" type="password" class="textfield" id="vPassword" maxlength="20" style="WIDTH: 120;">&nbsp;*</td>
  62.       </tr>
  63.       <tr>
  64.         <td height="20" align="right" bgcolor="#FFFFFF">管理员名：</td>
  65.         <td bgcolor="#FFFFFF"><input name="UserName" type="text" class="textfield" id="UserName" style="WIDTH: 120;" value="<%=UserName%>"></td>
  66.       </tr>
  67.       <tr>
  68.         <td height="20" align="right" bgcolor="#FFFFFF">选　　择：</td>
  69.         <td bgcolor="#FFFFFF"><input onClick="CheckAll(this.form)" name="buttonAllSelect" type="button" class="button"  id="submitAllSearch" value="全" style="HEIGHT: 18px;WIDTH: 16px;">
  70.       <input onClick="CheckOthers(this.form)" name="buttonOtherSelect" type="button" class="button"  id="submitOtherSelect" value="反" style="HEIGHT: 18px;WIDTH: 16px;"></td>
  71.       </tr>
  72.       <tr >
  73.         <td height="20" align="right" bgcolor="#FFFFFF">操作权限：</td>
  74.         <td nowrap bgcolor="#FFFFFF">
  75.   <input name="Purview11" type="checkbox" value="|11," style="HEIGHT: 13px;WIDTH: 13px;"
  76.   <%if Instr(Purview,"|11,")>0 then response.write ("checked")%>>&nbsp;编辑企业
  77.           <input name="Purview12" type="checkbox" value="|12," style="HEIGHT: 13px;WIDTH: 13px;"
  78.   <%if Instr(Purview,"|12,")>0 then response.write ("checked")%>>&nbsp;企业列表
  79.   <input name="Purview21" type="checkbox" value="|21," style="HEIGHT: 13px;WIDTH: 13px;"
  80.   <%if Instr(Purview,"|21,")>0 then response.write ("checked")%>>&nbsp;新闻类别
  81.   <input name="Purview22" type="checkbox" value="|22," style="HEIGHT: 13px;WIDTH: 13px;"
  82.   <%if Instr(Purview,"|22,")>0 then response.write ("checked")%>>&nbsp;新闻列表
  83.           <input name="Purview23" type="checkbox" value="|23," style="HEIGHT: 13px;WIDTH: 13px;"
  84.   <%if Instr(Purview,"|23,")>0 then response.write ("checked")%>>&nbsp;编辑新闻
  85.   <input name="Purview31" type="checkbox" value="|31," style="HEIGHT: 13px;WIDTH: 13px;"
  86.   <%if Instr(Purview,"|31,")>0 then response.write ("checked")%>>&nbsp;产品类别
  87.   <input name="Purview32" type="checkbox" value="|32," style="HEIGHT: 13px;WIDTH: 13px;"
  88.   <%if Instr(Purview,"|32,")>0 then response.write ("checked")%>>&nbsp;产品列表
  89.           <input name="Purview33" type="checkbox" value="|33," style="HEIGHT: 13px;WIDTH: 13px;"
  90.   <%if Instr(Purview,"|33,")>0 then response.write ("checked")%>>&nbsp;编辑产品</td>
  91.       </tr>
  92.       <tr >
  93.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  94.         <td bgcolor="#FFFFFF">
  95.   <input name="Purview51" type="checkbox" value="|51," style="HEIGHT: 13px;WIDTH: 13px;"
  96.   <%if Instr(Purview,"|51,")>0 then response.write ("checked")%>>&nbsp;下载类别
  97.   <input name="Purview52" type="checkbox" value="|52," style="HEIGHT: 13px;WIDTH: 13px;"
  98.   <%if Instr(Purview,"|52,")>0 then response.write ("checked")%>>&nbsp;下载列表
  99.           <input name="Purview53" type="checkbox" value="|53," style="HEIGHT: 13px;WIDTH: 13px;"
  100.   <%if Instr(Purview,"|53,")>0 then response.write ("checked")%>>&nbsp;编辑下载
  101.   <input name="Purview61" type="checkbox" value="|61," style="HEIGHT: 13px;WIDTH: 13px;"
  102.   <%if Instr(Purview,"|61,")>0 then response.write ("checked")%>>&nbsp;招聘列表
  103.   <input name="Purview62" type="checkbox" value="|62," style="HEIGHT: 13px;WIDTH: 13px;"
  104.   <%if Instr(Purview,"|62,")>0 then response.write ("checked")%>>&nbsp;编辑招聘
  105.   <input name="Purview41" type="checkbox" value="|41," style="HEIGHT: 13px;WIDTH: 13px;"
  106.   <%if Instr(Purview,"|41,")>0 then response.write ("checked")%>>&nbsp;投票管理
  107.   <input name="Purview72" type="checkbox" value="|72," style="HEIGHT: 13px;WIDTH: 13px;"
  108.   <%if Instr(Purview,"|72,")>0 then response.write ("checked")%>>图片管理
  109.           <input name="Purview73" type="checkbox" value="|73," style="HEIGHT: 13px;WIDTH: 13px;"
  110.   <%if Instr(Purview,"|73,")>0 then response.write ("checked")%>>文件管理
  111.   
  112.   </td>
  113.       </tr>
  114.       <tr >
  115.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  116.         <td bgcolor="#FFFFFF">
  117.   <input name="Purview71" type="checkbox" value="|71," style="HEIGHT: 13px;WIDTH: 13px;"
  118.   <%if Instr(Purview,"|71,")>0 then response.write ("checked")%>>IP封锁管理
  119.   <input name="Purview81" type="checkbox" value="|81," style="HEIGHT: 13px;WIDTH: 13px;"
  120.   <%if Instr(Purview,"|81,")>0 then response.write ("checked")%>>&nbsp;广告列表
  121.   <input name="Purview82" type="checkbox" value="|82," style="HEIGHT: 13px;WIDTH: 13px;"
  122.   <%if Instr(Purview,"|82,")>0 then response.write ("checked")%>>&nbsp;编辑广告
  123.   <input name="Purview91" type="checkbox" value="|91," style="HEIGHT: 13px;WIDTH: 13px;"
  124.   <%if Instr(Purview,"|91,")>0 then response.write ("checked")%>>&nbsp;留言列表
  125.   <input name="Purview92" type="checkbox" value="|92," style="HEIGHT: 13px;WIDTH: 13px;"
  126.   <%if Instr(Purview,"|92,")>0 then response.write ("checked")%>>&nbsp;编辑留言
  127.           <input name="Purview93" type="checkbox" value="|93," style="HEIGHT: 13px;WIDTH: 13px;"
  128.   <%if Instr(Purview,"|93,")>0 then response.write ("checked")%>>&nbsp;订单列表
  129.   <input name="Purview94" type="checkbox" value="|94," style="HEIGHT: 13px;WIDTH: 13px;"
  130.   <%if Instr(Purview,"|94,")>0 then response.write ("checked")%>>&nbsp;订单回复
  131.   <input name="Purview97" type="checkbox" value="|97," style="HEIGHT: 13px;WIDTH: 13px;"
  132.   <%if Instr(Purview,"|97,")>0 then response.write ("checked")%>>&nbsp;人才列表
  133.   </td>
  134.       </tr>
  135.       <tr >
  136.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  137.         <td bgcolor="#FFFFFF">
  138.   <input name="Purview98" type="checkbox" value="|98," style="HEIGHT: 13px;WIDTH: 13px;"
  139.   <%if Instr(Purview,"|98,")>0 then response.write ("checked")%>>&nbsp;回复人才      
  140.   <input name="Purview101" type="checkbox" value="|101," style="HEIGHT: 13px;WIDTH: 13px;"
  141.   <%if Instr(Purview,"|101,")>0 then response.write ("checked")%>>&nbsp;编辑管理员
  142.   <input name="Purview102" type="checkbox" value="|102," style="HEIGHT: 13px;WIDTH: 13px;"
  143.   <%if Instr(Purview,"|102,")>0 then response.write ("checked")%>>&nbsp;管理员列表
  144.           <input name="Purview103" type="checkbox" value="|103," style="HEIGHT: 13px;WIDTH: 13px;"
  145.   <%if Instr(Purview,"|103,")>0 then response.write ("checked")%>>&nbsp;编辑会员
  146.           <input name="Purview119" type="checkbox" value="|119," style="HEIGHT: 13px;WIDTH: 13px;"
  147.   <%if Instr(Purview,"|119,")>0 then response.write ("checked")%>>&nbsp;友情链接
  148.           <input name="Purview120" type="checkbox" value="|120," style="HEIGHT: 13px;WIDTH: 13px;"
  149.   <%if Instr(Purview,"|120,")>0 then response.write ("checked")%>>&nbsp;SQL注入记录
  150.   <input name="Purview104" type="checkbox" value="|104," style="HEIGHT: 13px;WIDTH: 13px;"
  151.   <%if Instr(Purview,"|104,")>0 then response.write ("checked")%>>&nbsp;会员列表
  152.   </td>
  153.       </tr>
  154.       <tr >
  155.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  156.         <td bgcolor="#FFFFFF">
  157.   <input name="Purview105" type="checkbox" value="|105," style="HEIGHT: 13px;WIDTH: 13px;"
  158.   <%if Instr(Purview,"|105,")>0 then response.write ("checked")%>>&nbsp;会员组别
  159.   <input name="Purview111" type="checkbox" value="|111," style="HEIGHT: 13px;WIDTH: 13px;"
  160.   <%if Instr(Purview,"|111,")>0 then response.write ("checked")%>>&nbsp;修改密码
  161.   <input name="Purview112" type="checkbox" value="|112," style="HEIGHT: 13px;WIDTH: 13px;"
  162.   <%if Instr(Purview,"|112,")>0 then response.write ("checked")%>>&nbsp;网站信息设置
  163.   <input name="Purview113" type="checkbox" value="|113," style="HEIGHT: 13px;WIDTH: 13px;"
  164.   <%if Instr(Purview,"|113,")>0 then response.write ("checked")%>>&nbsp;导航栏目      
  165.   <input name="Purview114" type="checkbox" value="|114," style="HEIGHT: 13px;WIDTH: 13px;"
  166.   <%if Instr(Purview,"|114,")>0 then response.write ("checked")%>>&nbsp;常量设置
  167.   <input name="Purview115" type="checkbox" value="|115," style="HEIGHT: 13px;WIDTH: 13px;"
  168.   <%if Instr(Purview,"|115,")>0 then response.write ("checked")%>>&nbsp;数据库操作          
  169.   </td>
  170.       </tr>
  171.       <tr >
  172.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  173.         <td bgcolor="#FFFFFF">&nbsp;</td>
  174.       </tr>
  175.       <tr>
  176.         <td height="20" align="right" valign="top" bgcolor="#FFFFFF">备注说明：</td>
  177.         <td bgcolor="#FFFFFF"><textarea name="Explain" cols="88" rows="3" class="textfield" id="Explain" style="WIDTH: 580;" ><%=Explain%></textarea></td>
  178.       </tr>
  180.       <tr>
  181.         <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  182.         <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
  183.       </tr>
  184.       <tr>
  185.         <td height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  186.         <td valign="bottom" bgcolor="#FFFFFF">&nbsp;</td>
  187.       </tr>
  188.     </table></td>
  189.   </tr>
  190.   </form>
  191. </table>
  192. </BODY>
  193. </HTML>
  194. <%
  195. sub AdminEdit()
  196.   dim Action,rsCheckAdd,rs,sql
  197.   Action=request.QueryString("Action")
  198.   if Action="SaveEdit" then '保存编辑管理员信息
  199.     set rs = server.createobject("adodb.recordset")
  200.     if Result="Add" then '创建网站管理员
  201.       set rsCheckAdd = conn.execute("select AdminName from sk_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
  202.       if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判断此管理员名是否存在
  203.         response.write "<script language=javascript> alert('" & trim(Request.Form("AdminName")) & "管理员已经存在，请换一个登录名再试试！');history.back(-1);</script>"
  204.         response.end
  205.       end if  
  206.   sql="select * from sk_Admin"
  207.       rs.open sql,conn,1,3
  208.       rs.addnew
  209.       if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10  then
  210.         response.write "<script language=javascript> alert('管理员登录名必填，且字符数为3-10位！');history.back(-1);</script>"
  211.         response.end
  212.       end if   
  213.       if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16  then
  214.         response.write "<script language=javascript> alert('管理员密码必填，且字符数为6-16位！');history.back(-1);</script>"
  215.         response.end
  216.       end if
  217.   if Request.Form("Password")<>Request.Form("vPassword") then 
  218.         response.write "<script language=javascript> alert('两次输入的密码不一样！');history.back(-1);</script>"
  219.         response.end
  220.   end if
  221.       rs("AdminName")=trim(Request.Form("AdminName"))
  222.   if Request.Form("Working")=1 then
  223.         rs("Working")=Request.Form("Working")
  224.   else
  225.         rs("Working")=0
  226.   end if
  227.   rs("Password")=Md5(Request.Form("Password"))
  228.   rs("UserName")=trim(Request.Form("UserName"))
  229.   rs("AdminPurview")=Request.Form("Purview11") & Request.Form("Purview12") &_
  230.                      Request.Form("Purview21") & Request.Form("Purview22") & Request.Form("Purview23") &_
  231.                      Request.Form("Purview31") & Request.Form("Purview32") & Request.Form("Purview33") &_
  232.                      Request.Form("Purview41") & Request.Form("Purview42") & Request.Form("Purview43") &_
  233.                      Request.Form("Purview51") & Request.Form("Purview52") & Request.Form("Purview53") &_
  234.                      Request.Form("Purview61") & Request.Form("Purview62") &_
  235.                      Request.Form("Purview71") & Request.Form("Purview72") & Request.Form("Purview73") &_
  236.                      Request.Form("Purview81") & Request.Form("Purview82") & Request.Form("Purview97") &_
  237.                      Request.Form("Purview91") & Request.Form("Purview92") & Request.Form("Purview93") &_
  238.                      Request.Form("Purview94") & Request.Form("Purview95") & Request.Form("Purview96") &_
  239.                      Request.Form("Purview98") & Request.Form("Purview98") & Request.Form("Purview101") &_
  240.                      Request.Form("Purview102") & Request.Form("Purview103") & Request.Form("Purview104") &_
  241.                      Request.Form("Purview105") & Request.Form("Purview111") & Request.Form("Purview112") &_
  242.                      Request.Form("Purview113") & Request.Form("Purview114") & Request.Form("Purview115") &_
  243.                      Request.Form("Purview116") & Request.Form("Purview117") & Request.Form("Purview118") &_
  244.                      Request.Form("Purview119") & Request.Form("Purview120")
  245.   rs("Explain")=trim(Request.Form("Explain"))
  246.   rs("AddTime")=now()
  247. end if  
  248. if Result="Modify" then '修改网站管理员
  249.       sql="select * from sk_Admin where ID="&ID
  250.       rs.open sql,conn,1,3
  251.       rs("AdminName")=trim(Request.Form("AdminName"))
  252.   if Request.Form("Working")=1 then
  253.         rs("Working")=Request.Form("Working")
  254.   else
  255.         rs("Working")=0
  256.   end if
  257.       if trim(Request.Form("Password"))<>"" then
  258.     if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>20  then
  259.           response.write "<script language=javascript> alert('管理员密码必填，且字符数为6-20位！');history.back(-1);</script>"
  260.           response.end
  261.         end if
  262.     if Request.Form("Password")<>Request.Form("vPassword") then 
  263.           response.write "<script language=javascript> alert('两次输入的密码不一样！');history.back(-1);</script>"
  264.           response.end
  265.     end if
  266.     rs("Password")=Md5(Request.Form("Password"))
  267.   end if
  268.   rs("UserName")=trim(Request.Form("UserName"))
  269.   rs("AdminPurview")=Request.Form("Purview11") & Request.Form("Purview12") &_
  270.                      Request.Form("Purview21") & Request.Form("Purview22") & Request.Form("Purview23") &_
  271.                      Request.Form("Purview31") & Request.Form("Purview32") & Request.Form("Purview33") &_
  272.                      Request.Form("Purview41") & Request.Form("Purview42") & Request.Form("Purview43") &_
  273.                      Request.Form("Purview51") & Request.Form("Purview52") & Request.Form("Purview53") &_
  274.                      Request.Form("Purview61") & Request.Form("Purview62") &_
  275.                      Request.Form("Purview71") & Request.Form("Purview72") & Request.Form("Purview73") &_
  276.                      Request.Form("Purview81") & Request.Form("Purview82") & Request.Form("Purview97") &_
  277.                      Request.Form("Purview91") & Request.Form("Purview92") & Request.Form("Purview93") &_
  278.                      Request.Form("Purview94") & Request.Form("Purview95") & Request.Form("Purview96") &_
  279.                      Request.Form("Purview98") & Request.Form("Purview98") & Request.Form("Purview101") &_
  280.                      Request.Form("Purview102") & Request.Form("Purview103") & Request.Form("Purview104") &_
  281.                      Request.Form("Purview105") & Request.Form("Purview111") & Request.Form("Purview112") &_
  282.                      Request.Form("Purview113") & Request.Form("Purview114") & Request.Form("Purview115") &_
  283.                      Request.Form("Purview116") & Request.Form("Purview117") & Request.Form("Purview118") &_
  284.                      Request.Form("Purview119") & Request.Form("Purview120")
  285.   rs("Explain")=trim(Request.Form("Explain"))
  286. end if
  287. rs.update
  288. rs.close
  289.     set rs=nothing 
  290.     Response.Redirect("Tips/admin.asp")
  291.   else '提取管理员信息
  292. if Result="Modify" then
  293.       set rs = server.createobject("adodb.recordset")
  294.       sql="select * from sk_Admin where ID="& ID
  295.       rs.open sql,conn,1,1
  296.   AdminName=rs("AdminName")
  297.   Working=rs("Working")
  298.   UserName=rs("UserName")
  299.   Purview=rs("AdminPurview")
  300.   Explain=rs("Explain")
  301.   rs.close
  302.       set rs=nothing 
  303. end if
  304.   end if
  305. end sub
  306.   
  307. %>