<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<%
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<.*?>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"")
Set re=Nothing
RemoveHTML=str
End Function
Dim contenstr
contenstr="<a href=http://www.2yue.com.cn title=二月小说网>二月小说网<b>欢迎您</b>！欢迎来看小说，呵呵！ "
contenstr=RemoveHTML(contenstr)
response.write("移除html标签后：" & contenstr)
%>
</body>
</html>