reg.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file="User_conn.asp"-->

<!--#include file="../admin/md5.asp"-->
<%			
		if UserSetting(0) = "1" or UserSetting(1) = "1"  Then
			Call Alert("系统关闭注册或会员系统已经关闭","../")		
			Response.End
		End If
	Select Case Request.QueryString("action")	
			   Case "save" 
			   		Call SaveUser()
					Response.End
			   Case else
					Call main()
					Response.End
		End Select
		Sub SaveUser()		
		
		Dim UserName,Codes,PassWord,RPassWord,TempRs,AdminRS,AdminSql,Question,Answer,Regrz,CheckNum,Privacy
		dim RealName,OfficeTel,HomeTel,Address,Sign,Sex,Email,HomePage,province,City
		dim IDCard,BirthDay,Zip,QQ,MSN,ICQ,UC,Mobile,Fax

		if UserSetting(2)  = 0 Then
		 
		 Codes = Request.Form("artYzm")
			If CStr(Codes) <>CStr(Session("artYzm")) then
				Call Alert("验证码有误，重新输入!","")		
				Response.End
			End if
		End  If
			 Dim rs1
	  	     
			UserName = S("UserName")
			PassWord = Request.Form("PassWord")
			RePassWord = Request.Form("RePassWord")	
			Question = S("Question")
			Answer = S("Answer")
			
			Email = S("Email")	
			RealName  =Trim(request.Form("RealName"))
			Sex       = Trim(Request.Form("Sex"))
			BirthDay  =Trim(request.Form("BirthDay"))
			IDCard    =Trim(request.Form("IDCard"))
			OfficeTel =Trim(request.Form("OfficeTel"))
			HomeTel   =Trim(request.Form("HomeTel"))
			Mobile    =Trim(request.Form("Mobile"))
            Fax       =Trim(request.Form("Fax"))
			province  =Request.Form("prov")
			city      =Request.Form("city")
			Address   =Trim(request.Form("Address"))
			Zip       =Trim(request.Form("Zip"))
			HomePage  = Trim(request.Form("HomePage"))
			QQ        = Trim(request.Form("QQ"))
			ICQ       = Trim(request.Form("ICQ"))
			MSN       = Trim(request.Form("MSN"))
			UC        = Trim(request.Form("UC"))
			Privacy   = Trim(request.Form("Privacy"))
			Sign      =Trim(request.Form("Sign"))			
			
			
			
			IF Trim(PassWord) <> Trim(RePassWord) Then
				Call Alert("2次输入的密码不一致!","")		
				Response.end
			End IF
			
			IF UserName <> "" Then
				IF Len(UserName) >= 100 Then
				    Call Alert("用户名不能超过50个字符","")		
					Response.end
				End IF
			Else
				    Call Alert("请输入用户名","")		
					Response.end
			End if	
		
			if UserName="" then
			 Call Alert("请输入会员名","")	
			elseif InStr(UserName, "=") > 0 Or 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, "