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

[复制链接]

为你执著

电梯直达

1^#

发表于 2009-3-16 17:52:23 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

'==================================================
'函数名：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

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-19 06:19 , Processed in 0.102979 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册