conn.asp

来自「功能介绍： 1、产品入库」· ASP 代码 · 共 23 行

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