conn.asp

红金羚企业管理系统REDERP红金羚企业管理系统

<%
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
%>