act.user.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#include file="../Conn.asp"-->
<!--#include file="ACT.Main.asp"-->
<!--#include file="ACT.Code.asp"-->
<%
	Dim ACTCMS
	Set ACTCMS = New ACT_Main
	Class ACT_User
	Public ChargeType,Edays,GroupID,Point,UserName,PassWord,startdate,Email,Locked,Money,Score,LoginNumber,Realname,sex,IDCard
	Public Birthday,Privacy,Mobile,OfficeTel,HomeTel,Fax,HomePage,Province,City,Address,Zip,QQ,msn,Question,Answer
	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
		Private Sub Class_Initialize()
		End Sub
		Private Sub Class_Terminate()
		 Set ACTCMS=Nothing
		End Sub
		Public Function UserLoginChecked()
		on error resume next
		Dim UserModeID,Ruser
			UserLoginChecked = false 
			UserName = ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("UserName")))
			PassWord= ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("PassWord")))
			Set Ruser=ACTCMS.actexe("Select ModeID from Group_Act where GroupID="&ACTCMS.RSQL(ACTCMS.ChkNumeric((Request.Cookies(AcTCMSN)("GroupID"))))&"")
				If Not Ruser.eof Then UserMID=Ruser("ModeID"):Ruser.Close:Set Ruser=Nothing
				IF UserName="" Then
				   UserLoginChecked=false
				   Exit Function
				Else
					Dim UserRs:Set UserRS=Server.CreateOBject("ADODB.RECORDSET")
					UserRS.Open "Select * From "&TableName(UserMID)&" 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")
						Birthday = UserRs("Birthday")
						sex = UserRs("sex"):Realname = UserRs("Realname")
						Score = UserRs("Score"):Email=UserRs("Email"):Locked=UserRs("Locked")
						LoginNumber=UserRs("LoginNumber"):Privacy=UserRs("Privacy")
						Province=UserRs("Province"):City=UserRs("City")
						Question=UserRs("Question"):Answer=UserRs("Answer")
						  Dim Rs,GroupArr
						  Set Rs=ACTCMS.ACTEXE("Select ModeID,GroupSetting from Group_Act  Where GroupID=" & GroupID & " order by GroupID desc")
						  If Not Rs.Eof Then
							GroupArr=Split(Rs("GroupSetting"),"^@$@^")
							UModeID=Rs("ModeID")
							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)
						  End If
						  Rs.Close:Set Rs=Nothing
					End if
					UserRS.Close:Set UserRS=Nothing
			   End IF
		End Function 

		Public Function TableName(UserModeID)
			 Dim rs1
	  	     Set Rs1=ACTCMS.actexe("select ModeTable from ModeUser_Act where ModeID="&UserModeID&" ")
			 If Not Rs1.eof Then
				TableName=Rs1("ModeTable")
				Rs1.Close:Set Rs1=Nothing
			 Else 
				Call actcms.alert("未定义操作","")
				Response.End 
			 End if	
		End Function 
End  Class 
%>