我这样写行吗
conn.begintrans
Rs.Open "select * from PersonTbl where PerId = "& PerId , Conn , 1 , 1
If Rs.Eof Then
Question = ""
Answer = ""
Email = ""
RealName = ""
Sex = ""
Age = ""
Nation = ""
Political = ""
Birthplace = ""
Marriage = ""
Qualification = ""
Standing = ""
Weight = ""
Salary = ""
Nature = ""
Position_b = ""
Position_s = ""
JobPost = ""
areaname = ""
NowAddr = ""
HomeAddr = ""
QQ = ""
MSN = ""
Tel = ""
Mobile = ""
IsHidden = ""
IsLock = ""
IsTj = ""
IsGj = ""
IsSh = ""
LoginQuantity = ""
ThisLoginDate = ""
ThisLoginIp = ""
ViewQuantity = ""
RegFromIp = ""
RegDate = ""
Else
Question = Rs("Question")
Answer = Rs("Answer")
Email = Rs("Email")
RealName = Rs("RealName")
Sex = Rs("Sex")
Age = Rs("Age")
Nation = Rs("Nation")
Political = Rs("Political")
Birthplace = Rs("Birthplace")
Marriage = Rs("Marriage")
Qualification = Rs("Qualification")
Standing = Rs("Standing")
Weight = Rs("Weight")
Salary = Rs("Salary")
Nature = Rs("Nature")
Position_b = Rs("Position_b")
Position_s = Rs("Position_s")
JobPost = Rs("JobPost")
areaname = Rs("areaname")
NowAddr = Rs("NowAddr")
HomeAddr = Rs("HomeAddr")
QQ = Rs("QQ")
MSN = Rs("MSN")
Tel = Rs("Tel")
Mobile = Rs("Mobile")
IsHidden = Rs("IsHidden")
IsLock = Rs("IsLock")
IsTj = Rs("IsTj")
IsGj = Rs("IsGj")
IsSh = Rs("IsSh")
LoginQuantity = Rs("LoginQuantity")
ThisLoginDate = Rs("ThisLoginDate")
ThisLoginIp = Rs("ThisLoginIp")
ViewQuantity = Rs("ViewQuantity")
RegFromIp = Rs("RegFromIp")
RegDate = Rs("RegDate")
End If
Rs.Close
if Conn.Errors.Count>0 then
Conn.Errors.Clear
Conn.RollBackTrans
response.Redirct "Person_Edit.asp"
End if
rs.open "select * from test where PerId = "& PerId , Conn , 1 , 1
If Rs.Eof Then
UserName = ""
PassWord = ""
Else
UserName = Rs("UserName")
PassWord = Rs("PassWord")
End if
Rs.Close
if Conn.Errors.Count>0 then
Conn.Errors.Clear
Conn.RollBackTrans
response.Redirct "Person_Edit.asp"
End if