|
<SCRIPT language="VBScript">
' *********************************************************
' ローカルスクリプトのグローバル変数
' *********************************************************
Dim Ie
' *********************************************************
' ローカルスクリプトのグローバル定数
' *********************************************************
Const OLECMDID_PRINTPREVIEW = 7
Const OLECMDEXECOPT_DODEFAULT = 0
' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()
frmMain_onSubmit = true
end function
' **********************************************************
' フィールドのクリア
' **********************************************************
function ClearField()
document.all("In1001").value = ""
end function
' **********************************************************
' 印刷プレビュー
' **********************************************************
function PrintPreview()
if not IsObject( Ie ) then
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = False
end if
Ie.Navigate(parent.BodyFrame.location)
if Ie.Busy then
Call window.setTimeout("Call Preview()", 100, "VBScript")
else
Call Ie.ExecWB( OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT )
end if
end function
function Preview()
if Ie.Busy then
Call window.setTimeout("Call Preview()", 100, "VBScript")
else
Call Ie.ExecWB( OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT )
end if
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>
<FORM
name=frmMain
method=GET
action=control.php
target=BodyFrame
>
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
<!-- *******************************************************
入力
******************************************************** -->
<TD class=MyCell>名 称</TD>
<TD class=MyCell>
<INPUT
type=text
name=In1001
value="<?= $_POST['In1001'] ?>"
>
</TD>
<!-- *******************************************************
送信ボタン
******************************************************** -->
<TD class=MyCell>
<INPUT type=submit name=send value="送信">
</TD>
<!-- *******************************************************
クリアボタン
******************************************************** -->
<TD class=MyCell>
<INPUT
type=button
value="クリア"
onClick='ClearField()'
>
</TD>
<!-- *******************************************************
画面初期化ボタン
******************************************************** -->
<TD class=MyCell>
<INPUT
type=button
value="Cancel"
onClick='top.location="frame.htm"'
>
</TD>
<!-- *******************************************************
印刷プレビューボタン
******************************************************** -->
<TD class=MyCell>
<INPUT
type=button
value="印刷プレビュー"
onClick='Call PrintPreview()'
>
</TD>
</TR>
</TABLE>
<!-- *******************************************************
画面ID
******************************************************** -->
<INPUT type=hidden name=GNO value="<?= PASS_HEAD ?>">
</FORM>
</BODY>
</HTML>
| |