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