<%
dim action : action=getform("action","get")
if action = "reg" then
addUser()
elseif action = "editpass" then
editUser()
else
echoContent()
end if
Sub editPass
dim LoginName,userPass,reuserPass
LoginName=trim(rCookie("loginName"))
userPass=getForm("userPass","post")
reuserPass=getForm("reuserPass","post")
if userPass<>reuserPass then alertMsgAndGo "兩次輸入密碼不相同","-1"
'die "update {prefix}User set [Password]='"&md5(userPass,16)&"' where LoginName='"&LoginName&"'"
conn.Exec "update {prefix}User set [Password]='"&md5(userPass,16)&"' where LoginName='"&LoginName&"'","exe"
alertMsgAndGo "密碼修改成功","editPass.asp"
End Sub
Sub editUser
dim LoginName,userPass,reuserPass,Email,Mobile,Address,PostCode,Gender,QQ,TrueName,Phone
LoginName=trim(rCookie("loginName"))
userPass=getForm("userPass","post")
reuserPass=getForm("reuserPass","post")
Email=filterPara(getForm("Email","post"))
Mobile=filterPara(getForm("Mobile","post"))
Address=filterPara(getForm("Address","post"))
PostCode=filterPara(getForm("PostCode","post"))
Gender=filterPara(getForm("Gender","post"))
QQ=filterPara(getForm("QQ","post"))
TrueName=filterPara(getForm("TrueName","post"))
Phone=filterPara(getForm("Phone","post"))
if userPass<>reuserPass then alertMsgAndGo "兩次輸入密碼不相同","-1"
dim passStr
if not isnul(userPass) then passStr="[Password]='"&md5(userPass,16)&"',"
Conn.Exec"update {prefix}User set "&passStr&" Email='"&Email&"',QQ='"&QQ&"',Mobile='"&Mobile&"',Address='"&Address&"',PostCode='"&PostCode&"',Gender="&Gender&",Phone='"&Phone&"',TrueName='"&TrueName&"' where LoginName='"&LoginName&"'","exe"
alertMsgAndGo "修改成功","editPass.asp"
End Sub
Sub echoContent()
dim templateobj,templatePath : set templateobj = new TemplateClass
templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/reg.html"
'die templatePath
if not CheckTemplateFile(templatePath) then echo "reg.html"&err_16
with templateObj
.content=loadFile(templatePath)
.parseHtml()
.indexpath
.parseCommon
echo .content
end with
set templateobj =nothing : terminateAllObjects
End Sub
Sub addUser
'dim UserID,GroupID,LanguageID,SceneID,LoginName,Password,PswQuestion,PswAnswer,UserStatus,RegTime,RegIP,LastLoginIP,LastLoginTime,LoginCount,TrueName,Gender,Birthday,Country,Province,City,Address,PostCode,Phone,Mobile,Email,QQ,MSN,Permissions,AdminDesc
Dim LoginName,Password,verifyPass,Email,Mobile,Address,PostCode,Gender,QQ,UserStatus,RegTime,RegIP,LastLoginIP,LastLoginTime,Birthday,Exp1,Exp2,Exp3,GroupID,TrueName,Phone
if getForm("code","post")<>Session("Code") then alertMsgAndGo "驗證碼不正確","-1"
LoginName=filterPara(getForm("LoginName","post"))
Password=filterPara(getForm("userPass","post"))
verifyPass=filterPara(getForm("verifyPass","post"))
Email=filterPara(getForm("Email","post"))
Mobile=filterPara(getForm("Mobile","post"))
Address=filterPara(getForm("Address","post"))
PostCode=filterPara(getForm("PostCode","post"))
Gender=1
Gender=filterPara(getForm("Gender","post"))
QQ=filterPara(getForm("QQ","post"))
Phone=filterPara(getForm("Phone","post"))
TrueName=filterPara(getForm("TrueName","post"))
UserStatus=1
RegTime=now()
RegIP=getip()
GroupID=3
if isnul(LoginName) then alertMsgAndGo "用戶名不能為空","-1"
if Conn.Exec("select count(*) from {prefix}User where LoginName='"&LoginName&"'","r1")(0) >0 then alertMsgAndGo "該用戶名已被注冊","-1"
if isnul(Password) then alertMsgAndGo "密碼不能為空","-1"
if isnul(verifyPass) then alertMsgAndGo "確認密碼不能為空","-1"
if Password<>verifyPass then alertMsgAndGo "兩次輸入密碼不相同","-1"
Password=md5(Password,16)
Conn.Exec"insert into {prefix}User(LoginName,[Password],Email,Mobile,Address,PostCode,Gender,QQ,UserStatus,RegIP,RegTime,GroupID,TrueName,Phone) values('"&LoginName&"','"&Password&"','"&Email&"','"&Mobile&"','"&Address&"','"&PostCode&"',"&Gender&",'"&QQ&"',"&UserStatus&",'"&RegIP&"','"&RegTime&"',"&GroupID&",'"&TrueName&"','"&Phone&"')","exe"
alertMsgAndGo "注冊成功！",sitePath&setting.languagepath&"member/login.asp"
End Sub
%>
羞羞漫画_成人漫画_成人专用,好想被狂躁A片免费视频无码,少妇人妻好深太紧了A片VR,从头啪到尾全肉小黄书完整
人人妻人人澡人人爽人人精品直播|
欧美性大战XXXXX久久久|
精品无码久久久久久国产|
国产乱人伦偷精品视频A人人澡|
与子乱亲生子视频中文|
日产精品一线二线三线区|
无码人妻精品一区二区三区东京热|
我被继夫添我阳道舒服免费视频|
欧洲熟妇色ⅩXXXX欧美老妇|
久久婷婷五月综合97色直播|
狠狠亚洲婷婷综合色香五月加勒比|
欧美性猛交XXXX免费看|
天天摸夜夜添添到高潮水汪汪|