www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > main_login.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% option explicit Response.Buffer = true 'On Error Resume Next Dim objError %> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <!--#include file="admin/connections/oConn_db.asp" --> <!--#include file="admin/errors/errors.asp" --> <% Dim FileSystemObject, FileExists 'If MSAccess, verify that the database exists to prevent the server hanging if ((db_STRING <> "") and (strDatabaseType = "msaccess")) then Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") If FileSystemObject.FileExists(db_STRING) Then FileExists = True Else FileExists = False DataErrorNoDatabase() End If Set FileSystemObject = Nothing end if %> <!--#include file="admin/queries/query.asp" --> <!--#include file="main_login_heading.asp" --> <% If errorFound <> true then %> <!--#include file="admin/admin_encrypt.asp" --> <!--#include file="admin/admin_lang_login.asp" --> <!--#include file="main_login_code.asp" --> <% end if %>