<SCRIPT language=VBScript>
' **********************************************************
' フォームのチェック
' **********************************************************
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
}
BODY{
font-family: "ＭＳ ゴシック";
font-size:16px
}
PRE{
font-family: "ＭＳ 明朝";
font-size:16px
}
</STYLE>
</HEAD>
<!-- *******************************************************
ドキュメント
******************************************************** -->
<BODY>
<%= ErrMessage %>
<!-- *******************************************************
フォーム
******************************************************** -->
<FORM
name=frmMain
method=GET
action=control.asp
>
<!-- *******************************************************
画面定義
******************************************************** -->
<PRE>
<%= OutData %>
</PRE>
<!-- *******************************************************
画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">
<!-- *******************************************************
HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>
</BODY>
</HTML>
| 
