過濾掉危險的HTML標記:script,ifame,object
更新時間:2007年01月18日 00:00:00 作者:
對于提交的HTML代碼,如果含有script,iframe,frameset等標記,對網站本身會構成一定的潛在威脅,使用下面的函數(shù)可以過濾掉指定的HTML標記。
注:
1.對于單標記(如:<hr />,<br />等),因其對網站本身不會構成威脅,故未將單標記納過過濾范圍。
2.參數(shù)strHTML:待過濾處理的HTML代碼內容
3.參數(shù)strTAGs:為待過濾掉的HTML標記名,各標記名以英文逗號( , )為間隔
'Example
Dim sPageCont
sPageCont= "...網頁正文內容..."
sPageCont=FilterBadHTML(sPageCont,"script,iframe,object,table")
%>
注:
1.對于單標記(如:<hr />,<br />等),因其對網站本身不會構成威脅,故未將單標記納過過濾范圍。
2.參數(shù)strHTML:待過濾處理的HTML代碼內容
3.參數(shù)strTAGs:為待過濾掉的HTML標記名,各標記名以英文逗號( , )為間隔
復制代碼 代碼如下:
<%
'Wrtten by i{At}CnLei.Com
Function lFilterBadHTML(byval strHTML,byval strTAGs)
Dim objRegExp,strOutput
Dim arrTAG,i
arrTAG=Split(strTAGs,",")
Set objRegExp = New Regexp
strOutput=strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
For i=0 to UBound(arrTAG)
objRegExp.Pattern = "<"&arrTAG(i)&"[\s\S]+</"&arrTAG(i)&"*>"
strOutput = objRegExp.Replace(strOutput, "")
Next
Set objRegExp = Nothing
lFilterBadHTML = strOutput
End Function
'Wrtten by i{At}CnLei.Com
Function lFilterBadHTML(byval strHTML,byval strTAGs)
Dim objRegExp,strOutput
Dim arrTAG,i
arrTAG=Split(strTAGs,",")
Set objRegExp = New Regexp
strOutput=strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
For i=0 to UBound(arrTAG)
objRegExp.Pattern = "<"&arrTAG(i)&"[\s\S]+</"&arrTAG(i)&"*>"
strOutput = objRegExp.Replace(strOutput, "")
Next
Set objRegExp = Nothing
lFilterBadHTML = strOutput
End Function
'Example
Dim sPageCont
sPageCont= "...網頁正文內容..."
sPageCont=FilterBadHTML(sPageCont,"script,iframe,object,table")
%>
相關文章
檢查上傳圖片是否合法的函數(shù),木馬改后綴名、圖片加惡意代碼均逃不過
很多ASP程序檢查上傳圖片是否合法往往只去檢查文件的后綴,這樣有一個很大的安全隱患,就是如果把ASP文件的后綴名改成.jpg或者.gif上傳,或者圖片里加入惡意代碼再上傳,那也會被程序認為是圖片文件而照傳不誤。假如不懷好意的人上傳個木馬文件進去,雖然是后綴為jpg也許無法直接運行,但確確實實給服務器帶來了很大的安全隱患。2008-03-03JScript中遍歷Request表單參數(shù)集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數(shù)集合的方法,本文以遍歷Request.QueryString集合為例給出了實現(xiàn)代碼,需要的朋友可以參考下2015-03-03