导出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>