本文將介紹如何使用ASP和Access生成Excel文件的實例。假設(shè)我們要創(chuàng)建一個學生信息表，包含學生的姓名、年齡和成績。

首先，我們需要準備好一個包含學生信息的Access數(shù)據(jù)庫。假設(shè)我們已經(jīng)創(chuàng)建了一個名為“StudentDB”的數(shù)據(jù)庫，并在其中創(chuàng)建了一個名為“Students”的表，表中包含三個字段：Name（文本類型）、Age（數(shù)值類型）和Score（數(shù)值類型）。

我們可以使用以下代碼來連接數(shù)據(jù)庫并將學生信息導(dǎo)出到Excel文件中：

<%
Dim conn, rs, sql, objExcel, objWorkbook, objWorksheet
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\StudentDB.mdb"
sql = "SELECT * FROM Students"
Set rs = conn.Execute(sql)
Set objExcel = Server.CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(1, 1).Value = "Name"
objWorksheet.Cells(1, 2).Value = "Age"
objWorksheet.Cells(1, 3).Value = "Score"
row = 2
While Not rs.EOF
objWorksheet.Cells(row, 1).Value = rs("Name")
objWorksheet.Cells(row, 2).Value = rs("Age")
objWorksheet.Cells(row, 3).Value = rs("Score")
row = row + 1
rs.MoveNext
Wend
objWorkbook.SaveAs "C:\path\to\StudentInfo.xls"
objWorkbook.Close
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

以上代碼首先連接到“StudentDB”數(shù)據(jù)庫，并執(zhí)行一個簡單的SELECT查詢來獲取所有學生的信息。然后，我們創(chuàng)建了一個名為“StudentInfo.xls”的Excel文件，并在第一行寫入了三個表頭：姓名、年齡和成績。

接下來，我們使用一個循環(huán)遍歷數(shù)據(jù)庫中的每個學生記錄，并將每個字段的值寫入Excel文件中的相應(yīng)單元格。每次循環(huán)后，我們需要將行數(shù)增加1，以便寫入下一個學生的信息。

最后，我們將Excel文件保存到指定的路徑，并關(guān)閉Excel應(yīng)用程序及相關(guān)對象。

通過運行以上代碼，我們可以生成一個包含學生信息的Excel文件，并保存到指定的路徑。以后，我們可以隨時打開這個文件來查看或編輯學生信息。

總結(jié)：使用ASP和Access生成Excel文件是一種方便快捷的方法，特別適用于數(shù)據(jù)導(dǎo)出和報表生成等場景。我們可以根據(jù)需要自定義查詢語句，選擇需要導(dǎo)出的數(shù)據(jù)，并將其寫入Excel文件中的相應(yīng)位置。這種方法能夠大大提高數(shù)據(jù)處理的效率，并方便我們進行后續(xù)的數(shù)據(jù)分析和處理工作。