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

500sea 2004-03-31 07:24:00
组件在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
%>

欢迎大家提意见,我好改进。
...全文
69 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hotdog2002 2004-04-01
好象不用组件,ASP可以直接生成Excel 保下载文件用stream就可以了,图片都可以下载保存
回复
SaySorry 2004-04-01
up
回复
500sea 2004-04-01
所以还要不断学习啊,这个是我编写的第一个正式用的组件哦
回复
commaxsoft 2004-04-01
一般


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

在线编辑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 2004-04-01
就是vb啊,在server先生成一个临时excel文件,然后组件返回文件流,
把这个excel文件下载下来。ie下载
回复
cxj1976 2004-04-01
先看看,发源代码的时候我还来
回复
500sea 2004-04-01
兄弟啊,用了么?我好感动哦 5555555555555555555
回复
liuyangxuan 2004-04-01
帮你UP
顺便问一下用什么软件写的?
回复
liujun999999 2004-04-01
支持一下
虽然我现在没有用
回复
500sea 2004-04-01
up 一下,难道这个是没有用的东西。
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告