ASP过滤特殊字符

最新推荐文章于 2021-06-07 12:25:29 发布

小鸿叔

最新推荐文章于 2021-06-07 12:25:29 发布

阅读量5.7k

点赞数

分类专栏： ASP 文章标签： asp function

本文链接：https://blog.youkuaiyun.com/jyh_jack/article/details/1953857

版权

ASP 专栏收录该内容

36 篇文章

订阅专栏

<%
Function FormatHTML(fString)
 If fString <> "" Then
 fString = trim (fString)
 fString = replace (fString, " ; " , " ； " ) ' 分号过滤
 fString = replace (fString, " -- " , " —— " ) ' --过滤
 fString = replace (fString, " %20 " , "" ) ' 特殊字符过滤
 fString = replace (fString, " == " , "" ) ' ==过滤
 fString = replace (fString, " > " , " > " )
 fString = replace (fString, " < " , " < " )
 fString = Replace (fString, CHR ( 32 ), " " ) '  
 fString = Replace (fString, CHR ( 9 ), " " ) '  
 fString = Replace (fString, CHR ( 34 ), " " " )
 fString = Replace (fString, CHR ( 39 ), " ' " ) ' 单引号过滤
 fString = Replace (fString, CHR ( 13 ), "" )
 fString = Replace (fString, CHR ( 10 ) & CHR ( 10 ), " " )
 fString = Replace (fString, CHR ( 10 ), " " )
 FormatHTML = fString
 End If
End Function
%>