asp将table生成excel文件(xls)
来源：asp之家 发布时间：2011-03-07 11:17:00
代码如下:
<％@LANGUAGE="VBSCRIPT" CODEPAGE="936"％>
<％
if request("action")=1 then
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","attachment;filename=www.xls"
end if
％>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
table {
border-top:1px solid #003399;
border-left:1px solid #003399;
}
td {
border-right:1px solid #003399;
border-bottom:1px solid #003399;
}
thead {
background-color:#000066;
font-weight:bold;
padding:5px;
color:#FFFFFF;
}
</style>
<script language="javascript">
function tableToExcel(){
location.href='?action=1';
}
</script>
</head>
<body>
<input type="button" value="导出数据" onclick="tableToExcel()" />
<％
ConnStr="..."
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs = server.CreateObject("adodb.recordset")
rs.open "select top 10 * from [你的表名]",conn,1,1
if not (rs.eof and rs.bof) then
column = rs.fields.count
response.Write("<table cellpadding='0' cellspacing='0'>")
response.Write("<thead><td>序号</td>")
for each f in rs.fields
response.Write("<td>" & f.name & "</td>")
next
response.Write("</thead>")
for j = 1 to rs.recordcount
if j > 5 then '在第五条的时候隐藏数据,经过测试如果是display为none的数据是不会导出来的
response.Write("<tr style='display:none'>")
else
response.Write("<tr>")
end if
response.Write("<td>" & j & "</td>")
for i = 0 to column - 1
response.Write("<td>" & rs(i) & "</td>")
next
response.Write("</tr>")
rs.movenext
next
response.Write("</table>")
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
％>
</body>
</html>
0
投稿猜你喜欢
分区视图联接来自一组成员的水平分区数据，使数据看起来象来自同一张表。SQL Server 2000 区分本地分区视图和分布式分区视图。在本地- 学会了FSO提取文件值，也学会了将信息输入到文件中，那下面就再来应用应用下。不知道你有没有这样的习惯：看到一个文件，不自觉的右键选择用记事本
- ASP调用WEBSERVICE----INDEX----1. soap请求方式2. post请求方式3.&
- 平面设计 常用尺寸 三折页广告 标准尺寸: (A4)210mm x 285mm普通宣传册 标准尺寸: (A4)210mm x 285mm文件
- 原文：Unobtrusive Ajax。今天才看见的一个Presentation，是Jesse Skinner在06年10月发表的。虽然题目
- 实现原理：将用户信息保存在数据库中，若能在数据库中检索到用户输入的姓名和口令，就允许访问该一页面。代码如下：protect.asp<h
- 最近项目中要用到一个正则表达式，排除某个字符串，我们知道排除单个字符串的话，可以用[^abc],这样就可以排除a或者b或者c了，但是要排除a
- 可以采用exec方法注意：使exec不能返回一些变量的值，而且当前的变量值在exec的语句里无效。declare @tempStr
- Access数据库被损坏主要分为以下几种情况：1、严重损坏；2、轻度损坏；3、有些表被损坏或有些表的部分记录被损坏。下面就分情况介绍解决办法
- 用比较笨的方法来做abc ="AlkjA;lkjlkjAlkAkjAlkjAAAA" if instr(abc,&quo
- 数据库系统是管理信息系统的核心，基于数据库的联机事务处理(OLTP)以及联机分析处理(OLAP)是银行、企业、政府等部门最为重要的计算机应用
- 一段重用很高的ajax代码，可以套用 <!DOCTYPE HTML
- sql exist的妙用create table b(a varchar(10),b varchar(10),c varchar(10))i
- 关于 游标 if,for 的例子 create or replace procedure peace_if is cursor var_c
- © 版权符号显示不清楚，就是那个圈C，在某些网站上就是显示太小，看不清楚。一开始还以为是字体大小的原因，调大以后，还是一样
- 在创建SQL Server 2000 故障转移群集之前，必须配置 Microsoft 群集服务 (MSCS) 并使用 Microsoft W
- 一直以来都对DOMDocument与 XMLHTTP 两者的区别不甚了解，今天用 eXeScope 查看了msxml6.dll 内
- 在 CodeBit.cn 的论坛中，有人问 Javascript 中如何截取小数位并实现四舍五入，这是一个很常用的 js 技术，帖子中也有网
- 我们一般采用photoshop等做图工具制作电视扫描线效果图片：首先做一个黑白相间的图案，然后用这个图案进行填充，再调整图层的模式或者透明度
- 在获得SA密码后，往往因为服务器管理者或”前人”将net.exe和net1.exe被限制使用，无法添
