ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码

1. '================================================  
2. '函数名：ReplaceTrim  
3. '作  用：过滤掉字符中所有的tab和回车和换行  
4. '================================================  
5.     Public Function ReplaceTrim(ByVal strContent)  
6.         On Error Resume Next  
7.         Dim re  
8.         Set re = New RegExp  
9.         re.IgnoreCase = True  
10.         re.Global = True  
11.         re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"  
12.         strContent = re.Replace(strContent, vbNullString)  
13.         Set re = Nothing  
14.         ReplaceTrim = strContent  
15.         Exit Function  
16.     End Function