<轉自：www.cnblogs.com><文字說明僅供參考，具體參考ASP+Access的語法規范>

ASP（Active Server Pages）是一種由微軟開發的用于構建動態網站的技術。而Access是一種關系型數據庫管理系統，常用于小型項目中。在ASP中，我們可以通過ADO（ActiveX Data Objects）對象來實現與Access數據庫的交互，包括讀取和寫入數據。

假設我們有一個學生成績管理系統，我們需要通過ASP將學生成績信息寫入Access數據庫。我們可以先創建一個包含學生學號、姓名和成績的數據表。接下來，我們可以通過以下步驟實現將學生成績寫入數據庫：

1. 連接到數據庫

<% 
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("your_database.mdb")
' Connect to the database
%>

2. 插入數據

<% 
Dim strSQL
' Prepare the SQL statement
strSQL = "INSERT INTO Students (StudentID, StudentName, Score) VALUES ('001', 'John Doe', 90)"
' Execute the SQL statement
conn.Execute strSQL
%>

在上面的例子中，我們使用了INSERT INTO語句向Students表中插入了學生信息。其中，'001'是學生學號，'John Doe'是學生姓名，90是學生的成績。

3. 關閉數據庫連接

<%
' Close the database connection
conn.Close
Set conn = Nothing
%>

通過以上步驟，我們成功將學生成績信息寫入了Access數據庫中。

除了單條插入數據，我們還可以通過循環來一次插入多條數據。例如，我們可以在ASP中使用循環以及表單提交的數據來實現批量插入學生成績：

<%
Dim strSQL
Dim i
' 獲取表單提交的學生成績數據
Dim studentIDs
studentIDs = Request.Form("studentID")
Dim studentNames
studentNames = Request.Form("studentName")
Dim scores
scores = Request.Form("score")
For i = LBound(studentIDs) To UBound(studentIDs)
' 準備插入語句
strSQL = "INSERT INTO Students (StudentID, StudentName, Score) VALUES ('" & studentIDs(i) & "', '" & studentNames(i) & "', " & scores(i) & ")"
' 執行SQL語句
conn.Execute strSQL
Next
' 關閉數據庫連接
conn.Close
Set conn = Nothing
%>

在上述例子中，我們使用了一個表單來提交學生成績信息。通過循環，我們可以將每個學生的學號、姓名和成績插入到數據庫中。

通過ASP和Access的結合，我們可以方便地實現數據的寫入。無論是插入單條數據還是批量插入，使用ASP和Access的組合是一個簡單而有效的方案。

注：以上示例代碼僅為演示目的，不考慮SQL注入等安全性問題，實際應用中需對用戶輸入進行嚴格驗證和過濾。