userregpost.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<!--#include file="../inc/md5.asp"--><%
if WebUser=0 then
dim UserName,Password,password2,Question1,Answer1,Question2,Answer2,Usermail,Usermail2,usersex,homepage,QQ,msn,address,tel,zip
UserName=trim(request("UserName"))
Names=trim(request("Name"))
Password=trim(request("Password"))
password2=trim(request("password2"))
Usermail=trim(Request.Form("email"))
Usermail2=trim(Request.Form("email2"))
Question1=trim(Request.Form("Question1"))
Answer1=trim(Request.Form("Answer1"))
Question2=trim(Request.Form("Question2"))
Answer2=trim(Request.Form("Answer2"))
homepage=trim(Request.Form("homepage"))
QQ=trim(Request.Form("QQ"))
MSN=trim(Request.Form("MSN"))
address=trim(Request.Form("address"))
tel=trim(Request.Form("tel"))
zip=trim(Request.Form("zip"))
usersex=trim(Request("usersex"))

if UserName="" or strLength(UserName)>16 or strLength(UserName)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>请输入您的用户名(不能大于16小于6)！</li>"
else
  	if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"