function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<[^<>]+>"
str=re.replace(str,"")
nohtml=str
set re=nothing
end function
调用:
nohtml(rs("LinInfo"))
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<[^<>]+>"
str=re.replace(str,"")
nohtml=str
set re=nothing
end function
调用:
nohtml(rs("LinInfo"))