最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
html 过滤与敏感字符过滤转换程序
时间:2022-06-30 09:13:51 编辑:袖梨 来源:一聚教程网
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
相关文章
- 突发新闻:Toncoin与阿联酋合作推出黄金签证,推动TON价格上涨10% 07-07
- 崩铁若虫奖励怎么拿-崩铁若虫全收集 07-07
- 蚂蚁庄园7月7日今日答案2025 07-07
- 神奇海洋7月6日今日答案2025 07-07
- 六月即将成为比特币今年最看涨的月份 07-07
- 蚂蚁庄园7月6日今日答案2025 07-07