?? oconn.asp
字號:
<%
Dim oConn
Sub DBConnBegin()
If IsObject(oConn) Then Exit Sub
Dim dbFilePath,dbFileName
dbFileName = ""&SystemPath&"/DataBase/#bluespace_soft_dd.asp"
dbFilePath = Server.MapPath(dbFileName)
Set oConn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath
If Err Then
Err.Clear
oConn.Close
Set oConn = Nothing
Response.Write "數據庫連接出錯,請檢查數據庫連接文件,如果你是普通用戶,請和管理員聯系。"
Response.End
End If
End Sub
If Not IsObject(oConn) Then Call DBConnBegin()
Sub CloseConn()
If IsObject(oConn) Then
oConn.Close
Set oConn = Nothing
End If
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -