www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > IP/mdb.asp
<!--#include file="conn.asp"--> <% db=""&db Dim ConnStr ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & 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 %>