テーブルからxlsファイルを生成するaspの実装コード。次のようにコードをコピーします。
<%@LANGUAGE=VBSCRIPT コードページ=936%>
<%
リクエスト(アクション)=1の場合
Response.ContentType=アプリケーション/ms-excel
Response.AddHeader コンテンツの配置、添付ファイル;ファイル名=www.xls
終了する場合
%>
<!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>
<頭>
<meta http-equiv=Content-Type content=text/html;
<title>無題のドキュメント</title>
<スタイルタイプ=テキスト/css>
テーブル {
ボーダートップ:1px ソリッド #003399;
ボーダー左:1px ソリッド #003399;
}
td{
ボーダー右:1px ソリッド #003399;
ボーダーボトム:1px ソリッド #003399;
}
頭 {
背景色:#000066;
フォントの太さ:太字;
パディング:5px;
色:#FFFFFF;
}
</スタイル>
<スクリプト言語=javascript>
関数 tableToExcel(){
location.href='?action=1';
}
</script>
</head>
<本文>
<input type=button value=onclick=tableToExcel() /> でデータをエクスポート
<%
ConnStr=...
conn = Server.CreateObject(ADODB.Connection) を設定します
conn.Open connstr
set rs =server.CreateObject(adodb.recordset)
rs.open select Top 10 * from [テーブル名],conn,1,1
そうでない場合 (rs.eof および rs.bof)
列 = rs.fields.count
response.Write(<table cellpadding='0' cellpacing='0'>)
response.Write(<thead><td>シリアル番号</td>)
rs.fields の各 f について
response.Write(<td> & f.name & </td>)
次
応答.Write(</thead>)
j = 1 の場合は rs.recordcount まで
if j > 5 then '5 番目の項目のデータを非表示にします。テスト後、なしと表示されたデータはエクスポートされません。
response.Write(<tr style='display:none'>)
それ以外
応答.書き込み(<tr>)
終了する場合
応答.Write(<td> & j & </td>)
i = 0 から列 - 1 まで
応答.Write(<td> & rs(i) & </td>)
次
応答.Write(</tr>)
rs.movenext
次
応答.Write(</テーブル>)
終了する場合
rs.close
setrs=なし
接続閉じる
conn = 何も設定しない
%>
</body>
</html>