check.asp

这是一个校友录管理系统

<%
Function CheckChar(Str)
For I=0 to 128
	For N=1 To Len(Str)
		If Mid(str,N,1)=CHR(I) Then
			CheckName=False
		End IF
	Next
Next
End Function
Function CheckRegInfo()
If Name="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的姓名！<br>"
Else
	CheckChar(Name)
	If CheckName=False Then
	RegOK=False
	RegErr=RegErr & "·您的姓名中包含了英文、数字、符号，请更改！<br>"
	End IF
End If
If Password="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的密码！<br>"
End IF
IF Len(Password)<6 Then
	RegOK=False
	RegErr=RegErr & "·您的密码不得少于六位！<br>"
End IF
If Password<>PasswordConfirm Then
	RegOK=False
	RegErr=RegErr & "·密码与确认密码不符，请更改！<br>"
End IF
IF PasswordQuestion="" Then
	RegOK=False
	RegErr=RegErr & "·请填写密码提示问题！<br>"
End IF
IF PasswordAnswer="" Then
	RegOK=False
	RegErr=RegErr & "·请填写密码回答提示！<br>"
End IF
IF Email="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的邮箱地址！<br>"
End IF
IF RegOK=False Then
Action="error"
Else

SQL="SELECT ID,username,password,sex,quesion,answer,adddate,loginnum,useremail FROM [user] WHERE username='" & Name & "'"
Set RegRS=server.Createobject("ADODB.Recordset")
RegRS.open SQL,Conn,3,2
If Not RegRs.Eof Then
	Action="error"
	RegOK=False
	RegErr=RegErr & "·这个姓名已经被注册了！<br>"
Else
	RegRs.AddNew
	RegRS("username")=Name
	RegRS("password")=Password
	RegRS("quesion")=PasswordQuestion
	RegRS("answer")=PasswordAnswer
	RegRS("adddate")=Date()
	RegRS("loginnum")=0
	RegRS("useremail")=Email
	RegRS("sex")=""
	RegRS.Update
	Action="suc"
	Session("User")=Name
Set RegRS=Nothing
End IF

End IF
End Function
%>