<%
Class Company_Class
	Public ComId,UserName,PassWord,Question,Answer
	Public CompanyName,CompanyIndustry,CompanyNature,CompanyFormation,RegFunds,EmployeeNum
	Public CompanyLocation_Province,CompanyLocation_City,CompanyLocation_County
	Public CompanyContent
	Public Contact,Tel,Mobile,Fax,QQ,CompanyAddr,Postcode
	Public RegFromIp,RegDate,EditDate,ViewQuantity
	Public LastLoginIp,LastLoginDate,ThisLoginIp,ThisLoginDate,LoginQuantity
	Public IsLock,IsYear,IsYearBeginDate,IsYearEndDate,IsSh
	Public MemberType,MemberBeginDate,MemberEndDate
	Public ViewJlQuantity,SendMsQuantity
	
	Public Sub CompanyInfo(strComId)
		Dim Rs
		If strComId = "" Or Not IsNumeric(strComId) Then strComId = 0
		Set Rs = Conn.Execute("select * from CompanyTbl where ComId = "& strComId)
		If Rs.Eof Then
			ComId = ""
			UserName = ""
			PassWord = ""
			Question = ""
			Answer = ""
			CompanyName = ""
			CompanyIndustry = ""
			CompanyNature = ""
			CompanyFormation = ""
			RegFunds = ""
			EmployeeNum = ""
			CompanyLocation_Province = ""
			CompanyLocation_City = ""
			CompanyLocation_County = ""
			CompanyContent = ""
			Contact = ""
			Tel = ""
			Mobile = ""
			Fax = ""
			QQ = ""
			CompanyAddr = ""
			Postcode = ""
			RegFromIp = ""
			RegDate = ""
			EditDate = ""
			ViewQuantity = ""
			LastLoginIp = ""
			LastLoginDate = ""
			ThisLoginIp = ""
			ThisLoginDate = ""
			LoginQuantity = ""
			IsLock = ""
			IsYear = ""
			IsYearBeginDate = ""
			IsYearEndDate = ""
			IsSh = ""
			MemberType = ""
			MemberBeginDate = ""
			MemberEndDate = ""
			ViewJlQuantity = ""
			SendMsQuantity = ""
		Else
			ComId = Rs("ComId")
			UserName = Rs("UserName")
			PassWord = Rs("PassWord")
			Question = Rs("Question")
			Answer = Rs("Answer")
			CompanyName = Rs("CompanyName")
			CompanyIndustry = Rs("CompanyIndustry")
			CompanyNature = Rs("CompanyNature")
			CompanyFormation = Rs("CompanyFormation")
			RegFunds = Rs("RegFunds")
			EmployeeNum = Rs("EmployeeNum")
			CompanyLocation_Province = Rs("CompanyLocation_Province")
			CompanyLocation_City = Rs("CompanyLocation_City")
			CompanyLocation_County = Rs("CompanyLocation_County")
			CompanyContent = Rs("CompanyContent")
			Contact = Rs("Contact")
			Tel = Rs("Tel")
			Mobile = Rs("Mobile")
			Fax = Rs("Fax")
			QQ = Rs("QQ")
			CompanyAddr = Rs("CompanyAddr")
			Postcode = Rs("Postcode")
			RegFromIp = Rs("RegFromIp")
			RegDate = Rs("RegDate")
			EditDate = Rs("EditDate")
			ViewQuantity = Rs("ViewQuantity")
			LastLoginIp = Rs("LastLoginIp")
			LastLoginDate = Rs("LastLoginDate")
			ThisLoginIp = Rs("ThisLoginIp")
			ThisLoginDate = Rs("ThisLoginDate")
			LoginQuantity = Rs("LoginQuantity")
			IsLock = Rs("IsLock")
			IsYear = Rs("IsYear")
			IsYearBeginDate = Rs("IsYearBeginDate")
			IsYearEndDate = Rs("IsYearEndDate")
			IsSh = Rs("IsSh")
			MemberType = Rs("MemberType")
			MemberBeginDate = Rs("MemberBeginDate")
			MemberEndDate = Rs("MemberEndDate")
			ViewJlQuantity = Rs("ViewJlQuantity")
			SendMsQuantity = Rs("SendMsQuantity")
		End If
		Set Rs = Nothing
	End Sub
End Class
%>