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

[500sea]

组件在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
%>

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

[500sea]

up 一下，难道这个是没有用的东西。

[liujun999999]

支持一下
虽然我现在没有用

[liuyangxuan]

帮你UP
顺便问一下用什么软件写的？

[500sea]

兄弟啊，用了么？我好感动哦 5555555555555555555

[cxj1976]

先看看,发源代码的时候我还来

[500sea]

就是vb啊，在server先生成一个临时excel文件，然后组件返回文件流，
把这个excel文件下载下来。ie下载

[commaxsoft]

一般


===============================

在线编辑WORD,EXCEL等OFFICE文档控件的ASP源代码下载地址：
http://www.superoa.net/webofficeforasp.rar
更详细信息访问：http://www.superoa.net
标准COM接口，支持开发语言：VB,VC,C#,ASP,ASP.NET,PHP,JSP,java等
QQ:53928716

[500sea]

所以还要不断学习啊，这个是我编写的第一个正式用的组件哦

[SaySorry]

up

[hotdog2002]

好象不用组件，ASP可以直接生成Excel 保下载文件用stream就可以了，图片都可以下载保存