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