session.asp

来自「eayanQuery思燕大学成绩查询系统 版本 V1.6」· ASP 代码 · 共 42 行

<%
'****************************************************
call LoginCheck()

Sub LoginCheck()
 		Dim TrueSiteUrl
		Dim AdminDirStr
 		   Call CheckSiteManageCode
 		   TrueSiteUrl = Trim(Request.ServerVariables("HTTP_HOST"))
		   AdminDirStr="http://"&TrueSiteUrl&MyAdminDir

		   If Request.Cookies("AdminName") = "" Or Request.Cookies("AdminPass") = "" Then
			'on error resume next
			Response.Write ("<script>top.location.href='" & AdminDirStr & "Admin_Login.asp';</script>")
			Response.end()
			'if err then
			  'err.clear
				  Response.Write ("<script>top.location.href='" & AdminDirStr & "Admin_Login.asp';</script>")
				  Response.end()
		    'end if
		  Else
			 Dim ChkRS:Set ChkRS = Server.CreateObject("ADODB.RecordSet")
			 ChkRS.Open "Select * From Admin Where admin_Name='" & HtmlEncode(Request.Cookies("AdminName")) & "' And admin_pass='" &  HtmlEncode(Request.Cookies("AdminPass")) & "'",Initialize_Conn, 1, 1
			 If ChkRS.EOF And ChkRS.BOF Then
				 Response.Write ("<script>top.location.href='" & AdminDirStr & "Admin_Login.asp';</script>")
				 Response.end()
			 End If
		   ChkRS.Close:Set ChkRS = Nothing
		  End If
		'End Sub
End sub

'检查后台管理认证码
Sub CheckSiteManageCode()
    If HtmlEncode(Request.Cookies("AdminLoginCode")) <> SiteManageCode Then
        Response.Redirect "../axhucj/Admin_login.asp"
        Response.End
    End If
End Sub
%>