asp函数html:asp去掉Html代码函数

来源: 发布时间:星期四, 2008年9月25日浏览:612次评论:0

<%
FunctionRemoveHTML(strText)
DimRegEx
SetRegEx=NewRegExp
RegEx.Pattern=\"<[^>]*>\"
RegEx.Global=True
RemoveHTML=RegEx.Replace(strText,\"\")
EndFunction

AA=\"<ahref=’http://www.xrss.cn’target=’_blank’>http://www.xrss.cn</a>\"
Response.WriteRemoveHTML(AA)
%>