FpHtmlEnCode 函数之标题过滤特殊符号的代码

软件发布|下载排行|最新软件

当前位置:首页IT学院IT技术

FpHtmlEnCode 函数之标题过滤特殊符号的代码

  2021-03-18 我要评论
想了解FpHtmlEnCode 函数之标题过滤特殊符号的代码的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:FpHtmlEnCode,函数之标题过滤特殊符号的代码,下面大家一起来学习吧。
'==================================================
'函数名:FpHtmlEnCode
'作  用:标题过滤
'参  数:fString ------字符串
'==================================================
Function FpHtmlEnCode(fString)
   If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then
       fString=nohtml(fString)
       fString=FilterJS(fString)
       fString = Replace(fString," "," ")
       fString = Replace(fString,""","")
       fString = Replace(fString,"'","")
       fString = replace(fString, ">", "")
       fString = replace(fString, "<", "")
       fString = Replace(fString, CHR(9), " ")' 
       fString = Replace(fString, CHR(10), "")
       fString = Replace(fString, CHR(13), "")
       fString = Replace(fString, CHR(34), "")
       fString = Replace(fString, CHR(32), " ")'space
       fString = Replace(fString, CHR(39), "")
       fString = Replace(fString, CHR(10) & CHR(10),"")
       fString = Replace(fString, CHR(10)&CHR(13), "")
       fString=Trim(fString)
       FpHtmlEnCode=fString
   Else
       FpHtmlEnCode="$False$"
   End If
End Function

Copyright 2022 版权所有 软件发布 访问手机版

声明:所有软件和文章来自软件开发商或者作者 如有异议 请与本站联系 联系我们