| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY 
共有 176 人关注过本帖
标题:导出EXCEL时出现错误
收藏  订阅  推荐  打印 
xiongjl9555
Rank: 2
来自:深圳南山区
等级:注册会员
帖子:83
积分:1072
注册:2008-5-27
导出EXCEL时出现错误

在此之前通过版主支招,我成功的将ACCESS数据库中的数据按照查询条件导出生成EXCEL表,在本地测试完全正确,可今天在服务器上修改以后就出现了错误,虽然可以导出,也符合条件,但是在浏览器左下角出现错误提示,如图片所示。
现我将生成EXCEL文件的语句附下,请各位帮我看看错在哪里?,谢谢
附报错图片:


<script language="javascript">
    function Page_Submit(MarkMode)
    {
       document.SubForm.MarkMode.value=MarkMode;
       document.SubForm.submit();
    }
    function Page_Load()
    {        
<%    
       dim ObjExl,AdoRs,Adosql  
       Set ObjExl=New ExcelMarker
       Set AdoRs=Server.CreateObject("ADODB.RecordSet")
       Adosql=session("sqls")                                  'sqls是符合查询条件的集合  
       AdoRs.Open Adosql,conn,1,3
       ObjExl.FileName=Server.MapPath("ExcelFile/")
       ObjExl.SheetName="incident"
       ObjExl.TableName="incident"
       Select Case Request.Form("MarkMode")
              Case "ADODBStream"
                   'ADODB.Stream方式生成Excel
                   ObjExl.FileName=ObjExl.FileName&"\AdoStream.xls"'Excel文件的完整路径
                   ObjExl.ADOStreamExcel AdoRs'ADODB.RecordSet对象
              Case "FSO"
                   'FSO方式生成Excel
                   ObjExl.FileName=ObjExl.FileName&"\FSO.xls"
                   ObjExl.FSOMarkExcel AdoRs
              Case "ADODB"
                   'ADODB方式生成Excel(有问题未成功)
                   ObjExl.FileName=ObjExl.FileName&"\ADODB.xls"
                   ObjExl.EmptyExcelFile "ADODB.Stream",AdoRs
                   ObjExl.ADOMarkExcel AdoRs
              Case "Excel"
                   'Excel程序方式生成Excel
                   ObjExl.FileName=ObjExl.FileName&"\ExcelApp.xls"
                   ObjExl.ExcelApplication AdoRs            
        End Select
        AdoRs.Close
        Set AdoRs=Nothing
    %>
    }
</script>


<tr onload="Page_Load();">
    <td height="30"  width="30%" align="left" >
        <INPUT type=button  onClick='window.location="AspExcel.asp"' value="导出Excel" title="按照查询条件导出Excel文件">
    统计时间:[ <span class="STYLE1"><%=chk_tim1%></span> ]------[ <span class="STYLE1"><%=chk_tim2%></span> ]   符合查询条件的案件有:[ <span class="STYLE1"><%=total%></span> ]条</td>
   </tr>
附件: 只有本站会员才能下载或查看附件,请您 登录注册
搜索更多相关主题的帖子: EXCEL  
2008-8-16 13:04
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.058591 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved