晕。过滤这样的字符怎么写正则？

[bnabinge]

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />我要过滤 这类型的全部代码
怎么写正则？

[文盲老顾]

Function RegReplace(vStr,vReg,vCode)
	Dim Re,sStr
	sStr = vStr
	Set Re = New RegExp
	Re.Pattern = vReg
	Re.IgnoreCase = True
	Re.Global = True
	If Re.Test(sStr) Then
		sStr = Re.Replace(sStr,vCode)
	End If
	RegReplace = sStr
End Function

问题是我没看明白你要把什么过滤掉

[tikecoke]

为什么我看不到２楼的回复？

[tikecoke]

登入了看不到，上面写着要登入才能看，回贴了才看到。晕啊····

[bnabinge]

还有 <o:p></o:p> 标签。我用下面的正则怎么过滤不了。
哪时错了啊
Function LoseOPTag(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<(\/){0,1}o:p[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseOPTag= ClsTempLoseStr
Set regEx = Nothing
End Function

[yan11cn]

以下代码测试通过：

<%
dim str,reg
set reg = New RegExp
 reg.Global=true
 reg.Pattern="(<\?xml.*?\/>)"
 reg.IgnoreCase = false
str="<?xml:namespace prefix = o ns = ""urn:schemas-microsoft-com:office:office"" />哈哈<?xml:namespace prefix = o ns = ""urn:schemas-microsoft-com:office:office"" />"
str=trim(str)
do while reg.Execute(str).count <> 0
str=reg.Replace(str,"")
loop
response.write(str)
%>

[bnabinge]

呵呵。你的代码。给我了我写了第二个的过滤。呵呵。