VBScript的中文编码解码，与JS的Escape()相同功能

最新推荐文章于 2019-04-10 16:16:24 发布

hualin

最新推荐文章于 2019-04-10 16:16:24 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏：代码片断文章标签： vbscript integer function string hex c

本文链接：https://blog.youkuaiyun.com/hualin/article/details/3426484

代码片断专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一组使用 VBS (Visual Basic Script) 编写的字符串编码及解码函数。其中包括用于转义和取消转义的函数，能够处理 ASCII 字符串，并支持特定字符集的转换。这些函数可用于 Web 开发中处理 URL 参数等场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function vbsEscape(str) as String
        Dim i As Integer
        Dim c As String
        Dim s As String
        Dim a As Integer
        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
    return 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

Function AscIIString(str as string) as String

        Dim j As Integer
        Dim i As Integer
        Dim charArray() As Char
        Dim charNew() As Char
        Dim strNew As String

charArray = str.ToCharArray()

        For i = 0 To charArray.Length - 1 Step 1
            strNew = strNew & Asc(charArray(i)).ToString("000")
        Next

charNew = strNew.ToCharArray()
strNew = ""

        For j = 0 To charNew.Length - 1 Step 2
            If j = charNew.Length - 1 Then
                strNew = strNew & charNew(j).ToString()
            Else
                strNew = strNew & charNew(j + 1).ToString()
                strNew = strNew & charNew(j).ToString()
            End If

return strNew

End Function