最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
html 过滤与敏感字符过滤转换程序
时间:2010-03-13 编辑:简简单单 来源:一聚教程网
Function HTMLEncode(str,isRequest)
If isRequest = 1 Then
str = safeRequest(str,0)
End If
If str = "" Or IsNull(str) Or IsEmpty(str) Then
HTMLEncode = ""
Exit Function
End If
' str = Replace(str,"&","&")
str = Replace(str,"<","<")
str = Replace(str,">",">")
str = Replace(str,"'","'")
str = Replace(str,"""",""")
str = Replace(str," "," ")
str = Replace(str,vbcr,"")
' str = Replace(str,vblf & vblf,"
")
' str = Replace(str,vblf,"
")
HTMLEncode = Str
End Function
Public Function HTMLDecode(str)
If str = "" Or IsNull(str) Or IsEmpty(str) Then
HTMLDecode = ""
Exit Function
End If
str = Replace(str,"&","&")
str = Replace(str,"<","<")
str = Replace(str,">",">")
str = Replace(str,"'","'")
str = Replace(str,""","""")
str = Replace(str," "," ")
' str = Replace(str,"
",vbcrlf)
' str = Replace(str,"
",vblf)
HTMLDecode = str
End Function
-
下一个: asp 字符截取程序代码
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14