| 用户注册

<%if GetUsersSystem("UsersRegOn") =0 then call ShowErr("
- 暂时关闭注册功能
","Users_Reg.asp",0) End if Sub RegSave() if CheckCF("UsersName",NoSqlHack(request.Form("usersid")),"'")>0 then call ShowErr("
- 用户名已被占用，请重新输入！
","javascript:history.go(-1);",0) end if if CheckCF("UsersEmail",NoSqlHack(request.Form("email")),"'")>0 then call ShowErr("
- Email已被占用，请重新输入！
","javascript:history.go(-1);",0) end if If API_Enable Then FoundErr = False ErrMsg = "" sPE_Items(conAction, 1) = "reguser" sPE_Items(conUsername, 1) = NoSqlHack(request.Form("usersid")) sPE_Items(conPassword, 1) = NoSqlHack(Request.Form("password")) sPE_Items(conQuestion, 1) = NoSqlHack(Request.Form("question")) sPE_Items(conAnswer, 1) = NoSqlHack(Request.Form("answer")) sPE_Items(conEmail, 1) = NoSqlHack(request.Form("email")) sPE_Items(conUserstatus, 1) = 1 sPE_Items(conJointime, 1) = Now() sPE_Items(conUserip, 1) = Request.ServerVariables("REMOTE_ADDR") sPE_Items(conTruename, 1) = NoSqlHack(Request.Form("usersname")) sPE_Items(conGender, 1) = "" sPE_Items(conBirthday, 1) = "" sPE_Items(conQQ, 1) = NoSqlHack(Request.Form("QQ")) sPE_Items(conMsn, 1) = "" sPE_Items(conMobile, 1) = "" sPE_Items(conTelephone, 1) = "" sPE_Items(conProvince, 1) = "" sPE_Items(conCity, 1) = "" sPE_Items(conAddress, 1) = "" sPE_Items(conZipcode, 1) = "" sPE_Items(conHomepage, 1) = "" If createXmlDom Then prepareXML True SendPost If FoundErr Then ErrMsg = "
- " & ErrMsg & "
" End If Else FoundErr = True ErrMsg = "
- 目前注册服务不可用! [APIError-XmlDom-Runtime]
" End If End If Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Users" Rs.open sql,Conn,1,3 Rs.addnew RS("UsersName")=NoSqlHack(Request.Form("usersid")) RS("UsersPassword")=md5(NoSqlHack(Request.Form("password")),16) RS("UsersProblems")=NoSqlHack(Request.Form("question")) RS("UsersAnswer")=NoSqlHack(Request.Form("answer")) RS("UsersGroup")=GetUsersSystem("UsersRegGroup") RS("UsersType")=GetUsersSystem("UsersRegType") Select Case GetUsersSystem("UsersRegType") Case 0 RS("UsersCoin")=GetUsersSystem("UsersRegCoin") Case 1 RS("UsersCoinDate")=Now()+GetUsersSystem("UsersRegDate") End Select RS("UsersTrueName")=NoSqlHack(Request.Form("usersname")) RS("UsersEmail")=NoSqlHack(Request.Form("email")) RS("UsersQQ")=NoSqlHack(Request.Form("QQ")) RS("UsersRegDate")=date() Rs.Update Rs.Close Set Rs = Nothing call ShowErr("
- 添加用户成功
","Users_Right.asp",1) End Sub Action=Trim(request("Action")) Select Case Action Case "Reg2" call Reg2() Case "RegSave" call RegSave() Case else call Reg1() End Select sub Reg1() Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_UsersRegNotice" Rs.open sql,Conn,1,1 YWNT_TMS_ID=RS("ID") YWNT_TMS_RegNotice=RS("RegisterNotice") RS.close set RS=nothing%>

注册条款

<%=YWNT_TMS_RegNotice%>

<%end sub sub Reg2()%>

用 户 名： |
用户密码： |
密码强度： |
重复密码： |
密码提示问题： |
密码提示答案： |
真实姓名： |
电子邮箱： |
联系Q Q： |

<%end sub call connclose()%>