conn.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 8 行

<%
Response.Buffer = True
Const ACCESSPATH = "/ASPzq/data/Database.mdb"     '数据库路径
Const BACKACCESSPATH = "/ASPzq/data/DatabaseBak.mdb"   '备份数据库路径
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ACCESSPATH)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
%>