写了个下载excel文件的组件，大家批批。对有些人也应该有用吧。我也好改进。改进以后公开代码。

组件在server产生一个excel文件然后把文件下载，方便客户通过ie下载。
服务器要安装office2000，还有可以使用fso。

在 http://www.webwin.com.cn/inc/dll/stock.dll 下载这个组件。

这么调用。

<%
set a1= Server.CreateObject("ENKYKSTOCK.Stock") '定义对象
'连接串属性，必须
a1.ConnectionString="driver={SQL server};server=127.0.0.1;uid=sa;pwd=;DATABASE=bk1"
a1.Servermappath=server.mappath("/") '路径属性，必须

'以下是可选属性。
'数据库名属性，可选
a1.DefaultDatabase="exponent"
'第一列指定字符串。可选
a1.OneLie="我的行1,我的行2,我的行3,我的行4,我的行5,我的行6,我的行7"

'以下是函数要用到的参数
a22="我的列1,我的列2,我的列3,我的列4" '第一行字符串，
StrSql = "select id,expr1,mainid from CCCC WHERE 1=1 " 'sql语句字符串

'set dd=a1.Test3(StrSql,A22) '没有com+应用程序用test3函数

set dd=a1.Test4(StrSql,A22) '有com+应用程序用test4函数

set a1=nothing

FileName = "sss.xls" '要下载的文件名
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
While Not dd.EOS
Response.BinaryWrite dd.Read(-1)
Wend
dd.Close
Set dd = Nothing
Response.Flush
Response.End
%>

欢迎大家提意见，我好改进。