冠霖的部落格

HtmlEncode

function HtmlEncode(varEncode)
        if not isnull(varencode) then
                htmlencode=server.htmlencode(varencode)
        else
                htmlencode=""
        end if
end function

function HtmlDecode(varEncode)
        if not isnull(varencode) then
                varEncode=replace(varencode,chr(32)&chr(32),"  ")
                varEncode=replace(varencode,chr(10),"<br>")
                varEncode=replace(varencode,"&amp;#","&#")
                varEncode=replace(varencode,"&amp;quot;","&quot;")
                htmldecode=varEncode
        else
                htmldecode=""
        end if
end function

Function unicode(tmpstr)
        unicode=htmldecode(htmlencode(rtrim(tmpstr)))
End Function