24小时热门版块排行榜

>论坛更新日志 (3385)
>虫友互识 (925)
>文献求助 (255)
>导师招生 (169)
>休闲灌水 (161)
>考博 (135)
>教师之家 (87)
>硕博家园 (82)
>博后之家 (81)
>找工作 (77)
>论文投稿 (75)
>论文道贺祈福 (67)
>基金申请 (65)
>考研 (57)
>公派出国 (51)
>招聘信息布告栏 (38)

返回列表

当前主题已经存档。

ishow

应助: (幼儿园)
在线:
虫号: 220528

[交流] 用asp创建excel的例子【非常使用】

Set fs = server.CreateObject("scripting.filesystemobject"

'--假设你想让生成的EXCEL文件做如下的存放
filename  =  Server.MapPath("orderinfo.xls"

'--如果原来的EXCEL文件存在的话删除它
if  fs.FileExists(filename)  then
fs.DeleteFile(filename)
end  if
'--创建EXCEL文件
set  myfile  =  fs.CreateTextFile(filename,true)
if  rs.EOF  and  rs.BOF  then
else
dim  strLine,responsestr
strLine=""
For  each  x  in  rs.fields
strLine=  strLine  &  x.name  &  chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline  strLine
‘rs为从数据库中读取数据的记录集
Do  while  Not  rs.EOF
strLine=""
for  each  x  in  rs.Fields
strLine=  strLine  &  x.value  &  chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline  strLine
rs.MoveNext
loop

[ Last edited by 幻影无痕 on 2006-11-3 at 08:11 ]

回复此楼

» 猜你喜欢

1楼 2006-03-15 19:39:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 ishow 的主题更新

返回列表