Kode implementasi asp untuk menghasilkan file xls dari tabel. Copy kode kodenya sebagai berikut:
<%@LANGUAGE=KODE VBSCRIPT=936%>
<%
jika permintaan(tindakan)=1 maka
Response.ContentType=aplikasi/ms-excel
Response.AddHeader disposisi konten, lampiran; nama file=www.xls
berakhir jika
%>
<!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>
<kepala>
<meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312 />
<title>Dokumen Tanpa Judul</title>
<tipe gaya=teks/css>
meja {
perbatasan-atas:1px padat #003399;
perbatasan-kiri:1px padat #003399;
}
td{
perbatasan-kanan:1px padat #003399;
perbatasan-bawah:1px padat #003399;
}
kepala {
warna latar belakang:#000066;
berat font: tebal;
bantalan:5 piksel;
warna:#FFFFFF;
}
</gaya>
<bahasa skrip=javascript>
fungsi tableToExcel(){
lokasi.href='?action=1';
}
</skrip>
</kepala>
<tubuh>
<tipe input=nilai tombol=Ekspor data onclick=tableToExcel() />
<%
SambunganStr=...
Setel koneksi = Server.CreateObject(ADODB.Connection)
samb.Buka konstr
set rs = server.CreateObject(adodb.recordset)
rs.open pilih 10 teratas * dari [nama tabel Anda],sambung,1,1
jika tidak (rs.eof dan rs.bof) maka
kolom = rs.fields.count
respon.Tulis(<tabel cellpadding='0' cellpacing='0'>)
respon.Write(<thead><td>nomor seri</td>)
untuk setiap f di rs.fields
respon.Tulis(<td> & f.nama & </td>)
Berikutnya
respon.Tulis(</thead>)
untuk j = 1 hingga rs.recordcount
jika j > 5 maka 'Sembunyikan data pada item kelima. Setelah pengujian, jika data dengan tampilan tidak ada diekspor, maka tidak akan diekspor.
respon.Tulis(<tr style='display:none'>)
kalau tidak
respon.Tulis(<tr>)
berakhir jika
respon.Tulis(<td> & j & </td>)
untuk i = 0 ke kolom - 1
respon.Tulis(<td> & rs(i) & </td>)
Berikutnya
respon.Tulis(</tr>)
rs.movenext
Berikutnya
respon.Tulis(</tabel>)
berakhir jika
rs.tutup
setr=tidak ada
samb.tutup
setel sambungan = tidak ada
%>
</tubuh>
</html>