实现将某个特定符号内的数据替换掉，

比如说将包含在“<”和“>”之间的数据，如字符串“0001<121213123>,<1143242>,<sfefefwfw>,iier...”，

全部替换成一个字符串，如“data”

替换后的结果就成为：0001data,data,data,iier...

<%

´定义一个函数

Function RemoveHTML(strText,repText)

Dim RegExs

Set RegExs = New RegExp

RegExs.Pattern = "<[^>]*>"

RegExs.Global = True

RegEx.IgnoreCase = True ´设置是否区分字符大小写。

RemoveHTML = RegExs.Replace(strText, "("&repText&")")

End Function

str="要替换的字符串" ´定义要替换的字符串

repText="要替换成的字符" ´定义要替换成的字符

ss=RemoveHTML(str,repText) ´调用函数

response.write ss ´输出结果

%>