📄 conn.asp
字号:
<%@language=vbscript codepage=936 %>
<%
dim db,connstr
On Error Resume Next
set db=server.createobject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/MSMAXBLOG.mdb")
'response.write connstr
db.open connstr
'数据库连接错误警告
If Err Then
err.Clear
Set db = Nothing
Response.Write "数据库连接错误,请检查!"
Response.End
End If
'关闭操作对象
sub rsclose
rs.close
set rs=nothing
end sub
'关闭连接对象
sub connclose
db.close
set db=nothing
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -