问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

asp 把表格导出excel表源码

发布网友 发布时间:2023-07-04 03:46

我来回答

1个回答

热心网友 时间:2023-10-13 17:10

一、用Excel对象,但要有Excel模板。速度略慢

<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
    fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
strSql = "select djh,bmmc,jihua,mubiao from scheme "
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then
    dim trLine,responsestr
    strLine=""
    For each x in rstData.fields
        strLine = strLine & x.name & chr(9)
    Next
'--将表的列名先写入EXCEL
    myfile.writeline strLine
    Do while Not rstData.EOF
        strLine=""
        for each x in rstData.Fields
            strLine = strLine & x.value & chr(9)
        next
        myfile.writeline strLine
        rstData.MoveNext
    loop
end if
Response.Write "生成EXCEL文件成功,点击<a href=""users.xls"" target=""_blank"">下载</a>!"
rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>

二、生成假的Excel,文件本身的格式是TXT,但扩展名使用的是XLS,用Excel也可以打开。速度快

<!--#include file="../conn.asp"-->
<%
Response.ContentType="application/vnd.ms-excel "    
%>
<table border="1"  style="border-collapse:collapse;">
    <tr align="center">
        <td>编号</td>
        <td>日期</td>
        <td>部门</td>
        <td>工作计划</td>
        <td>工作目标</td>
    </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select djh,rq,bmmc,jihua,mubiao from scheme where bmmc='"&session("bmmc")&"'"
rs.open sql,conn,1,1
do while not rs.eof
%>
    <tr>
        <td><%=rs("djh")%></td>
        <td><%=rs("rq")%></td>
        <td><%=rs("bmmc")%></td>
        <td><%=rs("jihua")%></td>
        <td><%=rs("mubiao")%></td>
    </tr>
<%
    rs.movenext
loop
%>
</table>
<%
rs.close
Conn.Close
Set Conn = nothing
%>

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
人教版小学英语课本哪里能下载到MP3 小学英语同步听力音频去哪里找 去陆丰旅行,要提前做好什么准备? 请教高手:苹果6s能不能安装两个微信?谢谢指点! 对于一个在女性内衣店工作的男性,你们怎么看待 ...湖是世界最深和蓄水量最大的咸水湖 B.死海是世界最低点 C.马来群 ... ...世界最大的湖泊___世界上人口最多的国家___世界上面积最大... 世界最深和蓄水量最大的湖是什么?世界最低点是哪?世界面积最大的高原... 尚赫净水器滤芯 如何清洗尚赫 美的打败格力的原因 请问日币兑换人民币在东莞长安的什么银行兑换 需要什么样的手续!谢谢啦! 7万日币兑换多少人民币? 企业运营中客户关系产生的原因是什么 穷通缩,富通胀. 2017的近似数是多少 1070的近似数是多少 1017的近似数是多少? 中华联合财产保险股份有限公司上班时间 中华联合财产保险股份有限公司发展前景如何 申请大额贷款需要注意什么? 初学者如何用最少的股票起步投资股票 第一次主动向喜欢的人告白,被发卡了 被发卡了,好人卡,朋友卡都收到了,现在她主动联系我,她啥意思? 喜欢一女生 还没开始追就被发卡 然后删好友 难过一个月了 是不是不太正常 手机被发卡机代码了怎么办 如何使用广发信用卡网上支付 日赚5000!定投基金必读7个知识点 基金定投海报手绘-基金定投是什么详解基金定投的概念和实践方法? 江西神州通水上投资开发有限公司怎么样? vb 操作EXCEL 源代码 实现功能以下 表格宽度为400像素,间距为0,边距为1,边框线宽为1像素的表格源代码 用java语言在Excel中,2个单元格中的数字怎么加和怎么判断相同,求源代码 横直2公里等于多少亩? 富德生命学生定期寿险可以买吗? 富德生命满天星重疾险可以买么? 41岁人群如何购买重疾险? 42岁人群如何购买重疾险? 47岁中年人怎么样买重疾险? 中年人怎么买重疾险? 43岁怎么样买重疾险? 39岁怎么样买重疾险? 听说银行贷款五百万只给我几十万一年后给我征信拉黑就不用还了是真的吗 农业银行怎么换零钱 个人简介ppt模板图片小清新-利用PPT怎么制作个人简介 PPT制作教程:PPT文档如何制作成视频格式? 炒股用多屏显示好还是大屏显示好? 万家乐全国服务电话是多少?我在百度搜索后好多都说自己是万家乐售后服务电话的,弄的我都不知那个是真的 请问一下葫芦岛万家乐热水器客服电话是多少 东莞合力电器制造有限公司是骗钱的吗?