注册 登录
编程论坛 ASP技术论坛

导出EXCEL时出现错误

xiongjl9555 发布于 2008-08-16 13:04, 828 次点击
在此之前通过版主支招,我成功的将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>
0 回复
1