'------------------------------------------------ - -------------------------
'機能: HTML コードをシールドする
'パラメータ: StrInput ユーザー入力情報
'------------------------------------------------ - -------------------------
関数 FunInput(StrInput)
isnull(Str) でない場合は、
StrInput=RePlace(StrInput,<,<)
StrInput=replace(StrInput,>,>)
StrinPut=replace(Strinput,chr(32), )
stringinput=replace(strinput,chr(34),)
stringinput=replace(strinput,chr(39),')
stringinput=replace(strinput,chr(13),)
FunInput=文字列
終了する場合
終了関数
'------------------------------------------------ - -------------------------
'機能: SQL インジェクションの防止
'パラメータ: StrValue ユーザーが送信したデータ
'BloType データ型
'パラメータ値: 真の数値データ
' 偽の文字データ
'------------------------------------------------ - -------------------------
関数 FunSQL(StrValue,BloType)
BloTypeの場合
Isnumeric(StrValue) の場合
FunSQL=clng(StrValue)
それ以外
StrValue=0
終了する場合
それ以外
isnull(StrValue) でない場合は、
StrValue=lcase(StrValue)
StrValue=Replace(StrValue,','')
StrValue=replace(StrValue,select,)
StrValue=replace(StrValue,更新,)
StrValue=replace(StrValue,挿入,)
StrValue=replace(StrValue,削除,)
StrValue=replace(StrValue,;,)
StrValue=replace(StrValue, ,)
StrValue=replace(StrValue,chr(255),)
StrValue=replace(StrValue,*,)
StrValue=replace(StrValue,%,)
終了する場合
終了する場合
FunSQL=StrValue
終了関数
'------------------------------------------------ - ------------------------
'機能：共通型変換
' パラメータ: _Type データ型
' _値のデータ
'パラメータ値: _Type 1: 数値データに変換
' _Type 2: 文字データに変換
' _Type 3: ブール値データに変換
'------------------------------------------------ - ------------------------
関数 FunSwitch(値_,タイプ_)
エラー時は次から再開
ケースタイプを選択_
ケース1
isnumeric(Value_) の場合
isnull(Value_) でない場合は、
FunSwitch=clng(Value_)
それ以外
楽しいスイッチ=0
終了する場合
それ以外
楽しいスイッチ=0
終了する場合
ケース2
isnull(Value_) でない場合は、
FunSwitch=cstr(値_)
それ以外
ファンスイッチ=
終了する場合
ケース3
isnull(Value_) および isnumeric(Value_) でない場合は、
FunSwitch=cbool(Value_)
それ以外
FunSwitch=false
終了する場合
それ以外の場合
response.redirect(Error.asp?err=FunSwitch で転送するデータ型を指定してください!)
エンドセレクト
err.number<>0 の場合
response.redirect(Error.asp?err=データ変換中に不明なエラーが発生しました!)
エラークリア
終了する場合
終了関数
''---------------------------------------------- -----------------------
' 機能: データが外部から来たものであるかどうかを検証する
' パラメータ: なし
'------------------------------------------------ - -------------------------
関数 checkfrom()
server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Request.ServerVariables(SERVER_NAME))
if Mid(server_v1,8,len(server_v2))<>server_v2 then
チェックフロム = true
それ以外
チェックフロム = false
終了する場合
終了関数
''---------------------------------------------- -----------------------
'機能: JS プロンプト ボックス
' パラメータ: StrURL: [OK] をクリックした後に戻るページのアドレス
'StrMSG: ダイアログ ボックスのプロンプト情報
'------------------------------------------------ - -------------------------
関数 FunMsg(StrURL,StrMSG)
Response.write <script language='javascript'>&_
Vbcrlf&alert(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
Vbcrlf&</script>
終了機能
'------------------------------------------------ - ------------------------
'機能: ユニバーサル ページング
'パラメータ: Intpagecount 総ページ数
'Intmypage 現在のページ番号
'Intrecordcount レコードの合計数
'Intpagesize 各ページに表示されるレコードの数
'------------------------------------------------ - ------------------------
関数 funpage(Intpagecount,Intmypage,Intrecordcount,Intpagesize)
'エラー時は次から再開
dim Intfor、Intlist、intlist_b
ディムクエリ、a、x、temp
アクション = http:// & Request.ServerVariables(HTTP_HOST) & Request.ServerVariables(SCRIPT_NAME)
query = Split(Request.ServerVariables(QUERY_STRING), &)
クエリ内の各 x について
a = 分割(x, =)
If StrComp(a(0), page, vbTextCompare) <> 0 then
温度 = 温度 & a(0) & = & a(1) & &
終了の場合
次
intmypage>1 の場合
funpage=funpage & <a href='&action&?&temp&page=1' title='トップページ' class='no'><font face='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='前のページ' class='no'><font face='Webdings'>7</font></a>
それ以外
funpage=funpage &<font face='Webdings'>9</font>
funpage=funpage&<font face='Webdings'>7</font>
終了する場合
Intlist<>0 の場合、
cintmypage= Intlist の場合、
Intlist=Intlist+5
終了する場合
それ以外
Intlist=Intmypage+5
終了する場合
intlist-9<1 の場合、
intlist_b=1
それ以外
intlist_b=intlist-9
終了する場合
for Intfor=intlist_b to Intlist
intfor<=Intpagecount の場合、
if intfor=Intmypage then '------現在のページのテキストを赤色にし、クリックできないようにします
funpage =funpage & strMode& <font color='#FF0000'><b>& Intfor & </b></font>
それ以外
funpage=funpage & strMode & <a href='&action&?&temp&page= & Intfor &' class='no'> & Intfor & </a>
終了する場合
終了する場合
strMode= <font color='#BBBBBB'>|</font>
次
if intmypage<intpagecount then
funpage=funpage& <a href='&action&?&temp&page=& Intmypage+1 &' title='次のページ' class='no'><font face='Webdings'>8</font></a>
funpage=funpage &<a href='&action&?&temp&page=& Intpagecount & ' title='最後のページ' class='no'><font face='Webdings'>:</font></a>
それ以外
funpage=funpage& <font face='Webdings'>8</font>
funpage=funpage &<font face='Webdings'>:</font></a>
終了する場合
funpage=<テーブル幅='100%' border='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> 現在の &Intmypage& ページ&Intpagesize& レコード/ページ合計 &Intpagecount& ページ/&Intrecordcount& レコード</td>&_
vbcrlf&<td width='60%' align='right'>&_
vbcrlf&<テーブル幅='360' ボーダー='0' セルスペース='0' セルパディング='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</table>
err.number<>0 の場合
エラークリア
response.redirect(error.asp?err=ページング機能でエラーが発生しました。管理者に連絡してください!|)
終了する場合
終了関数
'************************************************ * *
'関数名：ハイライト
'機能: 検索されたキーワードが強調表示されます。
'パラメータ strText は、強調表示する文字列または変数を含む文字列または変数です。
'strFind は強調表示される文字列または変数です。
'strBefore強調表示された HTML コードの接頭辞は次のとおりです: <font color=red>
'strAfter強調表示された HTML コードのサフィックス:</font>
'************************************************ * ***
関数ハイライト(strText、strFind、strBefore、strAfter)
ディムポス
ディムンレン
Dim nLenAll
nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
ハイライト = strText
nLen > 0 かつ Len(ハイライト) > 0 の場合
nPos = InStr(1, ハイライト, strFind, 1)
nPos > 0 の間実行
ハイライト = 左(ハイライト, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter & _
Mid(ハイライト、nPos + nLen)
nPos = InStr(nPos + nLenAll, ハイライト, strFind, 1)
ループ
終了の場合
終了関数