conn.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<%@language="VBScript" codepage="65001"%>
<%
Session.CodePage=65001
Response.Charset="utf-8"
Response.buffer=True
'=====用户修改内容开始=====

Const site="YCMS"      'Cookies名称，如果您在同一站点内有两个(或更多)YCMS，请保证其Cookies名称不同

Const dataname="data/#YCMS#.mdb"     'ACCESS数据库的链接路径，请使用相对于站点根目录的相对路径

'=====用户修改内容结束=====
On Error Resume Next
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(dataname)
If Err Then 
err.Clear
    conn.close
set conn=nothing
Response.Write("对不起，网站数据库连接出错，请联系管理员!")
response.End()
End If
Function YCMS_Close()
    conn.close
set conn=nothing
End Function
%>