当前位置：主页 > 查看内容

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

发布时间：2021-07-23 00:00| 有 位朋友查看

简介：'================================================== '函数名：FpHtmlEnCode '作用：标题过滤 '参数：fString------字符串 '================================================== FunctionFpHtmlEnCode(fString) IfIsNull(fString)=FalseorfString""orfStr……
'==================================================
'函数名：FpHtmlEnCode
'作  用：标题过滤
'参  数：fString ------字符串
'==================================================
Function FpHtmlEnCode(fString)
   If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then
       fString=nohtml(fString)
       fString=FilterJS(fString)
       fString = Replace(fString,"&nbsp;"," ")
       fString = Replace(fString,"&quot;","")
       fString = Replace(fString,"&#39;","")
       fString = replace(fString, ">", "")
       fString = replace(fString, "<", "")
       fString = Replace(fString, CHR(9), " ")'&nbsp;
       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

原文链接：https://m.jb51.net/article/11231.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：GetPaing 函数之asp采集函数中用到的获取分页的代码 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐