您现在的位置是:网站首页> 编程资料编程资料
FpHtmlEnCode 函数之标题过滤特殊符号的代码_应用技巧_
2023-05-25
327人已围观
简介 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
'函数名: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
相关内容
- SaveRemoteFile函数之asp实现保存远程的文件到本地的代码_应用技巧_
- ASP检查文件与目录是否存在的函数代码_应用技巧_
- ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码_应用技巧_
- FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码_应用技巧_
- ASP+XML实例演练编程代码第1/3页_应用技巧_
- asp实现防止从外部提交数据的三种方法第1/3页_应用技巧_
- asp又一个分页的代码例子_应用技巧_
- asp下的一个很简单的验证码程序第1/3页_应用技巧_
- asp实现一个统计当前在线用户的解决方案_应用技巧_
- 一些Asp技巧和实用解决方法_应用技巧_
