フレーム問合せ

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.cgi?view=head">
	<FRAME name="BodyFrame" src="control.cgi?view=body">
</FRAMESET>
</HTML>

control.cgi

#!/usr/local/bin/perl
# **********************************************************
# 外部ファイル
# **********************************************************
require 'common.pl';
require 'model.pl';

# **********************************************************
# 拡張
# **********************************************************
use Switch;

# **********************************************************
# 定数扱いの変数定義
# **********************************************************
$PASS_MESSAGE = 1;
$PASS_COND = 2;
$PASS_LIST = 3;

$VIEW_MESSAGE = 'viewmessage.pl';
$VIEW_COND = 'view.pl';
$VIEW_LIST = 'view2.pl';

#$SQL = new DB( "localhost", "lightbox", "root" );
#$SQL->Debug = FALSE;

# **********************************************************
# 処理コントロール
# **********************************************************
switch( $_POST{'GNO'} ) {
	case ($PASS_COND) {
		GetData( $SQL );
		if ( $ErrMessage ne "" ) {
			$_POST{'GNO'} = $PASS_MESSAGE;
		}
	}
	case ($PASS_LIST) {
		GetData( $SQL );
	}
}


# **********************************************************
# ビュー
# **********************************************************
CreateInData( );
switch( $_POST{'GNO'} ) {
	case ($PASS_MESSAGE) {
		require $VIEW_MESSAGE;
	}

	case ($PASS_COND) {
		EditDataBody();
		require $VIEW_LIST;
	}

	case ($PASS_LIST) {
		EditDataBody();
		require $VIEW_LIST;
	}

	else {
		if ( $_GET{'view'} eq 'head' ) {
			EditDataHead( );
			require $VIEW_COND;
		}
		if ( $_GET{'view'} eq 'body' ) {
			require $VIEW_MESSAGE;
		}
	}
}

# **********************************************************
# デバッグ
# **********************************************************
DispHash( *_POST );

model.pl

# **********************************************************
# SQL文字列作成用
# **********************************************************
sub SetCond {
	local(*Value) = $_[0];

	if ( $Value eq "" ) {
		$Value .= " where ";
	}
	else {
		$Value .= " and ";
	}

}

# **********************************************************
# データベースデータの読出し
# **********************************************************
sub GetData {

}

# **********************************************************
# データベースデータの編集
# **********************************************************
sub EditQueryData {

}

# **********************************************************
# 条件画面の編集
# **********************************************************
sub EditDataHead {

}

# **********************************************************
# 明細画面の編集
# **********************************************************
sub EditDataBody {

}

1;

view.pl

print <<VIEW;
<SCRIPT language=JavaScript>

// *********************************************************
// フォームのチェック
// *********************************************************
function CheckData() {

	return true;
}

</SCRIPT>


<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>ASP 雛形</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>

<FORM
	name=frmMain
	method=GET
	action=control.cgi
	target=BodyFrame
	onSubmit='return CheckData()'
>
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
	<TD class=MyCell>名　称</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1Cond
			value="$_POST{'In1Cond'}"
		>
	</TD>
	<TD class=MyCell>大分類</TD>
	<TD class=MyCell>
		<SELECT 
			name=In1Cond2
		>
		<OPTION value="">
		$OptionList
		</SELECT>
	</TD>
	<TD class=MyCell>
		<INPUT type=submit name=send value="送信">
	</TD>
	<TD class=MyCell>
		<INPUT 
			type=button
			value="Cancel"
			onClick='top.location="frame.htm"'
		>
	</TD>
</TR>
</TABLE>

<INPUT type=hidden name=GNO value="$PASS_COND">
</FORM>

</BODY>
</HTML>
VIEW

1;

view2.pl

print <<VIEW;
<SCRIPT language=JavaScript>

// *********************************************************
// フォームのチェック
// *********************************************************
function CheckData() {

	return true;

}

</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.php
	onSubmit='return CheckData()'
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TH class=MyHead>商品分類</TH>
<TH class=MyHead>名称</TH>
$OutData
</TABLE>

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

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

</BODY>
</HTML>
VIEW

1;

viewmessage.pl

print <<VIEW;
<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>メッセージ表\示専用</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>
<SPAN style='color:blue'>$ErrMessage</SPAN>
<SPAN style='color:black;font-weight:bold'>$Message</SPAN>
</BODY>
</HTML>
VIEW

1;