asp过滤换行、过滤tab及过滤回车函数

过滤掉字符中所有的tab和回车和换行.
通常用于小偷或采集程序,
函数精典实用，收藏必备。

Public Function ReplaceTrim(ByVal strContent)
        On Error Resume Next
        Dim re
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
        strContent = re.Replace(strContent, vbNullString)
        Set re = Nothing
        ReplaceTrim = strContent
        Exit Function
End Function