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