The implementation code of asp to generate xls file from table. Copy the code code as follows:
<%@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>Untitled Document</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=Export data onclick=tableToExcel() />
<%
ConnStr=...
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open connstr
set rs = server.CreateObject(adodb.recordset)
rs.open select top 10 * from [your table name],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>serial number</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 'Hide the data in the fifth item. After testing, if the data with display as none is exported, it will not be exported.
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
setrs=nothing
conn.close
set conn = nothing
%>
</body>
</html>