[修正版]asp vbs 删除所有日文

'把所有日文删除
'柳永法修正版

Function filteJapanese(sStr)
    Dim oRegExp
    Set oRegExp = New RegExp
    oRegExp.Global = True
    oRegExp.Pattern = "[\u3040-\u309F\u30A0-\u30FF]"
    filteJapanese = oRegExp.Replace(sStr, "")
    Set oRegExp = Nothing
End Function

这个函数其实在网上是有的，并且被疯狂的转载，所有我找到了，但发现一个问题就是：

他原来的正则里面是这么写的 "[\u3040-\u309F|\u30A0-\u30FF]" 比我现在的多了一个“|”然而，他的是错的，我的是对的，大家可以试一下他的那个函数，他会把文章内的所有“|”也替换成空。