I フレーム参照

view2.inc

<SCRIPT language=VBScript>

Dim BtnFlg

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()
	
	Dim bRet
	bRet = true
	
	if BtnFlg = 0 then
		if not confirm("更新してもよろしいですか?") then
			bRet = false
		end if
	end if
	
	if BtnFlg = 9 then
		if not confirm("★★★ 削除してもよろしいですか? ★★★") then
			bRet = false
		end if
	end if

	
	frmMain_onSubmit = bRet

end function

' **********************************************************
' フレームを開く
' **********************************************************
function OpenFrame( )

	Dim ObjFrame

	Set ObjFrame = document.all.item( "RefFrame" )
	ObjFrame.style.display = ""

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>
<SPAN style='color:blue'><%= ErrMessage %></SPAN>
<SPAN style='color:black;font-weight:bold'><%= Message %></SPAN>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.asp
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<INPUT type=submit name=send value="更新" onClick='BtnFlg=0'>
<INPUT type=reset value="リセット">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT
	type=submit
	name=send
	value="削除"
	style='color:red;font-weight:bold'
	onClick='BtnFlg=9'
>
<br><br>

<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
<TD class=MyHead>名称</TD>
<TD class=MyHead>
	<INPUT
		type=text
		name=In2Name
		value="<%= MyData("In2Name") %>"
		maxlength=25
		size=70
	>
</TD>
</TR><TR>
<TD class=MyHead>フリガナ</TD>
<TD class=MyHead>
	<INPUT
		type=text
		name=In2Fname
		value="<%= MyData("In2Fname") %>"
		maxlength=25
		size=70
	>
</TD>
</TR><TR>
<TD class=MyHead>在庫評価単価</TD>
<TD class=MyHead>
	<INPUT
		type=text
		name=In2Ztanka
		value="<%= MyData("In2Ztanka") %>"
		size=10
		maxlength=10
		size=70
	>
</TD>
</TR><TR>
<TD class=MyHead>販売単価</TD>
<TD class=MyHead>
	<INPUT
		type=text
		name=In2Htanka
		value="<%= MyData("In2Htanka") %>"
		size=10
		maxlength=10
		size=70
	>
</TD>
</TR><TR>
<TD class=MyHead>商品分類</TD>
<TD class=MyHead>
	<INPUT
		type=text
		name=In2SbunName
		value="<%= MyData("In2SbunName") %>"
		size=20
		readonly
		style='background-color:silver'
	>
	<INPUT
		type=hidden
		name=In2Sbun
		value="<%= MyData("In2Sbun") %>"
		size=5
	>
	<INPUT
		type=button
		name=RefButton
		value="参照"
		onClick='Call OpenFrame()'
	>
</TD>
</TR><TR>
<TD class=MyHead>商品区分</TD>
<TD class=MyHead>
	<SELECT
		name=In2Skubun
	>
	<%= OptionList %>
	</SELECT>
</TD>
</TR>
</TABLE>

<IFRAME
	id=RefFrame
	style='
		display:none;
		position:absolute;
		top:40;
		left:350;
		width:400;
		height:300;
		border-style=ridge'
	src='../REF/frame.htm'
></IFRAME>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">

<!-- *******************************************************
 HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>

</BODY>
</HTML>