El código de implementación de asp para generar un archivo xls a partir de la tabla. Copie el código de código de la siguiente manera:
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=936%>
<%
si solicitud (acción) = 1 entonces
Respuesta.ContentType=aplicación/ms-excel
Response.AddHeader disposición-contenido, archivo adjunto; nombre de archivo = www.xls
terminar si
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transicional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<cabeza>
<meta http-equiv=Tipo de contenido content=text/html charset=gb2312 />
<título>Documento sin título</título>
<tipo de estilo=texto/css>
mesa {
borde superior: 1px sólido #003399;
borde izquierdo: 1px sólido #003399;
}
td{
borde derecho: 1px sólido #003399;
borde inferior: 1px sólido #003399;
}
cabeza {
color de fondo:#000066;
peso de fuente: negrita;
relleno: 5px;
color:#FFFFFF;
}
</estilo>
<lenguaje de escritura=javascript>
función tablaToExcel(){
ubicación.href='?action=1';
}
</script>
</cabeza>
<cuerpo>
<tipo de entrada=valor del botón=Exportar datos al hacer clic=tableToExcel() />
<%
ConnStr=...
Establecer conexión = Server.CreateObject(ADODB.Connection)
conn.Abrir connstr
establecer rs = servidor.CreateObject(adodb.recordset)
rs.open seleccione los 10 mejores * de [el nombre de su tabla],conn,1,1
si no (rs.eof y rs.bof) entonces
columna = rs.fields.count
respuesta.Write(<table cellpadding='0' cellspaceing='0'>)
respuesta.Write(<thead><td>número de serie</td>)
para cada f en rs.fields
respuesta.Escribir(<td> & f.nombre & </td>)
próximo
respuesta.Escribir(</thead>)
para j = 1 a rs.recordcount
si j > 5 entonces 'Ocultar los datos en el quinto elemento. Después de la prueba, si los datos que se muestran como ninguno se exportan, no se exportarán.
respuesta.Write(<tr estilo='display:none'>)
demás
respuesta.Escribir(<tr>)
terminar si
respuesta.Escribir(<td> & j & </td>)
para i = 0 a la columna - 1
respuesta.Escribir(<td> & rs(i) & </td>)
próximo
respuesta.Escribir(</tr>)
rs.movenext
próximo
respuesta.Escribir(</table>)
terminar si
rs.cerrar
setrs=nada
con.cerrar
establecer conexión = nada
%>
</cuerpo>
</html>