conn.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 13 行

<%
'Option Explicit
Response.Buffer = True
Response.Expires = 0

function GetDataConnection()
   dim oConn, strConn
   Set oConn = Server.CreateObject("ADODB.Connection")
   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../Template.mdb")
   oConn.Open strConn
   set GetDataConnection = oConn
end function
%>