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

上一个：GetPaing 函数之asp采集函数中用到的获取分页的代码
下一个：SaveRemoteFile函数之asp实现保存远程的文件到本地的代码