conn.asp

来自「红金羚企业管理系统REDERP红金羚企业管理系统」· ASP 代码 · 共 19 行

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Dim Conn
Dim Db
Dim ConnStr
	      Db = "../data.mdb"
	      'ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath(Db)
              ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)   
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write " Error......"
		Response.End
	End If
%>