<% Option Explicit %> <% ' ==================================================================== ' スーパー実践くん4WebCollabo ' ' HTMLオブジェクト生成関数群 for VBScript ' File Name : objhtml.asp ' --Update Information------------------------------------------------ ' Version : V1.03 ' Developer : Shinichirou Onuma <2005/07/12(Tue)> ' --- 新規作成 ' ==================================================================== %> <% ' -------------------------------------------------------------------- ' 01. HTMLヘッダー宣言 ' -------------------------------------------------------------------- ' 戻り値 ' なし ' 引数 ' p_sWindowName : 画面タイトル ' p_sStyleSheet : スタイルシートファイル名 ' -------------------------------------------------------------------- Sub m_CreateHtmlHeader(p_sWindowName, p_sStyleSheet) ' HTMLヘッダー生成 Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & VbCrLf) Response.Write("" & p_sWindowName & "" & VbCrLf) Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) Response.Write("" & VbCrLf) End Sub ' -------------------------------------------------------------------- ' 02. Javascriptインクルード宣言 ' -------------------------------------------------------------------- ' 戻り値 ' なし ' 引数 ' なし ' -------------------------------------------------------------------- Sub m_ScriptDeclaration() Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) Response.Write(""& VbCrLf) End Sub ' -------------------------------------------------------------------- ' 03. HTMLフッター宣言 ' -------------------------------------------------------------------- ' 戻り値 ' なし ' 引数 ' p_sWindowName : 画面タイトル ' p_sStyleSheet : スタイルシートファイル名 ' -------------------------------------------------------------------- Sub m_CreateHtmlFooter() ' HTMLフッター生成 Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) End Sub %>