ASP中怎么把SQL里的数据导出成EXCEL表 _ASP

ASP中如何把SQL里的数据导出成EXCEL表？
我按照这个教程：
http://fanxing.blog.51cto.com/189800/40390
一直打开网页超级慢，一直到timeout，但明明查询的是很简单的SQL，数据量很小的，不知道为何会这样

请问有没有什么其它的好方法，要是有实例就更好了。

------解决方案--------------------
实例打印报表：

VBScript code


<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
 Call MakeExcel()
 Response.End()
End If

Sub MakeExcel()
Response.Clear()
Response.Buffer  =  True
Response.ContentType ="application/vnd.ms-excel"        'application/msword
Response.Addheader "Content-Disposition", "attachment;Filename=damao.xls"
Response.Charset = "GB2312"
Response.Codepage = "936"
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-

collapse:collapse;">
  <tr>
    <th>航空公司</th>
    <th>起飞时间</th>
    <th>航班号</th>
    <th>票价</th>
    <th>税收</th>
    <th>返点</th>
    <th>乘机人</th>
    <th>证件号码</th>
    <th>联系电话</th>
 <th>发布人</th>
    <th>处理人</th>
  </tr>
</tr>
</table>
<%
End Sub
%>

------解决方案--------------------
探讨
实例打印报表：

VBScript code


<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
 Call MakeExcel()
 Response.End()
End If

Sub MakeExcel()
Response.Cl……


------解决方案--------------------
探讨

引用:
实例打印报表：

VBScript code


<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
Call MakeExcel()
Response.End()
End If

Sub MakeExcel()……