html 过滤与敏感字符过滤转换程序

 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