check2.asp

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

<%
Function CheckRegInfo()
ClassNumber=Request.Form("ClassNumber")
Sex=Request.Form("Sex")
Birthday=Request.Form("Birthday")
NickName=Request.Form("NickName")
Address=Request.Form("Address")
Postalcode=Request.Form("Postalcode")
Telephone=Request.Form("Telephone")
OtherTheleone=Request.Form("OtherTheleone")
OICQ=Request.Form("OICQ")
Email=Request.Form("Email")
MSN=Request.Form("MSN")
Homepage=Request.Form("Homepage")
Logion=Request.Form("Logion")
If ClassNumber="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的学号<br>"
Else
	IF Not IsNumeric(ClassNumber) Then
		RegOK=False
		RegErr=RegErr & "·请填写您的正确学号<br>"
	End IF
End IF
If Birthday="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的出生日期<BR>"
End IF
IF Not IsDate(Birthday) Then
	RegOK=False
	RegErr=RegErr & "·请填写正确的出生日期<BR>"
End IF
IF NickName="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的昵称<BR>"
End IF
IF Address="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的通信地址<BR>"
End IF
IF Postalcode="" Then
	RegOK=False
	RegErr=RegErr & "·请填写通信地址所在地的邮政编码<BR>"
Else
	IF Not IsNumeric(Postalcode) Then
		RegOK=False
		RegErr=RegErr & "·请正确填写邮政编码<BR>"
	End IF
End IF
IF Email="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的电子信箱<BR>"
End IF
IF Telephone="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的电话号码<BR>"
End IF
IF Logion="" Then
	RegOK=False
	RegErr=RegErr & "·请填写您的人生格言或留言<BR>"
End IF
IF OICQ<>"" Then
	IF Not ISNumeric(OICQ) Then
	RegOK=False
	RegErr=RegErr & "·请填写正确的OICQ号码<BR>"
	End IF
End IF
IF RegOK=False Then
Action="error"
Else
SQL="Select * From 注册信息 Where 姓名='" & Session("User") &"'"
Set RegRS=Server.CreateObject("ADODB.Recordset")
RegRS.Open SQL,Connstr,3,2
IF Not RegRS.Eof Then
	RegRS("学号")=ClassNumber
	RegRS("性别")=Sex
	RegRS("出生日期")=Birthday
	RegRS("昵称")=NickName
	RegRS("家庭地址")=Address
	RegRS("邮政编码")=Postalcode
	RegRS("电话号码")=Telephone
	IF OtherTheleone<>"" Then
	RegRS("手机号码")=OtherTheleone
	End IF
	IF OICQ<>"" Then
	RegRS("OICQ")=OICQ
	End IF
	IF MSN<>"" Then
	RegRS("MSN")=MSN
	END IF
	RegRS("电子邮件")=Email
	IF Homepage<>"" Then
	RegRS("个人主页")=Homepage
	END IF
	
	RegRS("留言")=Logion
	RegRS.Update
End IF
Action="suc"
End IF
End Function
%>