FpHtmlEnCode_函数之标题过滤特殊符号的代码
来源:
中文源码网 浏览:273 次 日期:2024-04-27 12:58:00
【下载文档: FpHtmlEnCode_函数之标题过滤特殊符号的代码.txt 】
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