asp生成excel文件的问题！！

如何实现如下功能：
把用户从数据库中查询的结果生成excel格式的文件供用户下载！！有什么好的方案吗？谢谢解答，正确答案的全分！
---------------------------------------------------------------

http://www.xxsky.com/article/view.asp?id=434 这里有一个例子
---------------------------------------------------------------

将SQL Server里的数据转换成EXCEL文件：
请参考：
http://expert.csdn.net/Expert/topic/1525/1525187.xml?temp=.7133295
---------------------------------------------------------------

1@ LANGUAGE="VBSCRIPT"

1option explicit

 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>生成EXCEL文件</title>
 5</head>
 6<body>
 7<a href="dbtoexcel.asp?act=make">生成在线人口的EXCEL</a>
 8<hr align="left" size="1" width="300px"/>   
 9&lt;%   
10if Request("act") = "" then   
11Response.Write "生成EXCEL文件"   
12else   
13  
14dim conn,strconn   
15strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test"   
16set conn=server.CreateObject("adodb.connection")   
17conn.Open strconn   
18  
19dim rs,sql,filename,fs,myfile,x   
20  
21Set fs = server.CreateObject("scripting.filesystemobject")   
22'--假设你想让生成的EXCEL文件做如下的存放   
23filename = Server.MapPath("online.xls")   
24'--如果原来的EXCEL文件存在的话删除它   
25if fs.FileExists(filename) then   
26fs.DeleteFile(filename)   
27end if   
28'--创建EXCEL文件   
29set myfile = fs.CreateTextFile(filename,true)   
30  
31  
32  
33Set rs = Server.CreateObject("ADODB.Recordset")   
34'--从数据库中把你想放到EXCEL中的数据查出来   
35sql = "select * from Tb_Execl order by id desc"   
36rs.Open sql,conn   
37if rs.EOF and rs.BOF then   
38  
39else   
40  
41dim strLine,responsestr   
42strLine=""   
43For each x in rs.fields   
44strLine= strLine &amp; x.name &amp; chr(9)   
45Next   
46  
47'--将表的列名先写入EXCEL   
48myfile.writeline strLine   
49  
50Do while Not rs.EOF   
51strLine=""   
52  
53for each x in rs.Fields   
54strLine= strLine &amp; x.value &amp; chr(9)   
55next   
56'--将表的数据写入EXCEL   
57myfile.writeline strLine   
58  
59rs.MoveNext   
60loop   
61  
62end if   
63  
64rs.Close   
65set rs = nothing</body></html>