求能屏蔽HTML代码的 asp留言板,我要嵌入到我做的html网站上的。最好给我下载地址,不要有挂马的哈~~

来源:百度知道 编辑:UC知道 时间:2024/05/27 18:58:45
十分感谢~~~

<%
'清除HTML标记
Function stripHTML(htmlStr)
Dim regEx
SET regEx = New Regexp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "<.+?>"
htmlStr = regEx.Replace(htmlStr,"")
htmlStr = Replace(htmlStr, "<","<")
htmlStr = Replace(htmlStr, ">",">")
htmlStr = Replace(htmlStr,chr(10),"")
htmlStr = Replace(htmlStr,chr(13),"")
stripHTML = htmlStr
SET regEx = Nothing
End Function

%>

用这个函数过滤一下留言