asp之Html2Ubb函数
|
admin
2010年3月6日 12:15
本文热度 7907
|
function html2ubb(str)
if str<>"" and not isnull(str) then
dim re
set re=new regexp
re.ignorecase =true
re.global=true
re.pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)=""[^""]+"")"
str = re.replace(str, "")
re.pattern="((name|id|class)=""[^""]+"")"
str = re.replace(str, "")
re.pattern = "(]*?>([\w\w]*?)<\/s+cript>)"
str = re.replace(str, "")
re.pattern = "(