check.asp

程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件

<%
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,姓名,密码,性别,密码提示问题,密码提示答案,注册日期,登录次数,电子邮件 FROM 注册信息 WHERE 姓名='" & 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("姓名")=Name
	RegRS("密码")=md5(Password)
	RegRS("密码提示问题")=PasswordQuestion
	RegRS("密码提示答案")=md5(PasswordAnswer)
	RegRS("注册日期")=Date()
	RegRS("登录次数")=0
	RegRS("电子邮件")=Email
	RegRS("性别")="没有填写"
	RegRS.Update
	Action="suc"
	Session("User")=Name
Set RegRS=Nothing
End IF

End IF
End Function
%>