reg.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#include file="../ACT_INC/ACT.User.asp"-->
<!--#include file="../ACT_INC/MD5.asp"-->
<!--#include file="../ACT_inc/ACT.U_M.ASP"-->

<%			

		
		
		Dim Rs,ModeID,i,TableName,CheckMode,ACTCode
		Set ACTCode =New ACT_Code
		if ACTCMS.ActCMS_Sys(12) = "1" or ACTCMS.ActCMS_Sys(13) = "1"  Then
			Call ACTCMS.Alert("系统关闭注册或会员系统已经关闭",ACTCMS.ActCMS_Sys(3))		
			Response.End
		End If
	ModeID=ACTCMS.ChkNumeric(request("ModeID"))
	Select Case Request.QueryString("action")	
			   Case "save" 
			   		Call SaveUser()
					Response.End
			   Case "RegM"
			   		call regok()
			   Case else
					Call main()
					Response.End
		End Select
		Sub SaveUser()
		Dim UserName ,Codes,PassWord,RPassWord,Email,TempRs,AdminRS,AdminSql,Question,Answer,Regrz,CheckNum
		if actcms.actexe("select RegCode from ModeUser_Act where ModeID="&ModeID&"")(0) = 0 Then
		 Codes = Request.Form("Code")
			If CStr(Codes) <>CStr(Session("GetCode")) then
				Call ACTCMS.Alert("验证码有误，重新输入","")		
				Response.End
			End if
		End  If 
			 Dim rs1
	  	     Set Rs1=ACTCMS.actexe("select ModeTable from ModeUser_Act where ModeID="&ModeID&" ")
			 If Not Rs1.eof Then
				TableName=Rs1("ModeTable")
			 Else 
				Call actcms.alert("未定义操作","")
				response.End 
			 End if	
			UserName = ACTCMS.S("UserName")
			PassWord = Request.Form("PassWord")
			RPassWord = Request.Form("RPassWord")	
			Email = ACTCMS.S("Email")	
			Question = ACTCMS.S("Question")
			Answer = ACTCMS.S("Answer")
			IF Trim(PassWord) <> Trim(RPassWord) Then
				Call ACTCMS.Alert("2次输入的密码不一致!","")		
				Response.end
			End IF
			
			IF UserName <> "" Then
				IF Len(UserName) >= 100 Then
				    Call ACTCMS.Alert("用户名不能超过50个字符","")		
					Response.end
				End IF
			Else
				    Call ACTCMS.Alert("请输入用户名","")		
					Response.end
			End if	
		
			if UserName="" then
			 Call ACTCMS.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, "