fywen_passportok.asp

好用的贴吧源代码

<!--#include file="conn.asp"-->
<!--#include file="inc/pwwd.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
UserName=ReplaceBadWord(request.form("UserName"))
password=ReplaceBadWord(request.form("password"))
passwordok=ReplaceBadWord(request.form("passwordok"))
mail=ReplaceBadWord(request.form("mail"))
qq=ReplaceBadWord(request.form("qq"))
sex=request.form("sex")
zhucedate=date() & Chr(32) & time()
   	If Username="" Then 
    %>
    <script language="javascript">
       alert("用户名必须填写！")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	Else
	If IsNumeric(Username) = True Then
	    If len(Username)<4 Then 
	    %>
    <script language="javascript">
       alert("数字用户名不能少于四位")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	End If
	Else
	If len(Username)<2 Then 
	    %>
    <script language="javascript">
       alert("用户名不能少于两位")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	End If
	End If
	End If
	Dim checkrsobj,sql
	Sql="select * from [user] where username='"&Username&"'"
	Set Rs=Server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
    If Not rs.eof Then 
	%>
    <script language="javascript">
       alert("此用户名已经被注册")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Set Rs = Nothing
	Else
	If len(password)<4 then 
	    %>
    <script language="javascript">
       alert("登陆密码不能少于四位")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	end if
	If password = "" or passwordok="" Then
	%>
    <script language="javascript">
       alert("登陆密码或确认密码必须填写")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Else
	If password <> passwordok Then
	%>
    <script language="javascript">
       alert("登陆密码与确认密码不相同")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	End If
	If Instr(mail,"@")= False or Instr(mail,".")= False Then
	%>
    <script language="javascript">
       alert("电子邮箱不正确")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	End If
	End If
	If IsNumeric(qq) = false or len(qq)>9 or len(qq)<5  Then
	 %>
    <script language="javascript">
       alert("QQ号码不正确")
	   document.location="javascript:history.back(-1)"
    </script>
    <%
	Response.End()
	End If
    If sex = 1 Then
	   sex="男"
	Else
	   sex="女" 
	End If
	userpwd = Md5(password)
	useip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
    If useip = "" Then 
    useip = Request.ServerVariables("REMOTE_ADDR") 
    End If
        set rs= server.createobject("adodb.recordset")
        sql1= "insert into user([username],[userpwd],[zhucedate],[firstdate],[lastdate],[sex],[mail],[qq],[userip]) values ('"&username&"','"&userpwd&"','"&zhucedate&"','"&zhucedate&"','"&zhucedate&"','"&sex&"','"&mail&"','"&qq&"','"&useip&"')"
        rs.Open sql1,conn
    End If
	Call fywencl()
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
%>
    <script language="javascript">
       alert("会员注册完成，点击确定返回首页登陆！")
	   document.location="index.asp"
    </script>