<%
on error resume next
Dim xlWorkSheet
Dim xlApplication
Set xlApplication = server.CreateObject("Excel.Application")
if err.number<>0 then
 Response.Write "错误发生：" & err.description & "<p>"
end if
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
xlWorksheet.Cells(1,1).Value = "姓名"
xlWorksheet.Cells(1,1).Interior.ColorIndex = 6     '黄色
xlWorksheet.Cells(1,2).Value = "性别"
xlWorksheet.Cells(1,2).Interior.ColorIndex = 5     '蓝色
xlWorksheet.Cells(1,3).Value = "年龄"
xlWorksheet.Cells(1,3).Interior.ColorIndex = 5
strFile = "Excel/"& GenFileName() & ".xls"

xlWorksheet.SaveAs Server.MapPath(strFile)
xlApplication.Quit    ' Close the Workbook

Set xlWorksheet = Nothing
Set xlApplication = Nothing

Response.Write("Click <A HRef=" & strFile & ">Here</A>  to get XLS file")

Function GenFileName()
 GenFileName = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
End Function

%>

?