如何实现asp页面table标签内的查询数据导出到excel文件中
<tablewidth="929" border="0"cellpadding="0"cellspacing="1"bgcolor="#A6A6A6"di...
<table width="929" border="0" cellpadding="0" cellspacing="1" bgcolor="#A6A6A6" di="one"><script language="javascript">function outExcel(){var table=document.all.one;row=table.rows.length;column=table.rows(1).cells.length;var excelapp=new ActiveXObject("Excel.Application");excelapp.visible=true;objBook=excelapp.Workbooks.Add();var objSheet=objBook.ActiveSheet;for(i=0;i<row;i++){ for(j=0;j<column;j++){ objSheet.Cells(i+1,j+1).value=table.rows(i).cells(j).innerHTML.replace(" ","") } } objBook.SaveAS("onelist.xls",2); objSheet.Printout; } </script> <a href="#" onClick="outExcel();">打印</a> <tr align="center" bgcolor="#FAFAD2"> <td width="81" height="25"><b>ISBN</b></td> <td width="182" height="25"><b>教材名称</b></td> <td width="89" height="25"><b>教材作者</b></td> <td width="118" height="25"><b>出版社</b></td> <td width="118" height="25"><b>所属系部</b></td> <td width="83" height="25"><b>适用年级</b></td> <td width="64" height="25"><b>库存</b></td> <td width="90" height="25"><b>教材层次</b></td> <td width="136" height="25"><b>学期</b></td> <td width="112" height="25"><b>存放位置</b></td> </tr>为什么在asp的table中加入这段导出的excel的script代码,没有反应呢?我就是想把table中查询出来的数据导出到excel文件中去。求高手解答
展开
展开全部
使用循环读取数据的方法导出excel文件,提供你一个参考思路,希望能帮你解决问题!
<%
dim def_export_sep,def_export_val
def_export_sep = ","
def_export_val = """"
Set rs = Conn.Execute(sql)
if filetype="csv" then
Response.contenttype="text/csv"
Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".csv"
strLine=""
For each x in rs.fields
strLine= strLine & def_export_val & x.name & def_export_val & def_export_sep
Next
Response.write strLine & vbnewline
While rs.EOF =false
strLine= ""
For each x in rs.fields
strLine= strLine & def_export_val & Myreplace(x.value) & def_export_val & def_export_sep
Next
rs.MoveNext
Response.write strLine & vbnewline
Wend %>
<%
dim def_export_sep,def_export_val
def_export_sep = ","
def_export_val = """"
Set rs = Conn.Execute(sql)
if filetype="csv" then
Response.contenttype="text/csv"
Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".csv"
strLine=""
For each x in rs.fields
strLine= strLine & def_export_val & x.name & def_export_val & def_export_sep
Next
Response.write strLine & vbnewline
While rs.EOF =false
strLine= ""
For each x in rs.fields
strLine= strLine & def_export_val & Myreplace(x.value) & def_export_val & def_export_sep
Next
rs.MoveNext
Response.write strLine & vbnewline
Wend %>
展开全部
看你的代码,是想通过JS创建Excel对象来完成导出吧.
如果要实现以上功能,至少应满足以下几个条件:
客户端正确安装了Excel并注册了Excel.Application组件.
浏览器安全选项允许JS调用客户端组件.
浏览器安全选项允许JS通过创建客户端组件对象保存文件到本地.
浏览器支持document.all对象(IE浏览器).
你的方法可能会受到很多限制,不如在服务器端生成.xls文件提供下载的好.
如果要实现以上功能,至少应满足以下几个条件:
客户端正确安装了Excel并注册了Excel.Application组件.
浏览器安全选项允许JS调用客户端组件.
浏览器安全选项允许JS通过创建客户端组件对象保存文件到本地.
浏览器支持document.all对象(IE浏览器).
你的方法可能会受到很多限制,不如在服务器端生成.xls文件提供下载的好.
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询