ASP创建Excel文件，需要在服务器上装有Excel，并赋予操作权限，然后才能正常运行。其它文章有解说，这里仅提供ASP程序供大家参考。

'数据库连接省略了

server.scripttimeout=100000 '若处理时间比较长，可将值设置大一点

theFile=hour(time)&minute(time)&second(time)'文件名


set rs=server.createobject("adodb.recordset")
sql="select * from yourTable order by id asc"
rs.open sql,conn,1,1 '这里的数据库连接对象是conn，注意改成自己的

Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add

ExcelBook.WorkSheets(1).cells(1,1).value ="表-"&theFile

ExcelBook.WorkSheets(1).Columns(1).ShrinkToFit=false
'设定是否自动适应表格单元大小(单元格宽不变），可省略 

ExcelBook.WorkSheets(1).cells(2,1).value = "姓名"
ExcelBook.WorkSheets(1).cells(2,2).value = "年龄"
ExcelBook.WorkSheets(1).cells(2,3).value = "生日"

cnt =3 
do while not rs.eof 

ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("realname") 
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("age") 
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("birthday") 

rs.movenext 
cnt = cint(cnt) + 1 
loop 

ExcelPath = theFile& ".xls"

Excelbook.SaveCopyAs server.mappath(ExcelPath) '保存文件
'Excelbook.SaveAs server.mappath(ExcelPath)  '网上原语句，提示有错，改成了上面的语句
ExcelApp.Application.Quit   '导出以后退出Excel
Set ExcelApp = Nothing   '注销Excel对象


response.write("<a href='" & server.URLEncode(ExcelPath) & "'>下载</a>")