次のようにコードをコピーします：<％
'///***************************************************************************
'一般的なパブリック機能ライブラリファイル名：pubfunction.asp
'*************************************************************** //
constgo_back = "<ahref = 'javascript：history.back（1）'> [前のページに戻る] </a>"
constcloser = "<ahref = 'javascript：self.close（）'>
'// **********************************************************************************************つ
'pubfgdy（テスト、タグ、BH）は、分離器とラベルに従って指定された文字列の指定された値関数を呼び出します。パラメーター：分離された文字列、タグセパレーター、BHラベルをテストします
'****************************************************************************
functionpubfgdy（テスト、タグ、BH）
pubfgdy = ""
iftest <> "" andisnumeric（bh）= truethen
薄暗い
テスト=分割（テスト＆タグ、タグ）
ifbh <ubound（テスト）
pubfgdy =テスト（bh）
endif
それ以外
pubfgdy = ""
exitFunction
endif
エンド機能
'// **********************************************************************************************つ
'pubcodegf（oldtest）コード仕様関数、パラメーター：oldtestオリジナルコンテンツ、Newtest新しいコンテンツ
'****************************************************************************
functionpubcodegf（oldtest）
dimnewtest：newtest = trim（oldtest）
ifisnull（newtest）ornewtest = "" thencode_admin = ""：exitFunction
newtest = cheplage（newtest、 "'"、 "" "）
pubcodegf = newtest
エンド機能
'// **********************************************************************************************つ
'pubcodehtml（oldtest）ブロックHTMLコード関数、パラメーター：Oldtestオリジナルコンテンツ、Newtest新しいコンテンツ
'****************************************************************************
functionpubcodehtml（oldtest）
dimnewtest：newtest = oldtest
ifisnull（newtest）ornewtest = "" thenpubcodehtml = ""：exitFunction
newtest = cheplage（newtest、 "<"、 "<"）
newtest = cheplage（newtest、 ">"、 ">"）
newtest = cheplage（newtest、chr（39）、 "'"）'単一の引用
newtest = leplay（newtest、chr（34）、 ""） 'double Quotes
newtest = cheplage（newtest、chr（32）、 ""） 'スペース
newtest = cheplage（newtest、chr（9）、 ""） 'テーブル