<SCRIPT language=VBScript>
function SetKey( strKey )
Dim strMeisyo
strMeisyo = document.all.item( "Val" & strKey ).value
' 入力チェック
if strMeisyo = "" then
alert( "必須入力です" )
exit function
end if
' 確認ダイアログ
if not confirm("更新しますか?") then
exit function
end if
' 更新対象行のデータとスクロール位置
document.all("KEY").value = strKey
document.all("MEISYO").value = strMeisyo
document.all("SCROLL_Y").value = document.body.scrollTop
' 更新データ送信用フォームの送信処理実行
frmData.submit()
end function
' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()
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
>
<!-- *******************************************************
画面定義
******************************************************** -->
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TH class=MyHead>商品分類</TH>
<TH class=MyHead>名称</TH>
<TH class=MyHead> </TH>
<%= OutData %>
</TABLE>
<!-- *******************************************************
HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>
<!-- *******************************************************
データ転送用隠しフォーム
******************************************************** -->
<FORM
name=frmData
method=GET
action=control.asp
>
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">
<INPUT type=hidden name=SCROLL_Y>
<INPUT type=hidden name=KEY>
<INPUT type=hidden name=MEISYO>
<%= InData %>
</FORM>
</BODY>
</HTML>
<!-- *******************************************************
ページロード時の初期処理
******************************************************** -->
<SCRIPT FOR=window EVENT=onload LANGUAGE="VBScript">
document.body.scrollTop = <%= MyData("SCROLL_Y") %>
</SCRIPT>
|