home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-zb / admin_userModify.asp < prev    next >
Text File  |  2005-12-26  |  7KB  |  244 lines
  1. <!--#include file=conn.asp-->
  2. <!--#include file=const.asp -->
  3. <!--#include file=md5.asp -->
  4. <%
  5. if not theUser.admin then
  6.     connclose()
  7.     response.redirect ("index.asp")
  8. end if
  9.  
  10. dim rs , exec %>
  11. <html>
  12. <head>
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  14. <title><%=sitetitle%></title>
  15. <META name="Author" content="─╛─±">
  16. <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  17. </head>
  18.  
  19. <body>
  20. <!--#include file="head.asp"-->
  21. <br>
  22. <table border="0" width="400" cellspacing="0" cellpadding="10" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" class="table004">
  23.  <tr> 
  24.   <td class=table003 align=center>╫ó▓ß╙├╗º╫╩┴╧╨▐╕─
  25.   </td>
  26.   </tr>
  27.   <tr>
  28.   
  29.   <td class="table001" align="center"> 
  30. <%
  31. main()
  32. connclose()
  33.  
  34. sub main()
  35.     dim backInput, homeInput
  36.     dim userid
  37.     userid=request("userid")
  38.  
  39.     backInput= "<br><br><input type=button value=╖╡╗╪╟░╥│ onClick=history.back() class=input2 name=button ><br>"
  40.     homeInput="<br><br><input type=button value=╣╪▒╒┤░┐┌ onClick=""window.close() "" class=input2><br>"
  41.  
  42.     if request.form="" then
  43.         exec="select * from [user] where userid="& userid
  44.         set rs=conn.execute(exec)
  45. %>
  46.  
  47.    <form name="form" method="post">
  48.     <table width="80%" border="0">
  49.      <tr> 
  50.       <td width="30%">╙├ ╗º ├√ú║</td>
  51.       <td width="70%"> 
  52.        <%=rs("username")%>
  53.        <input type="hidden" name="userid" value="<%=userid%>" >
  54.       </td>
  55.     </tr>
  56.     <tr> 
  57.      <td>╨┬ ├▄ ┬δú║</td>
  58.      <td>
  59.        <input type="password" name="npass1" size="20" class="input1" maxlength="20" >
  60.       </td>
  61.     </tr>
  62.     <tr> 
  63.      <td>├▄┬δ╚╖╚╧ú║</td>
  64.      <td>
  65.        <input type="password" name="npass2" size="20" class="input1" maxlength="20" >
  66.       </td>
  67.     </tr>
  68.     <tr>
  69.       <td>╨╘íííí▒≡ú║</td>
  70.       <td >
  71.        <input type="radio" name="male" value="1" <% if rs("sex")="1" then response.write "checked" %>>─╨
  72.        <input type="radio" name="male" value="0" <% if not rs("sex")="1" then response.write "checked" %> >┼«
  73.      ú¿╥╤╫ó▓ß╙├╗º▓╗╙├╠εú⌐
  74.       </td>
  75.      </tr>
  76.      <tr> 
  77.       <td>═╖íííí╧±ú║</td>
  78.       <td >
  79.        <a href=### onclick=window.open("face.asp","face","width=400,height=400,resizable=1,scrollbars=1") title=╡π╗≈╤í╘±═╖╧±>
  80.        <img src="<%if rs("GBface")<>"" then response.write rs("GBface") else response.write "face/m01.gif"%>" border=0 id="faceImg"></a>
  81.        <input class="input1" type="text" onchange="document.all.faceImg.src=this.value" name="face" value="<%if rs("GBface")<>"" then response.write rs("GBface") else response.write "face/m01.gif"%>">
  82.       </td>
  83.      </tr>
  84.      <tr> 
  85.       <td>╡τ╫╙╙╩╝■ú║</td>
  86.       <td> 
  87.        <input type="text" name="email" size="20" class="input1" value="<%=rs("useremail")%>">
  88.       </td>
  89.      </tr>
  90.      <tr> 
  91.       <td>íí QQ ííú║</td>
  92.       <td>
  93.        <input type="text" name="qq" size="20" class="input1" value="<%=rs("oicq")%>">
  94.       </td>
  95.      </tr>
  96.      <tr> 
  97.       <td>íí ICQ  ú║</td>
  98.       <td>
  99.        <input type="text" name="icq" size="20" class="input1" value="<%=rs("icq")%>">
  100.       </td>
  101.      </tr>
  102.      <tr> 
  103.       <td>íí MSN  ú║</td>
  104.       <td>
  105.        <input type="text" name="msn" size="20" class="input1" value="<%=rs("msn")%>">
  106.       </td>
  107.      </tr>
  108.      <tr> 
  109.       <td>╓≈╥│╡╪╓╖ú║</td>
  110.       <td> 
  111.        <input type="text" name="url" size="30" value="<% if rs("homepage")="" then response.write "http://" else response.write rs("homepage")%>" class="input1">
  112.       </td>
  113.      </tr>
  114.      <tr> 
  115.       <td>╣▄└φ╚¿╧▐ú║</td>
  116.       <td> 
  117.       <select name="gbuserclass" >
  118.           <option value="0" >╬▐╚¿╧▐</option>
  119.           <option value="1" <%if rs("gbuserclass")=1 then response.write "selected" %> > ░µ ╓≈</option>
  120.           <option value="2" <%if rs("gbuserclass")=2 then response.write "selected" %> >╣▄└φ╘▒</option>
  121.       </select>
  122.       </td>
  123.      </tr>
  124.      <tr align="center"> 
  125.       <td colspan="2" height="40"> 
  126.        <input type="submit" value=" ╕ⁿ ╕─ " class="input2" name="Submit" >
  127.       </td>
  128.     </tr>
  129.    </table>
  130.    </form>
  131. <%
  132.     else
  133.         dim name, pass, npass1, npass2,male,face,email,qq,url,icq,msn,gbuserclass
  134.         name=Encodestr(request.form("name"))
  135.         npass1=Encodestr(request.form("npass1"))
  136.         npass2=Encodestr(request.form("npass2"))
  137.         male=Encodestr(request.form("male"))
  138.         face=Encodestr(request.form("face"))
  139.         email=Encodestr(request.form("email"))
  140.         qq=Encodestr(request.form("qq"))
  141.         url=Encodestr(request.form("url"))
  142.         icq=Encodestr(request.form("icq"))
  143.         msn=Encodestr(request.form("msn"))
  144.         gbuserclass=int(request.form("gbuserclass"))
  145.         
  146.         if npass1<>npass2 then
  147.             response.write "<font color=red>╖ó╔·┤φ╬≤</font><br><br>╨┬├▄┬δ║═╚╖╚╧├▄┬δ╥¬╧α═¼úíúíúí"
  148.             response.write backInput
  149.             exit sub
  150.         end if
  151.         
  152.         exec="select * from [user] where userid="& userid
  153.         set rs=server.createobject("adodb.recordset")
  154.         rs.open exec,conn,1,3
  155.         if rs.eof then
  156.             rsclose()
  157.             response.write "<font color=red>╖ó╔·┤φ╬≤</font><br><br>╙├╗º├√▓╗┤µ╘┌╗≥├▄┬δ┤φ╬≤úíúíúí"
  158.             response.write backInput
  159.             exit sub
  160.         end if
  161.         name=rs("username")
  162.         
  163.         if npass1<>"" then
  164.             pass=MD5(npass1)
  165.             rs("userpassword")=pass
  166.         end if
  167.         if rs("sex")="1" and male="0" or rs("sex")<>"1" and male="1" then
  168.             rs("sex")=male
  169.             exec="update ly set male='"&male&"' where bl=1 and name='"&name&"'"
  170.             conn.execute(exec)
  171.         end if
  172.         if rs("GBface")="" or rs("GBface")<>face then
  173.             rs("GBface")=face
  174.             exec="update ly set face='"&face&"' where bl=1 and name='"&name&"'"
  175.             conn.execute(exec)
  176.         end if
  177.         if isNull(rs("useremail")) or rs("useremail")<>email then
  178.             if email="" then
  179.                 email=null
  180.             end if
  181.             rs("useremail")=email
  182.             exec="update ly set email='"&email&"' where bl=1 and name='"&name&"'"
  183.             conn.execute(exec)
  184.         end if
  185.         if isNull(rs("oicq")) or rs("oicq")<>qq then
  186.             if qq="" then
  187.                 qq=null
  188.             end if
  189.             rs("oicq")=qq
  190.             exec="update ly set qq='"&qq&"' where bl=1 and name='"&name&"'"
  191.             conn.execute(exec)
  192.         end if
  193.         if isNull(rs("homepage")) or rs("homepage")<>url then
  194.             if url="" then
  195.                 url=null
  196.             end if
  197.             rs("homepage")=url
  198.             exec="update ly set url='"&url&"' where bl=1 and name='"&name&"'"
  199.             conn.execute(exec)
  200.         end if
  201.         if isNull(rs("icq")) or rs("icq")<>icq then
  202.             if icq="" then
  203.                 icq=null
  204.             end if
  205.             rs("icq")=icq
  206.             if isNull(icq) then
  207.                 exec="update ly set icq=null where bl=1 and name='"&name&"'"
  208.             else
  209.                 exec="update ly set icq='"&icq&"' where bl=1 and name='"&name&"'"
  210.             end if
  211.             conn.execute(exec)
  212.         end if
  213.         if isNull(rs("msn")) or rs("msn")<>msn then
  214.             if msn="" then
  215.                 msn=null
  216.             end if
  217.             rs("msn")=msn
  218.             if isnull(msn) then
  219.                 exec="update ly set msn=null where bl=1 and name='"&name&"'"
  220.             else
  221.                 exec="update ly set msn='"&msn&"' where bl=1 and name='"&name&"'"
  222.             end if
  223.             conn.execute(exec)
  224.         end if
  225.         if isNull(rs("gbuserclass")) or rs("gbuserclass")<>gbuserclass then
  226.             rs("gbuserclass")=gbuserclass
  227.         end if
  228.         
  229.         rs.update
  230.         rsclose()
  231.         response.write "<font color=red>╨▐╕─│╔╣ªúíúíúí</font>"
  232.         response.write homeInput
  233.         
  234.     end if
  235. end sub %>
  236.    </td>
  237.  </tr>
  238. </table>
  239. <!--#include file="foot.asp"-->
  240.  
  241. </body>
  242.  
  243. </html>
  244.