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

1. '==================================================  
2. '函数名：FpHtmlEnCode  
3. '作  用：标题过滤  
4. '参  数：fString ------字符串  
5. '==================================================  
6. Function FpHtmlEnCode(fString)  
7.    If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then  
8.        fString=nohtml(fString)  
9.        fString=FilterJS(fString)  
10.        fString = Replace(fString," "," ")  
11.        fString = Replace(fString,""","")  
12.        fString = Replace(fString,"'","")  
13.        fString = replace(fString, ">", "")  
14.        fString = replace(fString, "<", "")  
15.        fString = Replace(fString, CHR(9), " ")'   
16.        fString = Replace(fString, CHR(10), "")  
17.        fString = Replace(fString, CHR(13), "")  
18.        fString = Replace(fString, CHR(34), "")  
19.        fString = Replace(fString, CHR(32), " ")'space  
20.        fString = Replace(fString, CHR(39), "")  
21.        fString = Replace(fString, CHR(10) & CHR(10),"")  
22.        fString = Replace(fString, CHR(10)&CHR(13), "")  
23.        fString=Trim(fString)  
24.        FpHtmlEnCode=fString  
25.    Else  
26.        FpHtmlEnCode="$False$"  
27.    End If  
28. End Function