html.asp

来自「百度搜索作弊系统 看了你就知道啦」· ASP 代码 · 共 16 行

<%
Function filtscript(strHTML) 
Dim objRegExp, strOutput 
Set objRegExp = New Regexp 
strOutput=strHTML 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
objRegExp.Pattern = "<[^>]*>" 
strOutput = objRegExp.Replace(strOutput, "") 
objRegExp.Pattern = "<\/[^>]*>" 
strOutput = objRegExp.Replace(strOutput, "") 
strOutput = replace(strOutput, "javascript:", "javascript :") 
filtscript = strOutput 
Set objRegExp = Nothing 
End Function 
%>