conn.asp

来自「本地公交路线路查询网源码 公交查询 路线查询 后台添加公交路线 用」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'---------------------------数据库连接函数---------------------------
	dim conn
	dim connstr
	dim db
	db="/data/busdata.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	Set conn1 = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	conn1.Open connstr
	If Err Then
		err.Clear
		response.write("数据库连接出错，请检查连接字串。")
		response.End()
	End If
%>

<%
'本程序由源代码下载提供发布
'极品源码提供大量企业及门户整站免费下载
'网址 http://www.ydaima.com  
'网址 http://www.jpcode.com
%>