<SCRIPT language=VBScript>
Dim ButtonFlg
' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()
if ButtonFlg = 1 then
if Trim( document.all("In1CodeNew").value ) = "" then
alert("商品分類を入力して下さい")
document.all("In1CodeNew").focus
frmMain_onSubmit = false
exit function
end if
if Trim( document.all("In1NameNew").value ) = "" then
alert("名称を入力して下さい")
document.all("In1NameNew").focus
frmMain_onSubmit = false
exit function
end if
if not confirm( "新規登録を行いますか?" ) then
frmMain_onSubmit = false
exit function
end if
end if
if ButtonFlg = 2 then
if Trim( document.all("In1CodeUpd").value ) = "" then
alert("商品分類を選択して下さい")
frmMain_onSubmit = false
exit function
end if
if Trim( document.all("In1NameUpd").value ) = "" then
alert("名称を入力して下さい")
document.all("In1NameUpd").focus
frmMain_onSubmit = false
exit function
end if
if not confirm( "修正更新を行いますか?" ) then
frmMain_onSubmit = false
exit function
end if
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>
.MyCell {
background-color:silver
}
</STYLE>
</HEAD>
<BODY>
<FORM
name=frmMain
method=GET
action=control.asp
target=BodyFrame
>
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
<TD class=MyCell rowspan=2>商品分類</TD>
<TD class=MyCell>
<INPUT
type=text
maxlength=3
size=5
name=In1CodeNew
value="<%= MyData("In1CodeNew") %>"
>
</TD>
<TD class=MyCell rowspan=2>名 称</TD>
<TD class=MyCell>
<INPUT
type=text
maxlength=25
size=50
name=In1NameNew
value="<%= MyData("In1NameNew") %>"
>
</TD>
<TD class=MyCell>
<INPUT type=submit name=send value="新規" onClick='ButtonFlg=1'>
</TD>
<TD class=MyCell rowspan=2>
<INPUT
type=button
value="Cancel"
onClick='top.location="frame.htm"'
>
</TD>
</TR>
<TR>
<TD class=MyCell>
<INPUT
type=text
maxlength=3
size=5
readonly
style='background-color:silver'
name=In1CodeUpd
value="<%= MyData("In1CodeUpd") %>"
>
</TD>
<TD class=MyCell>
<INPUT
type=text
maxlength=25
size=50
name=In1NameUpd
value="<%= MyData("In1NameUpd") %>"
>
</TD>
<TD class=MyCell>
<INPUT type=submit name=send value="修正" onClick='ButtonFlg=2'>
</TD>
</TR>
</TABLE>
<INPUT type=hidden name=GNO value="<%= PASS_COND %>">
</FORM>
</BODY>
</HTML>
|