conn.asp

后台管理系统

<%@CodePage=936%>
<%
Server.ScriptTimeout = 9999
Response.Charset="GB2312"
Response.Buffer = True
Const IsSqlDataBase=0								'定义数据库类别，0为Access，1为SQL数据库
Const IsDeBug = 1									'调试模式，1显示数据库查询的错误信息，2显示所有错误信息
Const CN_VersionName = "神鹰v1.0网站公司产品管理后台"
Const EN_VersionName = "ShenYing Version1.0"
Const CopyRight = "Copyright (c) 20006  All Rights Reserved ."
Dim StarTime, EndTime
Dim SqlNowString
Dim SysMsg,FoundErr
Dim Conn
StarTime = Timer()
%>
<!--#include file="admin/cookies.asp"-->
<!--#include file="Const.asp"-->
<!--#Include File="Include/Component.asp"-->

<%
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
Function OpenDB()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open ConnStr
	If Err Then	
		Response.Clear
		CloseDataBase
		Response.Write "对不起，数据连接错误！如果第一次使用，请先运行setup.asp进行系统配置。"
		Err.Clear
		Response.End
	End If
End Function
%>