📄 reg.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - 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
Rs.addnew
User_Passwd=checkfSQLStr(trim(Request.form("R_Pass")))
Rs("User_Name")=UserName
Rs("User_Passwd")=Md5(User_Passwd)
Rs("User_Quesion")=checkfSQLStr(trim(Request.form("R_Quesion")))
User_Answer=checkfSQLStr(trim(Request.form("R_Answer")))
Rs("User_Answer")=Md5(User_Answer)
Rs("User_Email")=checkfSQLStr(trim(Request.form("R_Email")))
Rs("User_UserName")=checkfSQLStr(trim(Request.form("R_UserName")))
Rs("User_UserRess")=checkfSQLStr(trim(Request.form("R_UserRess")))
Rs("User_UserTel")=checkfSQLStr(trim(Request.form("R_UserTel")))
Rs("User_UserCode")=checkfSQLStr(trim(Request.form("R_UserCode")))
Rs("User_shopPay")=Request.form("R_Pay")
Rs("User_shopGive")=Request.form("R_Give")
Rs("User_UserQq")=checkfSQLStr(trim(Request.form("R_UserQq")))
Rs("User_UserMsn")=checkfSQLStr(trim(Request.form("R_UserMsn")))
Rs("User_UserWeb")=checkfSQLStr(trim(Request.form("R_UserWeb")))
Rs("User_UserLtd")=checkfSQLStr(trim(Request.form("R_UserLtd")))
Rs("User_Picture")=Request.form("Picture")
Rs("User_Group")=1
Rs("User_UserLtd")=checkfSQLStr(trim(Request.form("R_UserLtd")))
User_UserContent=trim(Request.form("R_UserContent"))
User_UserSigns=trim(Request.form("R_UserSigns"))
replaceall=Web_Const(43)
replaceall=split(replaceall,",")
For i=0 To ubound(replaceall)
For intTemp=0 To len(replaceall(i))
replacestr=replacestr & "*"
Next
User_UserContent=replace(User_UserContent,replaceall(i),replacestr)
User_UserSigns=replace(User_UserSigns,replaceall(i),replacestr)
replacestr=""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -