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