conn.asp

来自「物流管理系统 付有详细的论文 还有介绍等等 很经典」· ASP 代码 · 共 17 行

<%
starttime=timer()
DB = "data/data.asp"
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
%>