dmwh_conn.asp

来自「破解的整站程序,可自由下载.上传可直接使用,大家试一试吧」· ASP 代码 · 共 23 行

<%
'DB="Databases/#asp99_demo.asa"
DB="Databases/0791idc.mdb"
Response.Buffer=True

on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("Databases"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
if err then
err.clear
else
conn.Open connstr
end if
copycolor="#A9A9A9"
%>
<!--#include file="dmwh_info.asp" -->
<!--#include file="dmwh_functions.asp" -->