ASP を作成するときは、ハッカーによる使用を防ぐために特殊な文字列の処理に注意を払う必要があります。 aspを使っている友達はぜひ参考にしてください。
次のようにコードをコピーします。
'=====================================
'事故を防ぐためにコンテンツを変換する
'=====================================
関数 Content_Encode(ByVal t0)
ISNull(t0) または Len(t0)=0 の場合
Content_Encode=""
それ以外
Content_Encode=Replace(t0,"<","<")
Content_Encode=Replace(Content_Encode,">",">")
終了IF
終了機能
'======================================
'コンテンツの変換を解除する
'======================================
関数 Content_Decode(ByVal t0)
ISNull(t0) または Len(t0)=0 の場合
Content_Decode=""
それ以外
Content_Decode=Replace(t0,"<","<")
Content_Decode=Replace(Content_Decode,">",">")
終了IF
終了機能
'======================================
'文字をフィルタリングする
'======================================
関数 FilterText(ByVal t0,ByVal t1)
IF Len(t0)=0 または IsNull(t0) または IsArray(t0) then FilterText="":Exit 関数
t0=トリム(t0)
ケース t1 を選択してください
ケース「1」
t0=置換(t0,Chr(32)," ")
t0=置換(t0,Chr(13),"")
t0=置換(t0,Chr(10)&Chr(10),"<br>")
t0=置換(t0,Chr(10),"<br>")
ケース「2」
t0=Replace(t0,Chr(8),"")'return
t0=Replace(t0,Chr(9),"")'tab (水平タブ文字)
t0=Replace(t0,Chr(10),"")'改行
t0=Replace(t0,Chr(11),"")'tab (垂直タブ文字)
t0=Replace(t0,Chr(12),"")'ページ変更
t0=Replace(t0,Chr(13),"")' キャリッジリターン chr(13)&chr(10) キャリッジリターンとラインフィードの組み合わせ
t0=置換(t0,Chr(22),"")
t0=Replace(t0,Chr(32),"")'SPACE
t0=置換(t0,Chr(33),"")'!
t0=置換(t0,Chr(34),"")'"
t0=置換(t0,Chr(35),"")'#
t0=置換(t0,Chr(36),"")'$
t0=置換(t0,Chr(37),"")'%
t0=置換(t0,Chr(38),"")'&
t0=置換(t0,Chr(39),"")''
t0=置換(t0,Chr(40),"")'(
t0=置換(t0,Chr(41),"")')
t0=置換(t0,Chr(42),"")'*
t0=置換(t0,Chr(43),"")'+
t0=置換(t0,Chr(44),"")',
t0=置換(t0,Chr(45),"")'-
t0=置換(t0,Chr(46),"")'。
t0=置換(t0,Chr(47),"")'/
t0=置換(t0,Chr(58),"")':
t0=置換(t0,Chr(59),"")';
t0=置換(t0,Chr(60),"")'<
t0=置換(t0,Chr(61),"")'=
t0=置換(t0,Chr(62),"")'>
t0=置換(t0,Chr(63),"")'?
t0=置換(t0,Chr(64),"")'@
t0=置換(t0,Chr(91),"")'/
t0=置換(t0,Chr(92),"")'/
t0=置換(t0,Chr(93),"")']
t0=置換(t0,Chr(94),"")'^
t0=置換(t0,Chr(95),"")'_
t0=置換(t0,Chr(96),"")''
t0=置換(t0,Chr(123),"")'{
t0=置換(t0,Chr(124),"")'|
t0=置換(t0,Chr(125),"")'}
t0=置換(t0,Chr(126),"")'~
それ以外の場合
t0=置換(t0, "&", "&")
t0=置換(t0, "'", "'")
t0=置換(t0, """", """)
t0=置換(t0, "<", "<")
t0=置換(t0, ">", ">")
エンドセレクト
IF Instr(Lcase(t0),"式")>0 then
t0=置換(t0,"式","式", 1, -1, 0)
終了の場合
フィルターテキスト=t0
終了機能
'======================================
'一般的な文字とHTMLをフィルタリングする
'======================================
関数 FilterHtml(ByVal t0)
IF Len(t0)=0 または IsNull(t0) または IsArray(t0) then FilterHtml="":Exit 関数
IF Len(Sdcms_Badhtml)>0 then t0=ReplaceText(t0,"<(//|)("&Sdcms_Badhtml&")", "<$1$2")
IF Len(Sdcms_BadEvent)>0 then t0=ReplaceText(t0,"<(.[^>]*)("&Sdcms_BadEvent&")", "<$1$2")
t0=フィルターテキスト(t0,0)
FilterHtml=t0
終了機能
関数 GotTopic(ByVal t0,ByVal t1)
Len(t0)=0 または IsNull(t0) の場合
GotTopic=""
終了関数
終了IF
薄暗い l、t、c、i
t0=Replace(Replace(Replace(t0," "," "),"",chr(34)),">",">"),"<","<")
l=長さ(t0)
t=0
I=1 ～ l の場合
c=Abs(Asc(Mid(t0,i,1)))
IF c>255 then t=t+2 Else t=t+1
IF t>=t1 の場合
gotTopic=Left(t0,I)&"…"
出口
それ以外
GotTopic=t0
終了IF
次
GotTopic=Replace(Replace(Replace(GotTopic," "," "),chr(34),""),">",">"),"<","<")
終了機能
関数 URLDecode(ByVal t0)
ディム t1、t2、t3、i、t4、t5、t6
t1=""
t2=偽
t3=""
I=1 の場合 Len(t0)
t4=中間(t0,I,1)
IF t4="+" 次に
t1=t1&" "
ElseIF t4="%" then
t5=中間(t0,i+1,2)
t6=Cint("&H" & t5)
IF t2 その後
t2=偽
t1=t1&Chr(Cint("&H"&t3&t5))
それ以外
IF Abs(t6)<=127 then
t1=t1&Chr(t6)
それ以外
t2=真
t3=t5
終了IF
終了IF
I=I+2
それ以外
t1=t1&t4
終了IF
次
URLデコード=t1
終了機能
関数 CutStr(byVal t0,byVal t1)
薄暗い l、t、c、i
IF IsNull(t0) then CutStr="":関数の終了
l=長さ(t0)
t1=Int(t1)
t=0
I=1 ～ l の場合
c=Asc(Mid(t0,I,1))
IF c<0 または c>255 then t=t+2 Else t=t+1
IF t>=t1 の場合
CutStr=Left(t0,I)&"..."
出口
それ以外
カットストラ=t0
終了IF
次
終了機能
関数 CloseHtml(ByVal t0)
ディム t1,I,t2,t3,Regs,Matches,J,Match
Regs=New RegExp を設定します
Regs.IgnoreCase=True
Regs.Global=True
t1=Array("p","div","span","table","ul","font","b","u","i","h1","h2","h3 "、"h4"、"h5"、"h6")
I=0 から UBound(t1) の場合
t2=0
t3=0
Regs.Pattern="/<"&t1(I)&"( [^/</>]+|)/>"
Set Matches=Regs.Execute(t0)
試合中の各試合について
t2=t2+1
次
Regs.Pattern="/</"&t1(I)&"/>"
Set Matches=Regs.Execute(t0)
試合中の各試合について
t3=t3+1
次
j=1 の場合 t2-t3 まで
t0=t0+"</"&t1(I)&">"
次
次
閉じるHTML=t0
終了機能