conn.asp

来自「Follow me超级搜索引擎V6.2(完美版)绝对是目前全国功能最优秀的超级搜」· ASP 代码 · 共 10 行

<%''On Error Resume Next '容错声明 
response.buffer=true 
dim connstr,dbpath,conn

sub dblink()
set Conn = server.CreateObject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& server.MapPath(dbpath&"data/#data.mdb")
conn.Open connstr
end sub%>