Der Implementierungscode von ASP zum Generieren einer XLS-Datei aus einer Tabelle. Kopieren Sie den Codecode wie folgt:
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%
wenn request(action)=1 dann
Response.ContentType=application/ms-excel
Response.AddHeader content-disposition,attachment;filename=www.xls
Ende wenn
%>
<!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>
<Kopf>
<meta http-equiv=Content-Type content=text/html;
<title>Unbenanntes Dokument</title>
<style type=text/css>
Tisch {
border-top:1px solide #003399;
border-left:1px solid #003399;
}
td{
border-right:1px solid #003399;
border-bottom:1px solid #003399;
}
Kopf {
Hintergrundfarbe:#000066;
Schriftstärke:fett;
Polsterung:5px;
Farbe:#FFFFFF;
}
</style>
<Skriptsprache=Javascript>
Funktion tableToExcel(){
location.href='?action=1';
}
</script>
</head>
<Körper>
<input type=button value=Daten exportieren onclick=tableToExcel() />
<%
ConnStr=...
Setze 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
wenn nicht (rs.eof und rs.bof), dann
Spalte = rs.fields.count
Antwort.Write(<table cellpadding='0' cellspaced='0'>)
Response.Write(<thead><td>Seriennummer</td>)
für jedes f in rs.fields
Response.Write(<td> & f.name & </td>)
nächste
Antwort.Write(</thead>)
für j = 1 bis rs.recordcount
Wenn j > 5, dann „Verstecken Sie die Daten im fünften Element. Wenn nach dem Testen die Daten mit der Anzeige „Keine“ exportiert werden, werden sie nicht exportiert.
Antwort.Write(<tr style='display:none'>)
anders
Antwort.Write(<tr>)
Ende wenn
Antwort.Write(<td> & j & </td>)
für i = 0 bis Spalte - 1
Antwort.Write(<td> & rs(i) & </td>)
nächste
Antwort.Write(</tr>)
rs.movenext
nächste
Antwort.Write(</table>)
Ende wenn
rs.close
setrs=nichts
Verbindung schließen
setze conn = nichts
%>
</body>
</html>