求助：关于无法更新数据问题
不知道为什么，数据无法更新。求请达人看看，是哪里出错了！先说声谢谢啦～！
更新操作页
<%
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.AddNew
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
%>
友情联系QQ：5407543/MSN：popbayun@163.com
问题点数：50、回复次数：2Top
1 楼youzi520（釉子-MeChecksV）回复于 2006-05-04 16:16:20 得分 0
没看出什么,但我觉的你的Function该用SUBTop
2 楼popbayun（八云）回复于 2006-05-04 16:37:38 得分 0
sub 和 function有什么区别啊Top
