| 范文 |
巧用asp语言过滤html元素：
'过滤html
'函数名：glhtml
'作 用：过滤html 元素
'参 数：str ---- 要过滤字符
'返回值：没有html 的字符
'**************************************************
public function glhtml(byval str)
if isnull(str) or trim(str) = then
glhtml =
exit function
end if
dim re
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = (<.[^<]*>)
str = re.replace(str, )
re.pattern = (</[^<]*>)
str = re.replace(str, )
set re = nothing
str = replace(str, ', )
str = replace(str, chr(34), )
glhtml = str
end function |