在開發ASP應用程序中，我們經常需要刪除一些過期的數據，以保持數據庫的整潔和性能的優化。對于使用Access數據庫的情況，我們可以使用ASP腳本來刪除指定日期之前的數據。本文將介紹如何使用ASP和Access數據庫來刪除n天前的數據。

假設我們有一個會員管理系統的數據庫，其中有一個會員表(Member)存儲了會員的信息，包括會員ID、姓名、注冊日期等字段。我們希望在系統中保留最近90天內的會員數據，并刪除過期的會員數據。

首先，我們需要編寫一個ASP腳本來刪除指定日期之前的數據：

<% 
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb"
Dim deleteDate
deleteDate = DateAdd("d", -90, Date()) '計算90天前的日期
Dim sql
sql = "DELETE FROM Member WHERE 注冊日期< #" & deleteDate & "#"
conn.Execute sql
conn.Close
Set conn = Nothing
%>

上述代碼中，我們首先創建了一個數據庫連接對象(conn)，并打開了Access數據庫。然后，我們使用DateAdd函數計算出90天前的日期(deleteDate)。接下來，我們使用SQL語句來刪除注冊日期小于(deleteDate)的會員數據。最后，我們關閉數據庫連接(conn)并釋放資源。

在上述代碼中，我們使用了SQL語句來刪除數據。其中，DELETE FROM Member表示刪除Member表中符合條件的記錄，WHERE 注冊日期< #deleteDate#指定了刪除注冊日期小于deleteDate的記錄。需要注意的是，日期需要使用#包圍起來。

為了方便使用，我們可以將上述ASP腳本封裝成一個函數，并根據需要傳入指定的日期和天數參數：

<%
Sub DeleteOldData(connString, tableName, dateField, days)
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connString
Dim deleteDate
deleteDate = DateAdd("d", -days, Date())
Dim sql
sql = "DELETE FROM " & tableName & " WHERE " & dateField & "< #" & deleteDate & "#"
conn.Execute sql
conn.Close
Set conn = Nothing
End Sub
' 使用示例
DeleteOldData "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb", "Member", "注冊日期", 90
%>

通過封裝成函數，我們可以在任何需要刪除指定日期之前數據的地方調用該函數。只需要傳入相應的參數，即可完成刪除操作。這樣，我們可以更方便地管理Access數據庫中的數據。

總結起來，通過使用ASP腳本和Access數據庫，我們可以方便地刪除指定日期之前的數據。無論是會員管理系統還是其他需要定期清理數據的應用，都可以按需使用上述方法來保持數據庫的整潔和性能的優化。