
#●
#---------------------------------------------------------------------------------------
# 名称     | Html_head
# Version  | 1.00
# 処理名   | 画面出力用ヘッダ
# 動作内容 | 
# 引数     | なし
# 戻り値   | なし
#
sub Html_head {

	$title_bar =~ s/\n//g;

	print "Content-type: text/html\n\n";

	print <<"EOF";
	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
	<HTML><HEAD>
	<TITLE>$title_bar</TITLE>
	<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
	<meta name="description" content="$title_bar">
	<SCRIPT language="JavaScript">
	<!--
	function PageBack(){ history.back(); }
	function message()
	{
		f = confirm("クリアします. よろしいですか？");
		return f
	}
	//-->
	</SCRIPT>
	</HEAD>
EOF

}#End_of_Html_head

