📄 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -