<%
str="<span style='font-size: 9pt; font-family: 宋体'>中国aaaaaaaaaaaaaaaaaaa深山   qwbm.com</span>"

Function ReplaceTest(patrn,str,replStr)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str, replStr) ' 作替换。
End Function
   
response.Write replacetest ("(<span.+?>)(.+?)(<\/span>)",str,"$15555555$3")
%>