www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > conn2.asp
<!--#include file="inc/function.asp"--> <% 'On Error Resume Next dbpath = "App_Data/!#9@2%designV7.asp" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(dbpath) Set conn=Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err.Number <> 0 Then Response.write "数据库链接出错!文件:inc/conn.asp!" Response.End() end if %>