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
%>