connect.asp

来自「OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WI」· ASP 代码 · 共 10 行

<%
Dim conn
Dim connstr
Dim ServerPath

ServerPath=Server.MapPath("data.mdb")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ServerPath
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open connstr
%>