| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 826 人关注过本帖
标题:导出EXCEL时出现错误
取消只看楼主 加入收藏
xiongjl9555
Rank: 2
来 自:深圳南山区
等 级:论坛游民
帖 子:124
专家分:10
注 册:2008-5-27
结帖率:57.14%
收藏
 问题点数:0 回复次数:0 
导出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文件">
    统计时间:[&nbsp;<span class="STYLE1"><%=chk_tim1%></span>&nbsp;]------[&nbsp;<span class="STYLE1"><%=chk_tim2%></span>&nbsp;]&nbsp;&nbsp; 符合查询条件的案件有:[&nbsp;<span class="STYLE1"><%=total%></span>&nbsp;]条</td>
   </tr>
搜索更多相关主题的帖子: EXCEL 
2008-08-16 13:04
快速回复:导出EXCEL时出现错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024815 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved