ASP创建真正的EXCEL文件
<%on error resume nextDim xlWorkSheetDim xlApplicationSet xlApplication = server.CreateObject("Excel.Application")if err.number<>0 then Response.Write "错误发生：" & err.description & "<p>"end ifxlApplication.Visible = FalsexlApplication.Workbooks.AddSet 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 = 5strFile = "Excel/"& GenFileName() & ".xls"xlWorksheet.SaveAs Server.MapPath(strFile)xlApplication.Quit ' Close the WorkbookSet xlWorksheet = NothingSet xlApplication = NothingResponse.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%>?