asp操作excel问题
asp创建excel文件后，都没有问题，最后用ie打开时弹出了一个窗口：
---------------------------------------------------------------
HTML导入错误
装载期间在下述的区域中出现了问题(P)：
丢失文件：.../localhost/ke/report/689944107.files/chart001.htm
丢失文件：.../localhost/ke/report/689944107.files/chart001.htm
确定 取消
---------------------------------------------------------------
然而用excel直接打开却没有问题。
各位大大遇到过这个问题么？怎么解决啊，帮帮忙吧，不然炒鱿鱼了！！
问题点数：40、回复次数：8Top
1 楼ryuginka（一米八五的猪）回复于 2004-09-01 16:51:31 得分 0
upTop
2 楼zhushizu（从来就没有救世祖）回复于 2004-09-01 18:17:41 得分 0
您可以到Google上搜一下呀,这方面的资料还是多的..但一定要有耐心...楼主加油了!!!!!Top
3 楼mzcih（小马过河）回复于 2004-09-01 18:20:53 得分 0
怎么用ASP创建EXCEL,能说说吗?Top
4 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-01 18:23:57 得分 0
to mzcih(小马过河)
请看偶的贴子，ASP版之我见里有介绍，呵呵Top
5 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2004-09-03 09:54:59 得分 0
<!-- #include file="inc/conn.asp" -->
<%
'要得到的数据有：表名
'表名
dim tbName
tbName=request("tbName")
'tbName="TB_Pham_Alias_Name_Dict"
dim sql
sql="select value from fielddesc where oname='" & tbName & "'"
dim filePath,fileName
filePath = server.MapPath("dict_makeExcel.asp")
filePath =replace(filePath , "dict_makeExcel.asp" ,"download\")
randomize
fileName = "Myexcel" & int(rnd *10000) & ".csv"
filePath = filePath & fileName
Dim fso, fileExcel
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileExcel = fso.OpenTextFile(filePath,2, True)
dim lineStr
'数据库连接对象
set cn=server.CreateObject("Adodb.connection")
set rs=server.createobject("adodb.recordset")
cn.Open strConn
'打开记录集
rs.Open sql,cn,3,2
do while not rs.EOF
lineStr = lineStr & chr(34) & rs("value") & chr(34) & ","
rs.MoveNext
loop
rs.Close
'写表头
lineStr=left(lineStr,len(lineStr)-1)
fileExcel.WriteLine lineStr
'写表体
sql= "select * from " & tbName
rs.Open sql,cn,3,2
do while not rs.EOF
lineStr=""
for i=0 to rs.Fields.count-1
lineStr = lineStr & chr(34) & rs(i) & chr(34) & ","
next
lineStr=left(lineStr,len(lineStr)-1)
fileExcel.WriteLine lineStr
rs.MoveNext
loop
rs.Close
fileExcel.close
cn.Close
set rs = nothing
set cn = nothing
set fileExcel = nothing
set fso= nothing
Response.Redirect "dict_downloadExcel.asp?fileName=" & fileName
%>Top
6 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2004-09-03 09:57:14 得分 0
上面是所有表通用的，需要SQL创建一个视图：
CREATE VIEW dbo.fielddesc
AS
SELECT o.name AS oname, c.name AS cname, CONVERT(varchar(30), p.[value]) AS value,
p.smallid AS psmallid, t.name AS tname
FROM dbo.syscolumns c INNER JOIN
dbo.systypes t ON c.xtype = t.xtype INNER JOIN
dbo.sysobjects o ON o.id = c.id LEFT OUTER JOIN
dbo.sysproperties p ON p.smallid = c.colid AND p.id = o.id
WHERE (o.xtype = 'U')
Top
7 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2004-09-03 09:58:36 得分 0
巨快， 通用表维护增删查改存储过程分页显示
(疾病名称表近2万数据)
导出excel并下载
http://www.adr.gov.cn/download/panyuguang/adrnew/dict_List.asp
下载
ftp://61.152.210.28/
Top
8 楼majieair（空气）回复于 2004-09-10 11:08:35 得分 40
go to msn:majieair@hotmail.comTop
