<!-- #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
%>