フレーム問合せ(ASP)

  frame.htm



  
<HTML>
<HEAD>
<TITLE>フレーム問合せ</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=shift_jis">
</HEAD>
<FRAMESET id="TopFrame" rows="70,*">
	<FRAME name="HeadFrame" src="control.asp?view=head">
	<FRAME name="BodyFrame" src="control.asp?view=body">
</FRAMESET>
</HTML>
  



  control.asp



  
<%
' **********************************************************
' 外部ファイル
' **********************************************************
%><!-- #include virtual = "/asp/common.inc" --><%
%><!-- #include virtual = "/asp/dbMySQL.inc" --><%
%><!-- #include file = "model.inc" --><%

' **********************************************************
' 定数定義
' **********************************************************
Const PASS_MESSAGE = "1"
Const PASS_COND = "2"
Const PASS_LIST = "3"

' **********************************************************
' グローバル変数定義
' **********************************************************
Dim ErrMessage		' エラー処理用
Dim Message			' 通常メッセージ用
Dim InData			' フレーム間引継ぎ埋め込み用
Dim OptionList		' コンボボックス埋め込み用
Dim OutData			' 結果表示埋め込み用
Dim Cn,Rs			' データベース用

if MyData( "In1Cond" ) <> "" then
	Call SetCookie( "In1Cond", MyData( "In1Cond" ) )
end if
if MyData( "In1Cond2" ) <> "" then
	Call SetCookie( "In1Cond2", MyData( "In1Cond2" ) )
end if

' ------------------------------------------------
' データベース接続
' ------------------------------------------------
Call DBConnect( Cn, "ASPMySQL", "lightbox", "root", "" )

' **********************************************************
' 処理コントロール
' **********************************************************
Select Case Request.ServerVariables( "REQUEST_METHOD" )
	Case "GET","POST"
		Select Case MyData("GNO")
			Case PASS_COND
				Call GetData( )
				if ErrMessage <> "" then
					MyData("GNO") = PASS_MESSAGE
				end if
			Case PASS_LIST
				Call GetData( )
		End Select
End Select

' **********************************************************
' ビュー
' **********************************************************
CreateInData( )
Select Case MyData("GNO")
	Case PASS_MESSAGE
		%><!-- #include file = "viewmessage.inc" --><%

	Case PASS_COND
		Call EditDataBody()
		%><!-- #include file = "view2.inc" --><%

	Case PASS_LIST
		Call EditDataBody()
		%><!-- #include file = "view2.inc" --><%

	Case Else
		if MyData("view") = "head" then
			Call RestoreCookie( )
			Call EditDataHead( )
			%><!-- #include file = "view.inc" --><%
		end if
		if MyData("view") = "body" then
			%><!-- #include file = "viewmessage.inc" --><%
		end if

End Select

' ------------------------------------------------
' データベース接続解除
' ------------------------------------------------
Call DBClose( Cn )
Call DBClose( Rs )

' **********************************************************
' デバッグ用
' **********************************************************
DispData()

%>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ