art_user.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<%
Class Art_User
	Public ChargeType,Edays,GroupID,Point,UserName,PassWord,startdate,Locked,Money,Score,LoginNumber
	Public Privacy,Question,Answer,LoginTime,Loginip	
	Public RealName,OfficeTel,HomeTel,Address,Sign,Sex,Email,HomePage,province,City,IDCard,BirthDay,Zip,QQ,MSN,ICQ,UC,Mobile,Fax,UserFace
	
	Public UserID,UserMID,UModeID,G_SH,G_Name,G_A_SH,G_UserUpFilesTF
	Public G_WriteComment,G_Path,G_UpFileType,G_UpfilesSize,G_Max_sEnd,G_Max_sms,G_Max_Num,G_Simple,G_tgdianshu,lmid,G_tgzijin

 Public Function UserLoginChecked()
		on error resume next
		Dim UserModeID,Ruser
			UserLoginChecked = false 
			UserName = RSQL(Trim(Request.Cookies(Art2008)("UserName")))
			PassWord= RSQL(Trim(Request.Cookies(Art2008)("PassWord")))
				IF UserName="" Then
				   UserLoginChecked=false
				   Exit Function
				Else
					Dim UserRs:Set UserRS=Server.CreateOBject("ADODB.RECORDSET")
					UserRS.Open "Select * From Art_User Where UserName='" & UserName & "' And PassWord='" & PassWord & "'",Conn,2,3
					IF UserRS.Eof And UserRS.Bof Then
					  UserLoginChecked=false
					Else
						UserLoginChecked = True
						UserID=UserRS("UserID"):GroupID = UserRS("GroupID")
						Money = UserRS("Moneys"):Loginip=UserRS("Loginip")
						LoginTime = UserRs("LoginTime"):LoginNumber=UserRs("LoginNumber")					
						Score = UserRs("Score"):Locked=UserRs("Locked")
						Question=UserRs("Question"):Answer=UserRs("Answer")
						
						sex = UserRs("sex"):Realname = UserRs("Realname")
						Email=UserRs("Email"):Privacy=UserRs("Privacy")
						Province=UserRs("Province"):City=UserRs("City")
						OfficeTel=UserRs("OfficeTel"):HomeTel=UserRs("HomeTel")
						Address=UserRs("Address"):Sign=UserRs("Sign")
						HomePage=UserRs("HomePage"):IDCard=UserRs("IDCard")
						Zip=UserRs("Zip"):QQ=UserRs("QQ")
						MSN=UserRs("MSN"):ICQ=UserRs("ICQ")
						UC=UserRs("UC"):Mobile=UserRs("Mobile")
						Fax=UserRs("Fax"):Birthday = UserRs("Birthday"):UserFace=UserRs("UserFace")
						
						  Dim Rs,GroupArr
						  Set Rs=ArtEXE("Select ModeID,GroupSetting,Lmid,ChargeType from Art_Group  Where GroupID=" & GroupID & " order by GroupID desc")
						  If Not Rs.Eof Then
							GroupArr=Split(Rs("GroupSetting"),"^@$@^")
							UModeID=Rs("ModeID")
							ChargeType=Rs("ChargeType")
							lmid=Rs("Lmid")
							G_Name = GroupArr(0)
							G_WriteComment=GroupArr(2)
							G_SH=GroupArr(3)
							G_Max_Num=GroupArr(4)
							G_Max_sms=GroupArr(5)
							G_Max_sEnd=GroupArr(6)
							G_UserUpFilesTF=GroupArr(7)
							G_Path=GroupArr(8)
							G_UpFileType=GroupArr(10)
							G_UpfilesSize=GroupArr(9)
							G_A_SH=GroupArr(11)
							G_Simple= GroupArr(13)
							G_tgdianshu= GroupArr(15)
							G_tgzijin= GroupArr(16)
						  End If
						  Rs.Close:Set Rs=Nothing
					End if
					UserRS.Close:Set UserRS=Nothing
			   End IF
		End Function 

End  Class 


%>