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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
MemEdit.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：12k
源码类别：

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

开发平台：

HTML/CSS

MemEdit.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML xmlns="http://www.w3.org/1999/xhtml">
  5. <HEAD>
  6. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  7. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  8. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  9. <META NAME="Keywords" CONTENT="" />
  10. <META NAME="Description" CONTENT="" />
  11. <TITLE>编辑会员</TITLE>
  12. <link rel="stylesheet" href="Images/CssAdmin.css">
  13. <script language="javascript" src="../Script/Admin.js"></script>
  14. </HEAD>
  15. <!--#include file="../Include/Const.asp" -->
  16. <!--#include file="../Include/ConnSiteData.asp" -->
  17. <!--#include file="../Include/Md5.asp"-->
  18. <!--#include file="CheckAdmin.asp"-->
  19. <%
  20. Dim SERVER_NAME
  21. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  22. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  23. if Instr(session("AdminPurview"),"|104,")=0 then 
  24.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  25.   response.end
  26. end if
  27. '========判断是否具有管理权限
  28. %>
  29. <BODY>
  30. <% 
  31. dim Result
  32. Result=request.QueryString("Result")
  33. dim ID,mMemName,mRealName,mPassword,vPassword,mSex,mGroupID,mGroupName,mGroupIdName
  34. dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mWorking
  35. ID=request.QueryString("ID")
  36. call MemEdit() 
  37. %>
  39. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  40.   <tr>
  41.     <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>网站会员：添加，修改会员信息</strong></font></td>
  42.   </tr>
  43.   <tr>
  44.     <td height="24" align="center" nowrap  bgcolor="#eafefe"><a href="MemEdit.asp?Result=Add" onClick='changeAdminFlag("添加新会员")'>添加新会员</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="MemList.asp" onClick='changeAdminFlag("查看所有会员")'>查看所有会员</a></td>    
  45.   </tr>
  46. </table>
  47. <br>
  48. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  49.   <form name="editMemForm" method="post" action="MemEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>" onSubmit="return CheckMemEdit()">
  50.   <tr>
  51.     <td height="24" nowrap bgcolor="#eafefe"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
  53.       <tr>
  54.         <td width="160" height="20" align="right">&nbsp;</td>
  55.         <td>&nbsp;</td>
  56.       </tr>
  57.       <tr>
  58.         <td height="20" align="right">登&nbsp;录&nbsp;名：</td>
  59.         <td><input name="MemName" type="text" class="textfield" id="MemName" style="WIDTH: 120;" value="<%=mMemName%>" maxlength="16" <%if Result="Modify" then response.write ("readonly")%>>&nbsp;*&nbsp;3-16位字符，不可修改</td>
  60.       </tr>
  61.       <tr>
  62.         <td height="20" align="right">真实姓名：</td>
  63.         <td><input name="RealName" type="text" class="textfield" id="RealName" style="WIDTH: 120;" value="<%=mRealName%>" maxlength="16"></td>
  64.       </tr>
  65.       <tr>
  66.         <td height="20" align="right">密　　码：</td>
  67.         <td><input name="Password" type="password" class="textfield" id="Password" maxlength="20" style="WIDTH: 120;">&nbsp;*&nbsp;6-16位字符，不填表未修改密码</td>
  68.       </tr>
  69.       <tr>
  70.         <td height="20" align="right">确认密码：</td>
  71.         <td><input name="vPassword" type="password" class="textfield" id="vPassword" maxlength="20" style="WIDTH: 120;">&nbsp;*</td>
  72.       </tr>
  73.       <tr>
  74.         <td height="20" align="right">性　　别：</td>
  75.         <td><input type="radio" name="sex" value="先生" <%if mSex="先生" then response.write ("checked")%>>&nbsp;先生&nbsp;<input type="radio" name="sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>&nbsp;女士</td>
  76.       </tr>
  77.       <tr>
  78.         <td height="20" align="right">会员组别：</td>
  79.         <td>
  80. <select name="GroupID" class="textfield"><% call SelectGroup() %>
  81.         </select></td>
  82.       </tr>
  83.       <tr>
  84.         <td height="20" align="right">单位名称：</td>
  85.         <td><input name="Company" type="text" class="textfield" id="Company" style="WIDTH: 240;" value="<%=mCompany%>" maxlength="100"></td>
  86.       </tr>
  87.       <tr>
  88.         <td height="20" align="right">地　　址：</td>
  89.         <td><input name="Address" type="text" class="textfield" id="Address" style="WIDTH: 240;" value="<%=mAddress%>" maxlength="100"></td>
  90.       </tr>
  91.       <tr>
  92.         <td height="20" align="right">邮　　编：</td>
  93.         <td><input name="ZipCode" type="text" class="textfield" id="ZipCode" style="WIDTH: 120;" value="<%=mZipCode%>" maxlength="16"></td>
  94.       </tr>
  95.       <tr>
  96.         <td height="20" align="right">电　　话：</td>
  97.         <td><input name="Telephone" type="text" class="textfield" id="Telephone" style="WIDTH: 240;" value="<%=mTelephone%>" maxlength="50"></td>
  98.       </tr>
  99.       <tr>
  100.         <td height="20" align="right">传　　真：</td>
  101.         <td><input name="Fax" type="text" class="textfield" id="Fax" style="WIDTH: 120;" value="<%=mFax%>" maxlength="16"></td>
  102.       </tr>
  103.       <tr>
  104.         <td height="20" align="right">移动电话：</td>
  105.         <td><input name="Mobile" type="text" class="textfield" id="Mobile" style="WIDTH: 120;" value="<%=mMobile%>" maxlength="16"></td>
  106.       </tr>
  107.       <tr>
  108.         <td height="20" align="right">电子邮箱：</td>
  109.         <td><input name="Email" type="text" class="textfield" id="Email" style="WIDTH: 240;" value="<%=mEmail%>" maxlength="50"></td>
  110.       </tr>
  111.       <tr>
  112.         <td height="20" align="right">网　　址：</td>
  113.         <td><input name="HomePage" type="text" class="textfield" id="HomePage" style="WIDTH: 240;" value="<%=mHomePage%>" maxlength="50"></td>
  114.       </tr>
  115.       <tr>
  116.         <td height="20" align="right">生　　效：</td>
  117.         <td><input name="Working" type="checkbox"  value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if mWorking then response.write ("checked")%>></td>
  118.       </tr>
  120.       <tr>
  121.         <td height="30" align="right">&nbsp;</td>
  122.         <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  123.       </tr>
  124.       <tr>
  125.         <td height="20" align="right">&nbsp;</td>
  126.         <td valign="bottom">&nbsp;</td>
  127.       </tr>
  128.     </table></td>
  129.   </tr>
  130.   </form>
  131. </table>
  132. </body>
  133. </html> 
  134. <%
  135. else
  136. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  137. response.end%>
  138. <%end if%>
  139. <%
  140. sub MemEdit()
  141.   dim Action,rs,sql
  142.   Action=request.QueryString("Action")
  143.   if Action="SaveEdit" then '保存编辑管理员信息
  144.     set rs = server.createobject("adodb.recordset")
  145.     if Result="Add" then '创建网站管理员
  146.       if not conn.execute("select MemName from CompanyCMS_Members where MemName='" & trim(Request.Form("MemName")) & "'").eof then
  147.         response.write "<script language=javascript> alert('" & trim(Request.Form("MemName")) & "此会员名已经存在，请换一个登录名再试试！');history.back(-1);</script>"
  148.         response.end
  149.       end if 
  150.   sql="select * from CompanyCMS_Members"
  151.       rs.open sql,conn,1,3
  152.       rs.addnew
  153.       rs("MemName")=trim(Request.Form("MemName"))
  154.       rs("RealName")=StrReplace(trim(Request.Form("RealName")))
  155.       if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16  then
  156.         response.write "<script language=javascript> alert('会员密码必填，且字符数为6-16位！');history.back(-1);</script>"
  157.         response.end
  158.       end if
  159.   if Request.Form("Password")<>Request.Form("vPassword") then 
  160.         response.write "<script language=javascript> alert('两次输入的密码不一样！');history.back(-1);</script>"
  161.         response.end
  162.   end if
  163.   rs("Password")=Md5(Request.Form("Password"))
  164.   rs("Sex")=Request.Form("Sex")
  165.       mGroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  166.   rs("GroupID")=mGroupIdName(0)
  167.   rs("GroupName")=mGroupIdName(1)
  168.   rs("Company")=StrReplace(trim(Request.Form("Company")))
  169.   rs("Address")=StrReplace(trim(Request.Form("Address")))
  170.   rs("ZipCode")=StrReplace(trim(Request.Form("ZipCode")))
  171.   rs("Telephone")=StrReplace(trim(Request.Form("Telephone")))
  172.   rs("Fax")=StrReplace(trim(Request.Form("Fax")))
  173.   rs("Mobile")=StrReplace(trim(Request.Form("Mobile")))
  174.   rs("Email")=trim(Request.Form("Email"))
  175.   rs("HomePage")=StrReplace(trim(Request.Form("HomePage")))
  176.   if Request.Form("Working")=1 then
  177.         rs("Working")=Request.Form("Working")
  178.   else
  179.         rs("Working")=0
  180.   end if
  181.   rs("AddTime")=now()
  182. end if  
  183. if Result="Modify" then '修改网站管理员
  184.       sql="select * from CompanyCMS_Members where ID="&ID
  185.       rs.open sql,conn,1,3
  186.       rs("MemName")=trim(Request.Form("MemName"))
  187.       rs("RealName")=StrReplace(trim(Request.Form("RealName")))
  188.       if trim(Request.Form("Password"))<>"" then
  189.     if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16  then
  190.           response.write "<script language=javascript> alert('会员密码必填，且字符数为6-16位！');history.back(-1);</script>"
  191.           response.end
  192.         end if
  193.     if Request.Form("Password")<>Request.Form("vPassword") then 
  194.           response.write "<script language=javascript> alert('两次输入的密码不一样！');history.back(-1);</script>"
  195.           response.end
  196.     end if
  197.     rs("Password")=Md5(Request.Form("Password"))
  198.   end if
  199.   rs("Sex")=Request.Form("Sex")
  200.       mGroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  201.   rs("GroupID")=mGroupIdName(0)
  202.   rs("GroupName")=mGroupIdName(1)
  203.   rs("Company")=StrReplace(trim(Request.Form("Company")))
  204.   rs("Address")=StrReplace(trim(Request.Form("Address")))
  205.   rs("ZipCode")=StrReplace(trim(Request.Form("ZipCode")))
  206.   rs("Telephone")=StrReplace(trim(Request.Form("Telephone")))
  207.   rs("Fax")=StrReplace(trim(Request.Form("Fax")))
  208.   rs("Mobile")=StrReplace(trim(Request.Form("Mobile")))
  209.   rs("Email")=StrReplace(trim(Request.Form("Email")))
  210.   rs("HomePage")=StrReplace(trim(Request.Form("HomePage")))
  211.   if Request.Form("Working")=1 then
  212.         rs("Working")=Request.Form("Working")
  213.   else
  214.         rs("Working")=0
  215.   end if
  216. end if
  217. rs.update
  218. rs.close
  219.     set rs=nothing 
  220.     response.write "<script language=javascript> alert('成功编辑网站会员！');changeAdminFlag('所有会员');location.replace('MemList.asp');</script>"
  221.   else '提取管理员信息
  222. if Result="Modify" then
  223.       set rs = server.createobject("adodb.recordset")
  224.       sql="select * from CompanyCMS_Members where ID="& ID
  225.       rs.open sql,conn,1,1
  226.   mMemName=rs("MemName")
  227.   mRealName=rs("RealName")
  228.   mSex=rs("Sex")
  229.   mGroupID=rs("GroupID")
  230.   mGroupName=rs("GroupName")
  231.   mCompany=rs("Company")
  232.   mAddress=rs("Address")
  233.   mZipCode=rs("ZipCode")
  234.   mTelephone=rs("Telephone")
  235.   mFax=rs("Fax")
  236.   mMobile=rs("Mobile")
  237.   mEmail=rs("Email")
  238.   mHomepage=rs("Homepage")
  239.   mWorking=rs("Working")
  240.   rs.close
  241.       set rs=nothing 
  242. end if
  243.   end if
  244. end sub
  245. %>
  246. <% 
  247. sub SelectGroup()
  248.   dim rs,sql
  249.   set rs = server.createobject("adodb.recordset")
  250.   sql="select GroupID,GroupNameCh from CompanyCMS_MemGroup"
  251.   rs.open sql,conn,1,1
  252.   if rs.bof and rs.eof then
  253.     response.write("未设组别")
  254.   end if
  255.   while not rs.eof
  256.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupNameCh")&"'")
  257.     if mGroupID=rs("GroupID") then response.write ("selected")
  258.     response.write(">"&rs("GroupNameCh")&"</option>")
  259.     rs.movenext
  260.   wend
  261.   rs.close
  262.   set rs=nothing
  263. end sub
  264. %>