新微赢技术网

标题: FpHtmlEnCode 函数之标题过滤特殊符号的代码 [打印本页]

作者: 为你执著 时间: 2009-3-16 17:52
标题: 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

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)