过滤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

　　

posted @ 2013-08-26 15:43  晴耕雨读-li  阅读(116)  评论(0)  编辑  收藏  举报