用VBS实现JS的escape和unescape功能

最新推荐文章于 2015-12-24 20:56:00 发布

原创最新推荐文章于 2015-12-24 20:56:00 发布 · 456 阅读

0 ·

CC 4.0 BY-SA版权

ASP 专栏收录该内容

30 篇文章

订阅专栏

本文介绍了一组用于 VBS 脚本语言的函数，这些函数能够实现 URL 的编码与解码操作。通过特定的条件判断，该脚本能够处理包括普通字符、特殊字符在内的多种情况，并将其转换为 URL 兼容的形式。对于 Web 开发者而言，这些函数提供了一种在 VBS 中进行 URL 处理的有效方式。

Function vbsEscape(str)
    dim i,s,c,a
    s=""
    For i=1 to Len(str)
        c=Mid(str,i,1)
        a=ASCW(c)
        If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then
            s = s & c
        ElseIf InStr("@*_+-./",c)>0 Then
            s = s & c
        ElseIf a>0 and a<16 Then
            s = s & "%0" & Hex(a)
        ElseIf a>=16 and a<256 Then
            s = s & "%" & Hex(a)
        Else
            s = s & "%u" & Hex(a)
        End If
    Next
    vbsEscape = s
End Function

Function vbsUnEscape(str)
    dim i,s,c
    s=""
    For i=1 to Len(str)
        c=Mid(str,i,1)
        If Mid(str,i,2)="%u" and i<=Len(str)-5 Then
            If IsNumeric("&H" & Mid(str,i+2,4)) Then
                s = s & CHRW(CInt("&H" & Mid(str,i+2,4)))
                i = i+5
            Else
                s = s & c
            End If
        ElseIf c="%" and i<=Len(str)-2 Then
            If IsNumeric("&H" & Mid(str,i+1,2)) Then
                s = s & CHRW(CInt("&H" & Mid(str,i+1,2)))
                i = i+2
            Else
                s = s & c
            End If
        Else
            s = s & c
        End If
    Next
    vbsUnEscape = s
End Function