ASP常用函数:ReplaceHTML
程序员文章站
2023-12-04 18:16:10
<% '去掉html标记 public function replacehtml(textstr)  ...
<%
'去掉html标记
public function replacehtml(textstr)
dim str, re
str = textstr
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = "<(.[^>]*)>"
str = re.replace(str, "")
set re = nothing
replacehtml = str
end function
%>
'去掉html标记
public function replacehtml(textstr)
dim str, re
str = textstr
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = "<(.[^>]*)>"
str = re.replace(str, "")
set re = nothing
replacehtml = str
end function
%>