过滤textarea

Function UBBFilter(ByVal reString) 
Dim Str:Str=reString 
If Not IsNull(Str) Then 
Str = Replace(Str, "</textarea>", "</textarea>") 
UBBFilter = Str 
End If 
End Function