Lightbox Info Board : SQLの窓

フレームマスタメンテのボディ部の呼び出しは以下のようなリンクになれば、そのまま実装されます


../MTN/control.asp?In1Bunrui=キーデータ&GNO=2

具体的には、以下のようになります


' **********************************************************
' データベースデータの編集
' **********************************************************
Function EditQueryData(  )

	OutData = OutData & "<TR>" & vbCrLf

	OutData = OutData & "<TD class=MyCell><A href="""
	OutData = OutData & "../MTN/control.asp?In1Bunrui="
	OutData = OutData & Rs.Fields("商品分類").Value
	OutData = OutData & "&GNO=2"" target=_blank>"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & "</A></TD>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & "</TD>" & vbCrLf

	OutData = OutData & "</TR>" & vbCrLf

End Function

マスタメンテ側の処理

更新が正常終了した後に以下の処理を実行します


Call OutCr( "<SCRIPT language=VBSCript>" )
Call OutCr( "Call top.opener.window.location.reload(true)" )
Call OutCr( "Call top.window.close()" )
Call OutCr( "</SCRIPT>" )
Response.End

新規

リンクボタンを使用して、フレームマスタメンテページそのものを呼び出します


<A id=A01 href="../MTN/frame.htm" target=_blank>
<INPUT
	type=button
	value="新規"
	onClick='Call document.all("A01").click()'
></A>

※ window.open を使用する方法のほうが優れていますが、Windows XP SP2 では、
意図した動きを実現できない可能性があります

表示後のウインドウ位置・サイズの調整

修正・削除の場合は、呼び出しである事をパラメータで渡し、それに応じてページロード時のイベントで処理します


../MTN/control.asp?In1Bunrui=キーデータ&GNO=2&mode=ref


<% if MyData("mode" ) = "ref" then %>
<SCRIPT for=window event=onload language="VBScript">

	Call window.focus()
	Call top.moveTo( screen.width / 2, 0 )
	Call top.resizeTo( screen.width / 2, screen.height - 32 )

</SCRIPT>
<% end if %>

これは表に出ないデータなので、埋め込みにせずにページに書き込んだほうが良いと思います。あるいは、
クライアント側でロケーションデータを解析して操作する方法もあります


../MTN/control.asp?In1Bunrui=キーデータ&GNO=2#1


<SCRIPT for=window event=onload language="VBScript">

	if top.location.hash = "#1" then
		Call window.focus()
		Call top.moveTo( screen.width / 2, 0 )
		Call top.resizeTo( screen.width / 2, screen.height - 32 )
	end if

</SCRIPT>