conn.asp

zheng fu wang zhan gong neng qi quan

<%
	DB = "data/#echuang#.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 "数据库连接出错[代码：01]，请检查数据库链接文件中的连接字串。"
	Response.End
End If
%>