快捷導(dǎo)航

asp將table生成excel文件(xls)

更新時間：2009年11月26日 00:42:56 作者：

asp將table生成xls文件的實現(xiàn)代碼。

<%@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>無標(biāo)題文檔</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="導(dǎo)出數(shù)據(jù)" 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 '在第五條的時候隱藏數(shù)據(jù),經(jīng)過測試如果是display為none的數(shù)據(jù)是不會導(dǎo)出來的 
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>