act.function.asp

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

<!--#include file="../Conn.asp"-->
<!--#include file="../ACT_inc/ACT.Main.asp"-->
<% 	
	Dim ACTCMS,ACTERR
	Set ACTCMS = New ACT_Main
	Public Function UserLoginChecked()
	on error resume next
	Dim AdminName,PassWord
		UserLoginChecked = false 
		AdminName = ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminName")))
		PassWord= ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminPassword")))
		IF AdminName="" Or PassWord = "" Then
		   UserLoginChecked=false
		   Exit Function
		Else
			Dim UserRs
			Set Userrs=Actcms.Actexe("Select Admin_Name,PassWord From Admin_ACT Where Admin_Name='" & AdminName & "' And PassWord='" & PassWord & "'")
			IF UserRS.Eof And UserRS.Bof Then
				UserLoginChecked=false
			Else
				UserLoginChecked = true
			End if
			UserRS.Close:Set UserRS=Nothing
	   End IF
	End Function 
	IF Cbool(UserLoginChecked)=false Then
	  Response.Write "<script>top.location.href='Login.asp';</script>"
	  Response.end
	End If
		  %>