conn.asp

来自「asp_erp 源碼 附詳盡使用說明及數據庫」· ASP 代码 · 共 16 行

<%
starttime=timer()
DB = "data/data.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错。"
	Response.End
End If
%>