一括行削除

view2.inc

<SCRIPT language=VBScript>

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()

	Dim i,bCheck

	bCheck = false
	For Each objInput In document.all.tags("INPUT")
		if Left(objInput.name,3) = "Del" then
			if objInput.checked then
				bCheck = true
			end if
		end if
	Next

	if not bCheck then
		alert( "少なくとも一つのチェックが必要です" )
		frmMain_onSubmit = false
		exit function
	end if

	if not confirm("チェックされたデータを削除してもよろしいですか?") then
		frmMain_onSubmit = false
		exit function
	end if

	frmMain_onSubmit = true

end function

</SCRIPT>

<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>ASP 雛形</TITLE>
<STYLE>
	.MyHead {
		background-color:silver
	}
	.MyCell {
		background-color:white
	}
</STYLE>
</HEAD>

<!-- *******************************************************
 ドキュメント
******************************************************** -->
<BODY>
<%= ErrMessage %>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.asp
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<INPUT type=submit name=send value="削除">
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TH class=MyHead>商品分類</TH>
<TH class=MyHead>名称</TH>
<TH class=MyHead>削除チェック</TH>
<%= OutData %>
</TABLE>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">

<!-- *******************************************************
 HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>

</BODY>
</HTML>