www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_login_check.asp

    <%
' *** Restrict Access To Page: Grant or deny access to this page
dim MM_authorizedUsers, MM_authFailedURL, MM_grantAccess, MM_qsChar, MM_referrer
MM_authorizedUsers=""
MM_authFailedURL="../main_login.asp"
MM_grantAccess=false

'if session username not set don't allow access to page
If (Session("MM_Username") = "") Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  'MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  'MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & MM_referrer
  MM_authFailedURL = MM_authFailedURL
  Response.Redirect(MM_authFailedURL)
'if incorrect session username not set don't allow access to page
Else
  dim MM_flag, MM_rsUser
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_oConn_STRING
  MM_rsUser.Source = "SELECT * FROM ac_user WHERE Username='" & Session("MM_Username") &"'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  if MM_rsUser.EOF then
  MM_rsUser.Close
  set MM_rsUser = Nothing
  Response.Redirect(MM_authFailedURL)
  end if
End If
%>