<!-- #include virtual="/sj4web/include_top.txt" -->
<%
Option Explicit
%>
<%
' ====================================================================
'	スーパー実践くん4WebCollabo
'
'		HTMLオブジェクト生成関数群 for VBScript
'		File Name	: objhtml.asp

' --Update Information------------------------------------------------
'		Version				: V1.03
'		Developer <Date>	: Shinichirou Onuma <2005/07/12(Tue)>
'							--- 新規作成
' ====================================================================
%>

<%
' --------------------------------------------------------------------
'	01. HTMLヘッダー宣言
' --------------------------------------------------------------------
'	戻り値
'		なし
'	引数
'		p_sWindowName : 画面タイトル
'		p_sStyleSheet : スタイルシートファイル名
' --------------------------------------------------------------------
Sub m_CreateHtmlHeader(p_sWindowName, p_sStyleSheet)
	' HTMLヘッダー生成
	Response.Write("<html>" & VbCrLf)
	Response.Write("<head>" & VbCrLf)
	Response.Write("<meta http-equiv=""author""        content=""" & SQLServer & """>" & VbCrLf)
	Response.Write("<meta http-equiv=""Content-Type""  content=""text/html; charset=" & SYSTEM_CHARSET & """>" & VbCrLf)
	Response.Write("<meta http-equiv=""Pragma""        content=""no-cache"">" & VbCrLf)
	Response.Write("<meta http-equiv=""Cache-Control"" content=""no-cache"">" & VbCrLf)
	Response.Write("<meta http-equiv=""Expire""        content=""-1"">" & VbCrLf)
	Response.Write("<link rel=""stylesheet"" href=""" & p_sStyleSheet & """ type=""text/css"">"  & VbCrLf)
	Response.Write("<title>" & p_sWindowName & "</title>" & VbCrLf)
	Response.Write("<script language=""JScript"" src=""/sj4web/include.js"">             </script>"& VbCrLf)
	Response.Write("<script language=""JScript"" src=""/sj4web/includesj.js"">           </script>"& VbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/include_enc.js"">  </script>"& VbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/includesj_enc.js""></script>"& VbCrLf)
	Response.Write("</head>" & VbCrLf)
End Sub

' --------------------------------------------------------------------
'	02. Javascriptインクルード宣言
' --------------------------------------------------------------------
'	戻り値
'		なし
'	引数
'		なし
' --------------------------------------------------------------------
Sub m_ScriptDeclaration()
	Response.Write("<script language=""JScript"" src=""/sj4web/include.js"">             </script>"& VbCrLf)
	Response.Write("<script language=""JScript"" src=""/sj4web/includesj.js"">           </script>"& VbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/include_enc.js"">  </script>"& VbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/includesj_enc.js""></script>"& VbCrLf)
End Sub

' --------------------------------------------------------------------
'	03. HTMLフッター宣言
' --------------------------------------------------------------------
'	戻り値
'		なし
'	引数
'		p_sWindowName : 画面タイトル
'		p_sStyleSheet : スタイルシートファイル名
' --------------------------------------------------------------------
Sub m_CreateHtmlFooter()
	' HTMLフッター生成
	Response.Write("<SCRIPT LANGUAGE=""JavaScript"">" & VbCrLf)
	Response.Write("function GetKaikeiKaishibi(){return '" & GB_KaikeiKaishibi & "';}" & VbCrLf)
	Response.Write("function GetKaikeiSyuryobi(){return '" & GB_KaikeiSyuryobi & "';}" & vbCrLf)
	Response.Write("</SCRIPT>" & vbCrLf)
	Response.Write("<SCRIPT> " & vbCrLf)
	Response.Write("Init();" & vbCrLf)
	Response.Write("</SCRIPT> " & vbCrLf)
End Sub

%>