<%
'替换文本例子
Function ReplaceTest(oldstr,patrn, replStr)
  Dim regEx         ' 建立变量。
  Set regEx = New RegExp ' 建立正则表达式。
  regEx.Pattern = patrn ' 设置模式。
  regEx.IgnoreCase = True ' 设置是否区分大小写。
  ReplaceTest = regEx.Replace(oldstr, replStr) ' 作替换。
End Function
OldString ="<UserInfo><Error></Error><UserID><Value></Value><Error></Error></UserID><UserName><Value></Value><Error></Error></UserName><UserPwd><Value></Value><Error></Error></UserPwd><RoleID><Value></Value><Error></Error></RoleID><qb>ewwew</qb></UserInfo>"
response.write(ReplaceTest(OldString,"<RoleID>.*?</RoleID>", ""))
response.write(ReplaceTest(OldString,"<IMG.*?>", "")) '可以将图片隐藏
%>以上是使用正则表达式的例子,你参考一下!