新闻动态

   

您现在的位置是:首页 » 新闻动态 » 网站技术


asp实现将access数据库或者mssql数据库内的内容导出到excel的简单方法


人气: 1663  日期: 2014-09-28  作者: 大向网络  [打印本文]

上面的conn.asp是设置好数据库的链接,肯定是少不了的,这个方法能够灵活的增加或者减少导出的字段,测试有效的哦

<%@language="VBScript" codepage="936" %>

<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<html xmlns:x="urn:schemas-microsoft-com:office:excel">
<head>
<title>导出Excel在客户端</title>
<xml>
             <x:ExcelWorkbook>
                <x:ExcelWorksheets>
                    <x:ExcelWorksheet>
                        <x:Name>导出结果</x:Name>
                        <x:WorksheetOptions>
                            <x:Print>
                                <x:ValidPrinterInfo />
                            </x:Print>
                        </x:WorksheetOptions>
                    </x:ExcelWorksheet>
                </x:ExcelWorksheets>
            </x:ExcelWorkbook>
        </xml>
</head>
<body>
<table  border="0" align="center" >
<tr>
    <td>编号</td>
    <td>资金备注说明</td>
    <td>产生金额( RMB 元 )</td>
    <td>变动日期</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM Money order by id desc"
rs.open sql,conn,3,3
do while not rs.eof
%>
<tr>
    <td><%=rs("id")%></td>
    <td><%=rs("Title")%></td>
    <td><%=rs("Num")%></td>
    <td><%=rs("BData")%></td>
</tr>
<%
rs.movenext
loop
rs.close
'Response.ContentType   =   "application/vnd.ms-excel"  
Response.ContentType ="application/vnd.ms-excel"
Response.AddHeader   "content-disposition","inline;filename=result.xls"
%>
</table>
</body>
</html>

 
  上一篇:通过百度提供的js插件实现智能判断手机访问网站并且跳转到手机版
  下一篇:html5自带得表单验证代码 做验证再也不用那么复杂了
相关文章(Tags:asp,excel,mssql)