O código de implementação do asp para gerar o arquivo xls da tabela. Copie o código do código da seguinte forma:
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=936%>
<%
se solicitação(ação)=1 então
Response.ContentType=aplicativo/ms-excel
Response.AddHeader disposição de conteúdo, anexo; nome do arquivo = www.xls
terminar se
%>
<!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>
<cabeça>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>Documento sem título</title>
<tipo de estilo=texto/css>
mesa {
borda superior: 1px sólido #003399;
borda esquerda: 1px sólido #003399;
}
td{
borda direita: 1px sólido #003399;
borda inferior: 1px sólido #003399;
}
cabeça {
cor de fundo:#000066;
peso da fonte: negrito;
preenchimento: 5px;
cor:#FFFFFF;
}
</estilo>
<linguagem de script=javascript>
função tabelaParaExcel(){
localização.href='?action=1';
}
</script>
</head>
<corpo>
<input type=button value=Exportar dados onclick=tableToExcel() />
<%
ConnStr=...
Definir conexão = Server.CreateObject(ADODB.Connection)
conn.Open connstr
definir rs = server.CreateObject(adodb.recordset)
rs.open selecione os 10 primeiros * de [nome da sua tabela], conn,1,1
se não (rs.eof e rs.bof) então
coluna = rs.fields.count
resposta.Write(<tabela cellpadding='0' cellpacing='0'>)
resposta.Write(<thead><td>número de série</td>)
para cada f em rs.fields
resposta.Write(<td> & f.name & </td>)
próximo
resposta.Write(</thead>)
para j = 1 para rs.recordcount
se j > 5 então 'Ocultar os dados no quinto item Após o teste, se os dados exibidos como nenhum forem exportados, eles não serão exportados.
resposta.Write(<tr style='display:none'>)
outro
resposta.Write(<tr>)
terminar se
resposta.Write(<td> & j & </td>)
para i = 0 para coluna - 1
resposta.Write(<td> & rs(i) & </td>)
próximo
resposta.Write(</tr>)
rs.movnext
próximo
resposta.Write(</table>)
terminar se
rs.fechar
setrs = nada
conexão.fechar
definir conn = nada
%>
</body>
</html>