conn3.asp

来自「一套企业全站」· ASP 代码 · 共 46 行

<!--#include file=include.asp-->



<%





dim conn3
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
                                     '如果是安装在网站根目录，直接修改文件名即可。如果是安装在网站某一目录下，则在前面加上此目录，
                                     '例如，系统安装在“http://www.xxx.com/JSA/”目录下（JSA为安装目录），则这里应该修改为：

Call OpenConn3

Sub OpenConn3()
    'On Error Resume Next
    'Dim ConnStr
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\..\..\"&templates_data_mdb)
    Set conn3 = Server.CreateObject("ADODB.Connection")
    conn3.open ConnStr
    If Err Then
        Err.Clear
        Set conn3 = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
    End If
	    J_True = "True"
        J_False = "False"
        J_Now = "Now()"  '获得现在的时间
   ' Application("DbPath") = db
   ' Application("ConnStr") = ConnStr
End Sub

Sub CloseConn3()
    On Error Resume Next
    If IsObject(conn3) Then
        conn3.Close
        Set conn3 = Nothing
    End If
End Sub
%>