check3.asp

这是一个校友录管理系统

<%
Function CheckRegInfo()
ClassNumber=Request.Form("ClassNumber")
Sex=Request.Form("Sex")
Birthday=Request.Form("Birthday")
NickName=Request.Form("NickName")
Professional=Request.Form("Professional")
Class1=Request.Form("Class")
Address=Request.Form("Address")
Postalcode=Request.Form("Postalcode")
Telephone=Request.Form("Telephone")
OtherTheleone=Request.Form("OtherTheleone")
OICQ=Request.Form("OICQ")
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 Professional="" Then
	RegOK=False
	RegErr=RegErr & "·请选择你所属的专业<BR>"
End IF
IF Class1="" 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 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 [user] Where username='" & Session("User") &"'"
Set RegRS=Server.CreateObject("ADODB.Recordset")
RegRS.Open SQL,Connstr,3,2
IF Not RegRS.Eof Then
	RegRS("xuehao")=ClassNumber
	RegRS("sex")=Sex
	RegRS("birth")=Birthday
	RegRS("nickname")=NickName
	RegRS("speciality")=Professional
	RegRS("class")=Class1
	RegRS("address")=Address
	RegRS("postcode")=Postalcode
	RegRS("usertel")=Telephone
	IF OtherTheleone<>"" Then
	RegRS("usermobile")=OtherTheleone
	End IF
	IF OICQ<>"" Then
	RegRS("OICQ")=OICQ
	End IF
	IF MSN<>"" Then
	RegRS("MSN")=MSN
	END IF
	IF Homepage<>"" Then
	RegRS("home")=Homepage
	END IF
	
	RegRS("content")=Logion
	RegRS.Update
End IF
Action="suc"
End IF
End Function
%>