reg.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************
Dim replaceadd,Adderror,UserName,UserregDate
    IF int(Web_Const(36))=0 THEN
        error_title="对不起，本站暂停注册，如有需要请与管理员联系！"
        Call Page_check(3,0)
    End IF
    Class_Name="用户注册 > "
    IF Action="" THEN Class_Name=Class_Name & "阅读注册协议"
    IF Action="Complete" THEN Class_Name=Class_Name & "填写注册资料"
    IF Action="Detection" THEN
        replaceadd=Web_Const(35)
        replaceadd=split(replaceadd,",")
        For intTemp=0 to ubound(replaceadd)
            IF instr(trim(Request.form("R_User")),replaceadd(intTemp)) THEN
                'Adderror=1
            End IF
        Next
        IF Adderror=1 THEN
            error_title="对不起，用户名中含有被禁止的字符，请重新输入！"
            founderr=True
        Else
            UserName=checkfSQLStr(trim(Request.form("R_User")))
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & UserName & "'"
            Rs.open Sql,Conn,1,1
                IF Rs.RecordCount<>0 THEN
                    error_title="对不起，此用户名已被注册，请重新输入！"
                    founderr=True
                ElseIF len(trim(Request.form("R_User")))<3 THEN
                    error_title="对不起，用户名不能少于3个字符，请重新输入！"
                    founderr=True
                End IF
            Rs.Close
            Set Rs=Nothing
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            ToHistory="javascript:history.go(-1);"
            saveok="恭喜您，此用户名可以注册！"
            Call Form_Saveok()
        End IF
    End IF
    IF Action="Save" THEN
        replaceadd=Web_Const(35)
        replaceadd=split(replaceadd,",")
        For intTemp=0 to ubound(replaceadd)
            IF instr(trim(Request.form("R_User")),replaceadd(intTemp)) THEN
                'Adderror=1
            End IF
        Next
        Set Rs=server.createobject("adodb.recordset")
        Sql="Select * from Tx_User where User_regIp='" & VisitorsIp & "' order by User_regDate desc"
        Rs.open Sql,Conn,1,1
            IF Rs.RecordCount<>0 THEN
                IF DateDiff("n",Rs("User_regDate"),Now())<int(Web_Const(39)) THEN
                    UserregDate=1
                End IF
            End IF
        Rs.Close
        Set Rs=Nothing
        Set Rs=server.createobject("adodb.recordset")
        Sql="Select * from Tx_User where User_Email='" & trim(Request.form("R_Email")) & "'"
        Rs.open Sql,Conn,1,1
            IF Rs.RecordCount<>0 THEN
                UserregEmail=1
            End IF
        Rs.Close
        Set Rs=Nothing
        IF int(Web_Const(39))=0 THEN UserregDate=int(Web_Const(39))
        IF int(Web_Const(40))=1 THEN UserregEmail=0
        IF UserregDate=1 THEN
            error_title="对不起，本站限制每次注册间隔时间为" & Web_Const(39) & "分钟，请稍后注册！"
            founderr=True
        ElseIF Adderror=1 THEN
            error_title="对不起，用户名中含有被禁止的字符，请重新输入！"
            founderr=True
        Else
            UserName=checkfSQLStr(trim(Request.form("R_User")))
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & UserName & "'"
            Rs.open Sql,Conn,1,1
                IF Rs.RecordCount<>0 THEN
                    error_title="对不起，此用户名已被注册，请重新输入！"
                    founderr=True
                ElseIF len(trim(Request.form("R_User")))<3 THEN
                    error_title="对不起，用户名不能少于3个字符，请重新输入！"
                    founderr=True
                ElseIF len(trim(Request.form("R_Pass")))<6 THEN
                    error_title="对不起，密码不能少于6个字符，请重新输入！"
                    founderr=True
                ElseIF trim(Request.form("R_Pass"))<>trim(Request.form("R_Passtoo")) THEN
                    error_title="对不起，确认密码和原密码不一致，请重新输入！"
                    founderr=True
                ElseIF trim(Request.form("R_Quesion"))="" THEN
                    error_title="对不起，请输入密码提示问题！"
                    founderr=True
                ElseIF trim(Request.form("R_Answer"))="" THEN
                    error_title="对不起，请输入密码问题答案！"
                    founderr=True
                ElseIF UserregEmail=1 THEN
                    error_title="对不起，此电子邮件已经注册过了，请重新输入！"
                    founderr=True
                ElseIF IsValidEmail(trim(Request.form("R_Email")))=false THEN
                    error_title="对不起，请输入正确的电子邮件地址！"
                    founderr=True
                ElseIF int(Web_Const(38))=1 THEN
                    IF cstr(Session("GetCode"))<>Request.form("VerifyCode") THEN
                        error_title="对不起，验证码输入不正确！"
                        founderr=True
                    End IF
                End IF
            Rs.Close
            Set Rs=Nothing
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            IF not isnumeric(trim(Request.form("R_UserCode"))) And trim(Request.form("R_UserCode"))<>"" THEN
                error_title="对不起，邮政编码格式不正确！"
                founderr=True
            ElseIF len(trim(Request.form("R_UserCode")))<>6 And trim(Request.form("R_UserCode"))<>"" THEN
                error_title="对不起，邮政编码格式不正确！"
                founderr=True
            ElseIF not isnumeric(trim(Request.form("R_UserQq"))) And trim(Request.form("R_UserQq"))<>"" THEN
                error_title="对不起，QQ号码格式不正确！"
                founderr=True
            ElseIF len(trim(Request.form("R_UserQq")))<5 And trim(Request.form("R_UserQq"))<>"" THEN
                error_title="对不起，QQ号码格式不正确！"
                founderr=True
            End IF
            IF founderr=True THEN
                Call Page_check(3,0)
            Else
                Dim User_Passwd,User_Answer,User_UserContent,User_UserSigns,replaceall,replacestr
                Set Rs=server.createobject("adodb.recordset")
                Sql="Select * from Tx_User"
                Rs.open Sql,Conn,1,3