<%
Class Person_Class
	Public PerId,UserName,PassWord,Question,Answer
	Public RealName,Sex,Age,Nation,Political,Birthplace,Marriage,Qualification,Standing,Weight
	Public Salary,Nature,Position_b,Position_s,JobPost,Province,City,County
	Public NowAddr,HomeAddr,QQ,MSN,Tel,Mobile,Email
	
	Public Sub PersonInfo(strPerId)
		Dim Rs
		If strPerId = "" Or Not IsNumeric(strPerId) Then strPerId = 0
		Set Rs = Conn.Execute("select * from PersonTbl where PerId = "& strPerId)
		If Rs.Eof Then
			PerId = ""
			UserName = ""
			PassWord = ""
			Question = ""
			Answer = ""
			RealName = ""
			Sex = ""
			Age = ""
			Nation = ""
			Political = ""
			Birthplace = ""
			Marriage = ""
			Qualification = ""
			Standing = ""
			Weight = ""
			Salary = ""
			Nature = ""
			Position_b = ""
			Position_s = ""
			JobPost = ""
			Province = ""
			City = ""
			County = ""
			NowAddr = ""
			HomeAddr = ""
			QQ = ""
			MSN = ""
			Tel = ""
			Mobile = ""
			Email = ""
		Else
			PerId = Rs("PerId")
			UserName = Rs("UserName")
			PassWord = Rs("PassWord")
			Question = Rs("Question")
			Answer = Rs("Answer")
			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")
			Province = Rs("Province")
			City = Rs("City")
			County = Rs("County")
			NowAddr = Rs("NowAddr")
			HomeAddr = Rs("HomeAddr")
			QQ = Rs("QQ")
			MSN = Rs("MSN")
			Tel = Rs("Tel")
			Mobile = Rs("Mobile")
			Email = Rs("Email")
		End If
		Set Rs = Nothing
	End Sub
End Class
%>