要将XLS工作表保存为经典ASP,可以使用以下代码示例:
<%
' 设置响应头,指定下载文件名和文件类型
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=test.xls"
' 创建Excel对象
Set objExcel = Server.CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
' 填充Excel工作表
objWorksheet.Cells(1, 1).Value = "Hello"
objWorksheet.Cells(1, 2).Value = "World"
' 保存Excel文件
objWorkbook.SaveAs(Server.MapPath("test.xls"))
' 关闭Excel对象
objWorkbook.Close
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
' 提示下载文件
Response.Redirect "test.xls"
%>
这段代码会生成一个名为test.xls
的Excel文件,并将其保存在服务器上。然后,通过设置响应头的方式,提示用户下载该文件。请确保你已经在服务器上安装了Excel,并且具有相应的权限来创建和保存文件。