<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>
<%
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
AA="<a href='http://www.xrss.cn' target='_blank'>http://www.xrss.cn</a>"
Response.Write RemoveHTML(AA)
%>