<SCRIPT language="VbScript" src="fs.vbs"></SCRIPT>
<SCRIPT language="VbScript" src="excel.vbs"></SCRIPT>
<SCRIPT language="VbScript" src="client.vbs"></SCRIPT>
<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>PHP 雛形</TITLE>
<STYLE>
.MyCell {
background-color:silver
}
</STYLE>
</HEAD>
<!-- *******************************************************
ドキュメントオブジェクト
******************************************************** -->
<BODY>
<SPAN style='color:blue'><?= $ErrMessage ?></SPAN>
<SPAN style='color:black;font-weight:bold'><?= $Message ?></SPAN>
<!-- *******************************************************
フォーム
******************************************************** -->
<FORM
name=frmMain
method=GET
action=control.php
>
<!-- *******************************************************
画面定義
******************************************************** -->
<TABLE>
<TR>
<TD valign=top>3)</TD>
<TD>
<INPUT type=button value="実行" onClick='Call ExcelOut()'>
</TD>
</TR>
</TABLE>
<TABLE id=data border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TH class=MyCell>商品分類</TH>
<TH class=MyCell>名称</TH>
<?= $OutData ?>
</TABLE>
<!-- *******************************************************
画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<?= PASS_BODY ?>">
<!-- *******************************************************
HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<?= $InData ?>
</FORM>
</BODY>
</HTML>
|