Asp导出数据库数据到Excel

最近做ASP，需要导出数据库数据到Excel中，结果卡住好久没有进展。

今天终于解决了，总结下过程：

1.整体代码

<span style="font-size:18px;"><%
Set ExcelApp = CreateObject("Excel.Application")    #出问题的地方
          ExcelApp.Application.Visible = True
          Set ExcelBook = ExcelApp.Workbooks.Add
          ExcelBook.WorkSheets(1).cells(1,1).value = "实习情况登记表"
          ExcelBook.WorkSheets(1).cells(2,1).value = "学号"  
          ExcelBook.WorkSheets(1).cells(2,2).value = "姓名" 
          ExcelBook.WorkSheets(1).cells(2,3).value = "题目编号" 
          ExcelBook.WorkSheets(1).cells(2,4).value = "实习编号" 
          ExcelBook.WorkSheets(1).cells(2,5).value = "结果" 
          cnt = 3 

            Dim rs ,strSql ,Num ,pageNum ,page ,loopNu