reg.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="BtBBS_FUN.asp"-->
<!--#include file="md5.asp"-->
<%
 login=Request.QueryString("login")
 StarTime = Timer():AccessNum=0
 Response.Write "<script src=online.asp?userwz=注册页面&dis=NO></script>"
 if Request.QueryString("Accect")="" then
     Call JCC_Board_Top
     call Login_EN
     DIM myFile
     Const ForReading = 1
     myFile = Server.MapPath("xy.ASP")
     SET fileStreamObj = CreateObject("Scripting.FileSystemObject")
     SET textStream = fileStreamObj.OpenTextFile(myFile,ForReading,False)
     filenl=textStream.ReadAll()
     textStream.Close()
     set textStream=nothing
     set fileStreamObj=nothing
     Response.Write "</form><form name=filexg action=reg.asp?Accect=xy method=post>"
     Response.Write "<table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  注册新用户</font></td></tr></table>"
     Response.Write "<table border=0 width=600>"
     Response.Write "<tr><td width=600><TEXTAREA class=fminpt rows=20 cols=90 name=filex>"&filenl&"</textarea></td></tr>"
     Response.Write "<tr><td align=center><input type=Submit value=""同&nbsp;意"">&nbsp;&nbsp;&nbsp;&nbsp;</td>"
     Response.Write "</table>"
 else
     if Request.QueryString("reg")="" then
         Call JCC_Board_Top
         call Login_EN%>
         </form><form name=newfile  method="post" action="reg.asp?reg=reg&Accect=xy">
         <table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  注册新用户</font></td></tr></table> 
         <table border=1 width=743 cellspacing=0 cellpadding=0 align=center class=table1> 
         <tr><td width=300 class=light1><b>用户名:</b><br>注册用户名长度限制为1－10字节</td><td class=light>    
         <INPUT class=fminpt name=username type=text size=20></td></tr> 
         <tr><td width=200 class=light1>性别:<br>请选择您的性别</td><td class=light>    
         <INPUT name=sex type=radio value=1 checked>男<img src=../images/Male.gif>&nbsp; 
         <INPUT name=sex type=radio value=2>女<img src=../images/Female.gif> 
         </td></tr> 
         <tr><td class=light1><b>设置密码:</b><br>请输入密码，区分大小写,最少5个字节。<BR>请不要使用任何类似 '*'、' ' 或 HTML 字符</td><td class=light> 
         <INPUT class=fminpt name=password1 type=password size=20></td></tr> 
         <tr><td class=light1><b>确认密码:</b><br>请再输一遍确认</td><td class=light> 
         <INPUT class=fminpt name=password2 type=password size=20></td></tr> 
         <tr><td class=light1><b>密码问题:</b><br>忘记密码的提示问题</td><td class=light> 
         <INPUT class=fminpt name=passwt type=text size=20></td></tr> 
         <tr><td class=light1><b>问题答案:</b><br>忘记密码的提示问题答案，用于取回论坛密码</td><td class=light> 
         <INPUT class=fminpt name=passdh type=text size=20></td></tr> 
         <tr><td class=light1><b>电子邮件:</b><br>请输入有效的邮件地址，这将使您能更好的使用论坛</td> 
         <td class=light><INPUT class=fminpt name=email type=text size=40></td></tr> 
         <tr><td class=light1><b>输入验证码:</b><br>这主要是为了论坛注册的安全</td> 
         <td class=light><INPUT name=VerifyCode type=text size=8> &nbsp; <img src="Code/GetCode.asp" height=20></td></tr> 
         <tr><td colspan=2 align=center class=light1><input type=Submit value="完成" name=add>&nbsp; <input type="reset" name="Clear" value="重写"></td></tr> 
         </form></table><% 
     else 
         username=Request.Form("username") 
         sex=Request.Form("sex") 
         password1=Request.Form("password1") 
         password2=Request.Form("password2") 
         passwt=Request.Form("passwt") 
         passdh=Request.Form("passdh") 
         email=Request.Form("email") 
         if username<>"" and sex<>"" and password1<>"" and password2<>"" and passwt<>"" and passdh<>"" and email<>"" then 
             if password1<>password2 then 
                 Call JCC_Board_Top 
                 Call Login_EN 
                 Response.Write "<br><br><br>确认密码和设置密码项不同<br><br><br><br>" 
             else 
                 if len(username)<=UserNameLen and len(PassWord1)>=PassWordLen then                 
                     If request("VerifyCode")="" or isnull(request("VerifyCode")) then 
                         Call JCC_Board_Top 
                         Call Login_EN 
	                     Response.Write "<br><br><br>请输入您的验证码。<br><br><br>" 
                     else 
	                     if int(request("VerifyCode"))<>int(Session("GetCode")) then  
	                         Call JCC_Board_Top 
                             Call Login_EN 
	                         Response.Write "<br><br><br>您的验证码不正确。<br><br><br>" 
                         else                      
                             AccessNum=AccessNum+1 
                             Set rs = Server.CreateObject("ADODB.Recordset") 
                             sql="SELECT top 1 * FROM 用户资料 where 用户名='"&username&"' " 
                             rs.open sql,conn,1,3 
                             if rs.BOF and rs.EOF then 
                                 rs.AddNew 
                                 rs("用户名")=username 
                                 rs("性别")=sex 
                                 rs("密码")=md5(password1) 
                                 rs("电子邮件")=email 
                                 rs("密码问题")=passwt 
                                 rs("问题答案")=passdh 
                                 if sex=1 then rs("头像ID")="001.gif" else rs("头像ID")="002.gif" end if 
                                 rs("回帖提示")="N" 
                                 rs("是否开放基本资料")="N" 
                                 rs("是否开放个人资料")="N" 
                                 rs("个人照片")="Http://" 
                                 rs("注册时间")=date()+time() 
                                 rs("权限")="reguser" 
                                 rs("等级")="论坛游民" 
                                 rs("UserPage")="#" 
                                 rs.Update 
                                 Response.Cookies("username")=username 
                                 Response.Cookies("password")=password1 
                                 Response.Cookies("bbsgl")="reguser" 
                                 Response.Cookies("login")="Y" 
                                 Call JCC_Board_Top 
                                 Call Login_EN 
                                 Response.Write "<table width=743><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  注册成功</font></td></tr></table>" 
                                 Response.Write "<meta HTTP-EQUIV=refresh Content='3;url=index.asp'><br><br><br>恭喜你,注册成功! 3 秒后返回首页<br><br><br><br>" 
                             else 
                                 Call JCC_Board_Top 
                                 Call Login_EN 
                                 Response.Write "<table width=743><tr><td><a href=index.asp><font class=NavColor>首页</a>  >>  用户名已经被注册</font></td></tr></table>" 
                                 Response.Write "<br><br><br>这个用户名已经被注册<br><br><br><br>" 
                             end if 
                             rs.Close  
                             set rs=nothing 
                         end if 
                     end if 
                 else 
                     Call JCC_Board_Top 
                     Call Login_EN 
                     Response.Write "<table width=743><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  输入有误</font></td></tr></table>" 
                     Response.Write "<br><br><br>用户名或密码位数不对<br><br><br><br>" 
                 end if 
             end if 
         else 
             Call JCC_Board_Top 
             Call Login_EN 
             Response.Write "<table width=743><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  输入有误</font></td></tr></table>" 
             Response.Write "<br><br><br>注册填写的所有内容均不能为空<br><br><br><br>" 
         end if 
     end if 
 end if 
 set conn=nothing 
 EndTime = Timer() 
 %> 
 <!--#include file="../inc/tom1.inc"-->