上一篇
下一篇
asp读取数据库内容并导出EXCEL的源码下载
作者:winxml 日期:2009-08-09
以下是导出EXCEL的ASP源码,
http://www.wenmc.com/attachments/month_0906/j20096414714.rar
程序代码
程序代码
http://www.wenmc.com/attachments/month_0906/j20096414714.rar
程序代码
程序代码<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 全部会员列表.xls"
' "inline; filename = "&request("username")&"_"&request("name")&"的档桿doc"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>导出Excel</title>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<!--#include file="conn.asp"-->
<table width="300%" border="1" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="30" bgcolor="#CCCCCC"><strong>帐号</strong></td>
<td bgcolor="#CCCCCC"><strong>姓名</strong></td>
<td bgcolor="#CCCCCC"><strong>E-mail</strong></td>
<td bgcolor="#CCCCCC"><strong>姓别</strong></td>
<td bgcolor="#CCCCCC"><strong>出生日期</strong></td>
<td bgcolor="#CCCCCC"><strong>家庭结构</strong></td>
<td bgcolor="#CCCCCC"><strong>月收兿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>爱好</strong></td>
<td bgcolor="#CCCCCC"><strong>证件类别</strong></td>
<td bgcolor="#CCCCCC"><strong>证件号码</strong></td>
<td bgcolor="#CCCCCC"><strong>固定电话</strong></td>
<td bgcolor="#CCCCCC"><strong>移动电话</strong></td>
<td bgcolor="#CCCCCC"><strong>博客地址</strong></td>
<td bgcolor="#CCCCCC"><strong>邮寄地址</strong></td>
<td bgcolor="#CCCCCC"><strong>邮编</strong></td>
<td bgcolor="#CCCCCC"><strong>是否有物丿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>物业名称</strong></td>
<td bgcolor="#CCCCCC"><strong>是否有置业计刿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>置业类型</strong></td>
<td bgcolor="#CCCCCC"><strong>置业目的</strong></td>
<td bgcolor="#CCCCCC"><strong>置业面积</strong></td>
<td bgcolor="#CCCCCC"><strong>普通住宅户垿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>感兴趣的社区活动</strong></td>
<td bgcolor="#CCCCCC"><strong>最有吸引力的联盟商</strong></td>
<td bgcolor="#CCCCCC"><strong>建议</strong></td>
<td bgcolor="#CCCCCC"><strong>是否同意章程</strong></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from huiyuan"
rs.open sqltext,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof
%>
<tr align="left" valign="top">
<td><%=rs("name1")%></td>
<td><%=rs("name2")%></td>
<td><%=rs("email")%></td>
<td><%=rs("sex")%></td>
<td><%=rs("a")%></td>
<td><%=rs("e")%></td>
<td><%=rs("f")%></td>
<td><%=rs("g")%></td>
<td><%=rs("h")%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("i"))%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("j"))%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("k"))%></td>
<td><%=rs("m")%></td>
<td><%=rs("n")%></td>
<td><%=rs("p")%></td>
<td><%=rs("q")%></td>
<td><%=rs("r")%></td>
<td><%=rs("s")%></td>
<td><%=rs("t")%></td>
<td><%=rs("u")%></td>
<td>
<%if trim(rs("v"))<>"" then%>
<%=rs("v")%>㎿-
<%end if%>
<%if trim(rs("w"))<>"" then%>
<%=rs("w")%>㎿br/> <%end if%></td>
<td>
<%if trim(rs("x"))<>"" then%>
<%=rs("x") %>室〿br/> <%end if%>
<%if trim(rs("y"))<>"" then%>
<%=rs("y") %>厅〿br/> <%end if%>
<%if trim(rs("z"))<>"" then%>
朝向<%=rs("z") %>〿br/> <%end if%>
<%if trim(rs("z1"))<>"" then%>
<%=rs("z1") %>个洗手间
<%end if%>
</td>
<td><%=rs("vv")%></td>
<td><%=rs("vvv")%></td>
<td><%=rs("content")%></td>
<td><%=rs("z2")%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
conn.close
%>
</table>
</body>
</html>
<%
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 全部会员列表.xls"
' "inline; filename = "&request("username")&"_"&request("name")&"的档桿doc"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>导出Excel</title>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<!--#include file="conn.asp"-->
<table width="300%" border="1" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="30" bgcolor="#CCCCCC"><strong>帐号</strong></td>
<td bgcolor="#CCCCCC"><strong>姓名</strong></td>
<td bgcolor="#CCCCCC"><strong>E-mail</strong></td>
<td bgcolor="#CCCCCC"><strong>姓别</strong></td>
<td bgcolor="#CCCCCC"><strong>出生日期</strong></td>
<td bgcolor="#CCCCCC"><strong>家庭结构</strong></td>
<td bgcolor="#CCCCCC"><strong>月收兿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>爱好</strong></td>
<td bgcolor="#CCCCCC"><strong>证件类别</strong></td>
<td bgcolor="#CCCCCC"><strong>证件号码</strong></td>
<td bgcolor="#CCCCCC"><strong>固定电话</strong></td>
<td bgcolor="#CCCCCC"><strong>移动电话</strong></td>
<td bgcolor="#CCCCCC"><strong>博客地址</strong></td>
<td bgcolor="#CCCCCC"><strong>邮寄地址</strong></td>
<td bgcolor="#CCCCCC"><strong>邮编</strong></td>
<td bgcolor="#CCCCCC"><strong>是否有物丿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>物业名称</strong></td>
<td bgcolor="#CCCCCC"><strong>是否有置业计刿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>置业类型</strong></td>
<td bgcolor="#CCCCCC"><strong>置业目的</strong></td>
<td bgcolor="#CCCCCC"><strong>置业面积</strong></td>
<td bgcolor="#CCCCCC"><strong>普通住宅户垿lt;/strong></td>
<td bgcolor="#CCCCCC"><strong>感兴趣的社区活动</strong></td>
<td bgcolor="#CCCCCC"><strong>最有吸引力的联盟商</strong></td>
<td bgcolor="#CCCCCC"><strong>建议</strong></td>
<td bgcolor="#CCCCCC"><strong>是否同意章程</strong></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from huiyuan"
rs.open sqltext,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof
%>
<tr align="left" valign="top">
<td><%=rs("name1")%></td>
<td><%=rs("name2")%></td>
<td><%=rs("email")%></td>
<td><%=rs("sex")%></td>
<td><%=rs("a")%></td>
<td><%=rs("e")%></td>
<td><%=rs("f")%></td>
<td><%=rs("g")%></td>
<td><%=rs("h")%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("i"))%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("j"))%></td>
<td><span class="STYLE1">'</span><%=cstr(rs("k"))%></td>
<td><%=rs("m")%></td>
<td><%=rs("n")%></td>
<td><%=rs("p")%></td>
<td><%=rs("q")%></td>
<td><%=rs("r")%></td>
<td><%=rs("s")%></td>
<td><%=rs("t")%></td>
<td><%=rs("u")%></td>
<td>
<%if trim(rs("v"))<>"" then%>
<%=rs("v")%>㎿-
<%end if%>
<%if trim(rs("w"))<>"" then%>
<%=rs("w")%>㎿br/> <%end if%></td>
<td>
<%if trim(rs("x"))<>"" then%>
<%=rs("x") %>室〿br/> <%end if%>
<%if trim(rs("y"))<>"" then%>
<%=rs("y") %>厅〿br/> <%end if%>
<%if trim(rs("z"))<>"" then%>
朝向<%=rs("z") %>〿br/> <%end if%>
<%if trim(rs("z1"))<>"" then%>
<%=rs("z1") %>个洗手间
<%end if%>
</td>
<td><%=rs("vv")%></td>
<td><%=rs("vvv")%></td>
<td><%=rs("content")%></td>
<td><%=rs("z2")%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
conn.close
%>
</table>
</body>
</html>
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论
