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 %>