標準化資料庫連線/關閉模組能減少連線洩漏、統一錯誤處理、提升維護性。本文提供可直接 `Include` 的 `db.asp` 模組，支援多連線管理與交易控制。

標準模組 (db.asp)

<%
' ==========================================
' 資料庫連線管理模組
' 使用方式：
'   1. 
'   2. Call DBOpen()
'   3. 使用 conn, rs 執行查詢
'   4. 頁面結束 Call DBClose()
' ==========================================

Dim conn, rs  ' 全域變數供 Include 頁面使用

' 開啟連線
Sub DBOpen()
    Dim dbPath, connStr
    dbPath = Server.MapPath("data/hhinfo.mdb")  ' 請依實際路徑調整
    connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
    
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    
    On Error Resume Next
    conn.Open connStr
    If Err.Number <> 0 Then
        Err.Clear
        Call DBClose()
        Response.Write "
資料庫連線失敗
"
        Response.End
    End If
    On Error GoTo 0
End Sub

' 關閉連線並釋放資源
Sub DBClose()
    On Error Resume Next
    If IsObject(rs) Then
        If rs.State = 1 Then rs.Close
        Set rs = Nothing
    End If
    If IsObject(conn) Then
        If conn.State = 1 Then conn.Close
        Set conn = Nothing
    End If
    On Error GoTo 0
End Sub

' 交易控制
Sub DBBeginTrans()
    On Error Resume Next
    conn.BeginTrans()
    On Error GoTo 0
End Sub

Sub DBCommit()
    On Error Resume Next
    conn.CommitTrans()
    On Error GoTo 0
End Sub

Sub DBRollback()
    On Error Resume Next
    conn.RollbackTrans()
    On Error GoTo 0
End Sub
%>

使用範例

<!--#include file="db.asp"-->
<%
Call DBOpen()

' 查詢範例
Dim sql
sql = "SELECT id, title, create_date FROM news WHERE is_publish=1 ORDER BY create_date DESC"
rs.Open sql, conn, 1, 1  ' adOpenKeyset, adLockReadOnly

If Not rs.EOF Then
    Do While Not rs.EOF
        Response.Write "" & rs("title") & " " & rs("create_date") & "
"
        rs.MoveNext
    Loop
End If
rs.Close

' 新增範例 (使用交易)
Call DBBeginTrans()
On Error Resume Next
conn.Execute "INSERT INTO news (title, content, create_date) VALUES ('測試', '內容', NOW())"
conn.Execute "UPDATE stats SET total = total + 1 WHERE stat_date = DATE()"
If Err.Number <> 0 Then
    Call DBRollback()
    Response.Write "寫入失敗：" & Err.Description
    Err.Clear
Else
    Call DBCommit()
    Response.Write "寫入成功"
End If
On Error GoTo 0

Call DBClose()
%>

進階：支援 .accdb (Access 2007+)

connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath & ";Persist Security Info=False;"
' 需安裝 Microsoft Access Database Engine 2016 Redistributable
' IIS 應用程式集區 → 進階設定 → 啟用 32 位元應用程式 = True (若為 32-bit Driver)

最佳實踐檢查清單

• ✅ 連線字串集中在 `DBOpen`，避免硬式編碼散落。
• ✅ `DBClose` 檢查 `State` 屬性，避免重複關閉報錯。
• ✅ 錯誤發生時在 `On Error Resume Next` 區塊內 `Err.Clear`，防止污染後續邏輯。
• ✅ 交易控制子程式化，業務邏輯更清晰。
• ✅ 生產環境建議改用 **連線池** (Connection Pooling) 或升級 SQL Server。

常見錯誤與解決

此標準模組已在多個專案驗證穩定，可作為 ASP 專案資料庫存取的基礎設施核心。

1. 上一篇文章： ASP 串接騰訊 IP 地址查詢 API 取得使用者真實 IP 與地理位置
2. 下一篇文章： ASP 簡單讀取資料表並輸出 HTML 表格範例

ASP 相關知識

ASP 日期時間運算大全：本月/上月/下月首尾日、週計算實用代碼

ASP 專案常需計算「本月第一天」、「上個月最後一天」等相對

ASP 文件編輯工具選擇指南：記事本 vs 專業編輯器 (VS Code/Notepad++/DW) 的避坑與推薦

ASP 文件本質是文本文件，**雙擊默認不會打開**，需選擇

ASP 內建物件 Server 詳解：伺服器端工具箱

Server 物件概覽 Server 物件提供存取伺服器方法

ASP 讀取 IIS 日誌檔案：MSWC.IISLog 物件完整實作範例

IIS 日誌記錄了網站所有存取細節，透過 ASP 內建的 `