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