user_fun.asp

一个完整的BBS论坛源代码

<%
Dim ApplyFlag
ApplyFlag = 0
Dim Form_ID,Form_UserName,Form_Pass,Form_Mail,Form_Address
Dim Form_Sex,Form_Birthday,Form_ApplyTime,Form_ICQ,Form_OICQ,Form_Sessionid,Form_Online
Dim Form_Prevtime,Form_Userphoto,Form_IP,Form_UserLevel,Form_Homepage,Form_Underwrite,Form_PrintUnderwrite
Dim Form_Officer,Form_Points
Dim Form_Login_ip,Form_Login_oknum,Form_Login_falsenum,Form_Login_lastpass,Form_Login_RightIP
Dim Form_Password1,Form_Password2,Form_byear,Form_bday,Form_bmonth
Dim Form_FaceHeight,Form_FaceWidth,Form_FaceUrl,Form_UserLimit
Dim Form_Question,Form_Answer,Form_UserTitle,Form_CachetValue,Form_LockIP,Form_CharmPoint

Rem =====初始化变量=====
Form_Sex = 0
Form_Online = 0
Form_Officer = 0
Form_UserLevel = 0
'Form_Userphoto = "224"
Form_Points = 0
Form_ID=0
Form_ApplyTime=GetTimeValue(DEF_Now)
Form_Prevtime = Form_ApplyTime
Form_Login_oknum = 0
Form_Login_falsenum = 0
Form_CachetValue = 0
Form_CharmPoint = 0
Rem =====初始化结束=====

Function checkFormDate

	Form_ID = Left(Trim(Request("Form_ID")),14)
	Form_UserName = Trim(Request("Form_UserName"))
	Form_Mail = Trim(Request("Form_Mail"))
	Form_Address = Trim(Request("Form_Address"))
	Form_Sex = Trim(Request("Form_Sex"))
	Form_ICQ = Left(Trim(Request("Form_ICQ")),14)
	Form_OICQ = Left(Trim(Request("Form_OICQ")),14)
	Form_Userphoto = Left(Trim(Request("Form_Userphoto")),14)
	Form_Homepage = Trim(Request("Form_Homepage"))
	Form_Underwrite = Request("Form_Underwrite")
	Form_Password1 = Trim(Request("Form_Password1"))
	Form_Password2 = Trim(Request("Form_Password2"))
	Form_byear = Left(Trim(Request("Form_byear")),14)
	Form_bday = Left(Trim(Request("Form_bday")),14)
	Form_bmonth = Left(Trim(Request("Form_bmonth")),14)
	
	Form_ApplyTime = Trim(Request("Form_ApplyTime"))
	Form_IP = Trim(Request("Form_IP"))
	Form_UserLevel = Left(Trim(Request("Form_UserLevel")),14)
	Form_Officer = Trim(Request("Form_Officer"))
	Form_Points = Left(Trim(Request("Form_Points")),14)
	Form_Sessionid = Left(Trim(Request("Form_Sessionid")),14)
	Form_Online = Trim(Request("Form_Online"))
	Form_Prevtime = Trim(Request("Form_Prevtime"))
	Form_Answer = Trim(Request("Form_Answer"))
	Form_Question = Trim(Request("Form_Question"))
	Form_LockIP = Trim(Request("Form_LockIP"))

		Form_Login_ip = Trim(Request("Form_Login_ip"))
		Form_Login_oknum = Left(Trim(Request("Form_Login_oknum")),14)
		Form_Login_falsenum = Left(Trim(Request("Form_Login_falsenum")),14)
		Form_Login_lastpass = Trim(Request("Form_Login_lastpass"))
		Form_Login_RightIP = Trim(Request("Form_Login_RightIP"))

	If DEF_AllDefineFace = 1 Then
		Form_FaceUrl = Trim(Request("Form_FaceUrl"))
		Form_FaceWidth = Left(Trim(Request("Form_FaceWidth")),14)
		Form_FaceHeight = Left(Trim(Request("Form_FaceHeight")),14)
	End If
	Form_UserTitle = LeftTrue(Trim(Request("Form_UserTitle")),14)
	Form_CachetValue = Left(Request("Form_CachetValue"),14)
	If Form_CachetValue = "" or isNumeric(Form_CachetValue) = False Then Form_CachetValue = 0
	Form_CachetValue = Fix(cCur(Form_CachetValue))
	If Form_CachetValue < -100 Then Form_CachetValue = -100
	If Form_CachetValue > 100 Then Form_CachetValue = 100
	
	Form_CharmPoint = Left(Request("Form_CharmPoint"),14)
	If Form_CharmPoint = "" or isNumeric(Form_CharmPoint) = False Then Form_CharmPoint = 0
	Form_CharmPoint = Fix(cCur(Form_CharmPoint))
	
	If isNumeric(Form_Sessionid) = 0 Then Form_Sessionid = 0

	Dim dateflag

	dateflag=1
	
	Dim Temp1,TempN,Temp2
	Form_UserLimit = 0
	Temp2 = 1
	For TempN = 0 to LimitUserStringDataNum
		Temp1 = Request("Limit" & TempN+1)
		If Temp1 <> "1" Then Temp1 = "0"
		If Temp1 = "1" Then Form_UserLimit = Form_UserLimit+cCur(Temp2)
		Temp2 = Temp2*2
	Next

	If isNumeric(Form_ID)=0 Then Form_ID = 0
	Form_ID = cCur(Form_ID)
	If Form_ID>0 Then
		If CheckUserIDExist(Form_ID) = 0 Then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "用户ID不存在，不能完成修改! <br>" & VbCrLf
			GBL_CHK_Flag = 0
			Exit Function
		End If
	End If

	If Form_UserName="" then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "请输入用户名!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	else
			If Form_UserName = "游客" Then
				GBL_CHK_TempStr = "不允许使用此用户名!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
		
			If inStr(Form_UserName,"'")>0 or inStr(Form_UserName,chr(34))>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含'或" & chr(34) & "符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"`")>0 or inStr(Form_UserName,"~")>0 or inStr(Form_UserName,"&")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含`或&符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"!")>0 or inStr(Form_UserName,"@")>0 or inStr(Form_UserName,"^")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含!@^符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"#")>0 or inStr(Form_UserName,"$")>0 or inStr(Form_UserName,"%")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含#$%符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"*")>0 or inStr(Form_UserName,"(")>0 or inStr(Form_UserName,")")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含*()符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"+")>0 or inStr(Form_UserName,"=")>0 or inStr(Form_UserName,"|")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含+=|符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			'If inStr(Form_UserName," ")>0 or inStr(Form_UserName,chr(10))>0 or inStr(Form_UserName,chr(13))>0 then
			'	GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含空格,换行等符号!<br>"
			'	GBL_CHK_Flag = 0
			'	Exit Function
			'End If
			If inStr(Form_UserName,chr(127))>0 or inStr(Form_UserName,chr(9))>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含制表符等符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"[")>0 or inStr(Form_UserName,"]")>0 or inStr(Form_UserName,"\")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含[]\等符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"{")>0 or inStr(Form_UserName,"}")>0 or inStr(Form_UserName,";")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含{};等符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,":")>0 or inStr(Form_UserName,",")>0 or inStr(Form_UserName,".")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含:,.等符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
			If inStr(Form_UserName,"<")>0 or inStr(Form_UserName,">")>0 or inStr(Form_UserName,"/")>0 or inStr(Form_UserName,"?")>0 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名不能包含<>?/等符号!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
	End If

	If Len(Form_UserName) > 20 then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名太长!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If
	
	If CheckUserNameExist(Form_UserName) = 1 Then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "用户名已经存在，请用其它用户名! <br>" & VbCrLf
		GBL_CHK_Flag = 0
		Exit Function
	End If
	'If Form_Answer="" then
	'	GBL_CHK_TempStr = GBL_CHK_TempStr & "请输入密码提示答案!<br>"
	'	GBL_CHK_Flag = 0
	'	Exit Function
	'End If
	If len(Form_Answer)>20 then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "密码提示答案不能超过20个字!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If Form_LockIP <> "" Then
		If StrLength(Form_LockIP) > 15 or isNumeric(Replace(Form_LockIP,".","")) = 0 or (Replace(Form_LockIP,".","",1,3,0) = Replace(Form_LockIP,".","",1,2,0)) Then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "ＩＰ锁定填写错误，请输入正确的ＩＰ地址!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
	End If

	If Form_Password1 = "" and Form_Password2 = "" and ApplyFlag = 0 Then
		Form_Password1 = ""
		Form_Password2 = ""
	Else
		If Form_Password1="" then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "请输入密码!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
		If Len(Form_Password1) > 20 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "密码太长!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
	
		If Form_Password2="" then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "请输入验证密码!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
		If Len(Form_Password2) > 20 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "验证密码太长!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
		If Form_Password2 = "" then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "请填写密码!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
		If Form_Password1 <> Form_Password2 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "两次密码输入不相同!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		End If
		'If Form_Password2 = Form_UserName or Len(Form_Password2)<4 Then
		'	GBL_CHK_TempStr = GBL_CHK_TempStr & "密码不能和用户名相同，并且不能小于四位!<br>"
		'	GBL_CHK_Flag = 0
		'	Exit Function
		'End If
		'If Len(Form_Password2) = 4 and isNumeric(Form_Password2) Then
		'	GBL_CHK_TempStr = GBL_CHK_TempStr & "密码太简单!<br>"
		'	GBL_CHK_Flag = 0
		'	Exit Function
		'End If
	End If

	If Len(Form_Mail) > 60 then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "邮箱地址不能长于60个字符!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If Form_Mail = "" then
		GBL_CHK_TempStr = "邮箱地址必须填写!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If inStr(Form_Mail,"@") = false then
		GBL_CHK_TempStr = "邮箱地址错误!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If Form_ICQ <> "" then
		If IsNumeric(Form_ICQ) = 0 or instr(Form_ICQ,",")>0 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "ICQ号码必须是数字!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		else 
			If Form_ICQ>1999999999 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "ICQ号码错误!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
		End If
	End If

	If Form_OICQ <> "" then
		If IsNumeric(Form_OICQ) = 0 or instr(Form_OICQ,",")>0 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "你的OICQ(QQ)号码必须是数字!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		else
			If Form_OICQ>9999999999 then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "你的OICQ(QQ)号码错误!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
		End If
	End If

	If Len(Form_Address) > 150 then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "地址太长!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If Form_Sex <> "密" and Form_Sex <> "男" and Form_Sex <> "女" then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "性别错误!<br>"
		GBL_CHK_Flag = 0
		Exit Function
	End If

	If Form_byear <> "" and Form_byear <> "19" then
		If IsNumeric(Form_byear) = 0 or instr(Form_byear,",")>0 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "出生年错误!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		else
			Form_byear = cCur(Form_byear)
			If (Form_byear>year(date) or Form_byear<1900) then
				GBL_CHK_TempStr = GBL_CHK_TempStr & "出生年错误!1<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
		End If
	else
		dateflag = 0
	End If

	If Form_bmonth <> "" then
		If IsNumeric(Form_bmonth) = 0 or instr(Form_bmonth,",")>0 then
			GBL_CHK_TempStr = GBL_CHK_TempStr & "出生月份错误!<br>"
			GBL_CHK_Flag = 0
			Exit Function
		else
			If Form_bmonth>12 or Form_bmonth<0 then
				Form_bmonth = cCur(Form_bmonth)
				GBL_CHK_TempStr = GBL_CHK_TempStr & "出生月份错误!<br>"
				GBL_CHK_Flag = 0
				Exit Function
			End If
		End If