- ベストアンサー
チェックボックスのついた行だけを削除するにはどうすればいいですか？
あるテーブルの中身を ループさせてテーブルを作っています。 全行表示するとします。 各行の一番左にチェックボックスをつけて そこにチェックをつけて、 SUBMITボタンを押すと、 チェックをつけたものだけを除いたほかの行だけが 表示するようにしたいのですが、方法が分かりません。 どなたか簡単な例を教えてくださいませんでしょうか？ 使用ブラウザ IE3.02 以上 使用言語 VBscript Windows2000
- GBSGBS
- お礼率36% (370/1012)
- Microsoft ASP
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ご要望通り簡単な例です。 エラーチェックなど甘い箇所は多数ありますが、あくまで流れをつかむ程度にどうぞ。(動作確認してません) | データベースのレイアウト(テーブル名: tblSample) | code - 商品コード(Long) | item - 商品名(String) '--- sample1.asp <html><body><form action="sample2.asp" method="post"> <% Dim cnn, rst '--- Connection と Recordset を Open (コード略) Do Until rst.EOF Response.Write "<input type=""checkbox"" name=""code"" value=""" & rst("code") & """>" Response.Write Server.HTMLEncode(rst("item")) & vbCrLf rst.MoveNext Loop '--- Recordset と Connection を Close (コード略) %> <input type="submit"> </form></body></html> '--- sample2.asp <% Const adCmdText = &H0001 Dim cnn, rst, i, lngCode If Request.Form("code").Count > 0 Then '--- Connection Open (コード略) For i = 1 To Request.Form("code").Count lngCode = Request.Form("code")(i) cnn.Execute "DELETE * FROM tblSample WHERE code=" & lngCode, , adCmdText Next '--- Connection Close (コード略) End If %> <html><body> '--- tblSample の内容表示 (コード略) </body></html>
