www.gusucode.com > Follow me超级搜索引擎 > conn.asp
<%''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%>