utilities.vb

来自「Build words list automatic」· VB 代码 · 共 15 行

Module Utilities

    Public Function XQueryStringEncode(ByVal HREF As String) As String
        '040623 JPC I don't like the behaviour of Microsofts function
        '   Server.HTTPEncode, esp its use of "+" as substitute for space,
        '   so I code my own equivalent, especially to deal with "\"
        If InStr(HREF, "%") Then HREF = Replace(HREF, "%", "%25")
        If InStr(HREF, " ") Then HREF = Replace(HREF, " ", "%20")
        If InStr(HREF, "\") Then HREF = Replace(HREF, "\", "%5C")
        Return HREF
    End Function

End Module