[原创] 用VBS实现urlencode（UTF-8 ANSI）

'Date: 2010/6/18
'Author: Demon
'Website: http://demon.tw

Function urlencode(str)
    Dim i,c,s,length
    length = Len(str)
    For i = 1 To length
        s = Mid(str,i,1)
        c = "&H" & Hex(AscW(Mid(str,i,1)))
        If ( c >= AscW("A") And c <= AscW("Z") ) Or _
            ( c >= AscW("a") And c <= AscW("z") ) Or _
            ( c >= AscW("0") And c <= AscW("9") ) Or _
            ( c = AscW("-") Or c = AscW("_") Or c = AscW(".") ) Then
            urlencode = urlencode & s
        ElseIf c = AscW(" ") Then
            urlencode = urlencode & "+"
        Else
            If c >= &H0001 And c <= &H007F Then
                urlencode = urlencode & s
            ElseIf c > &H07FF Then
                urlencode = urlencode & "%" & Hex(&HE0 Or (c\(2^12) And &H0F))
                urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^6) And &H3F))
                urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
            Else
                urlencode = urlencode & "%" & Hex(&HC0 Or (c\(2^6) And &H1F))
                urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
            End If
        End If
    Next
End Function

WScript.Echo urlencode("知道")
复制代码

'Date: 2010/6/18
'Author: Demon
'Website: http://demon.tw

Function urlencode(str)
	Dim i,c,s,length
	length = Len(str)
	For i = 1 To length
		s = Mid(str,i,1)
		c = Asc(Mid(str,i,1))
		If ( c >= Asc("A") And c <= Asc("Z") ) Or _
			( c >= Asc("a") And c <= Asc("z") ) Or _
			( c >= Asc("0") And c <= Asc("9") ) Or _
			( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then
			urlencode = urlencode & s
		ElseIf c = Asc(" ") Then
			urlencode = urlencode & "+"
		Else
			urlencode = urlencode & "%" & Left(Hex(c),2)
			urlencode = urlencode & "%" & Right(Hex(c),2)			
		End If
	Next
End Function

WScript.Echo urlencode("知道")
复制代码