【www.bbyears.com--html5教程】
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