reg.asp

他是一个asp+access的多用户留言板！

<!-- #include file="密码验证.asp" -->

<%un=request.form("NOIuser")

pa=request.form("NOIpass")
pa1=request.form("reNOIpass")
if pa1<>pa then
     %>
     <script language=vbscript>
     self.alert "您的两次密码不一致。"
     history.back
     </script>
     
     
     <%    
     Response.End  
 end if    
title="注册 --留言板"
%>



<!-- #include file="conn.asp" -->





<% 
   



if   un<> "" and pa<>""  then
     
         if un="客人" or un="admin" or un="加佳工作室" or len(un)<3 or instr(1,un,"<")>0 then
            %>
           <script language=vbscript>
           self.alert "您选择的的用户名已经被禁用"
           history.back
           </script>  
            <%    
             Response.End  
         end if

         set rs = server.CreateObject("ADODB.Recordset")
         rs.open "SELECT * FROM NOIP选手 WHERE 姓名 = " & """" &  un & """",conn ,3,3
         if err then   Response.end

         if not rs.eof then
            %>
           <script language=vbscript>
           self.alert "您的用户名已经有被使用"
           history.back
           </script>  
            <%    
             Response.End  
             else
             rs.addnew
             rs("MD5密码")=md5(pa)
             rs("姓名")=un
             rs("头衔")="用户"
                response.Cookies("NOIPpass")=pa
                response.Cookies("NOIPid")=rs("id")
                response.Cookies("NOIPuser")=un
             rs.update
            %>
           <script language=vbscript>
           self.alert "恭喜您，您已经注册成功，下面请对您的个人资料进行修改。"
           self.location="profile.asp?class=" & classnum
           </script>  
            <%    
         end if    
          rs.close        

         set rs=nothing
else
%>
<!-- #include file="head.asp" -->
<script language=VBScript>

if instr(1 , top.location , "index.asp" )=0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")

</script>

<table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class=a2 id="table6">


<form action="reg.asp?class=<%=classnum%>" method="POST" id=form1 name=form1>
<tr>
<td width="328" height="25" align="center" class=a1>
注册信息</td></tr><tr>
<td height="19" width="328" valign="top" align="center" class=a3>
&nbsp;用户昵称: <input type="text" size="20" value name="NOIuser">
<br>
&nbsp;用户密码: <input type="password" size="20" value name="NOIpass">&nbsp;<br>
&nbsp;重复密码: <input type="password" size="20" value name="reNOIpass">&nbsp;<br>
<input type="submit" value=" 注册 " name="Submit1">　<input type="reset" value=" 取消 " name="Submit"> </td></tr> <input type="hidden" name="do" value="login"> </form></table>
<%end if%><!-- #include file="foot.asp" -->