用VBS实现urlencode（UTF-8 ANSI）

Demon

今天有个《批处理怎样把文本的字符串编码化urlencode？》的帖子，里面有人回复了个VBS版的urlencode，但是那个是ANSI版的，别人要的是UTF-8版的。

很久很久以前写过，发上来，虽然不会有人看。

UTF-8版

1. 
   
2. 'Date: 2010/6/18
   
3. 'Author: Demon
   
4. 'Website: http://demon.tw
   
5. 
   
6. Function urlencode(str)
   
7.     Dim i,c,s,length
   
8.     length = Len(str)
   
9.     For i = 1 To length
   
10.         s = Mid(str,i,1)
    
11.         c = "&H" & Hex(AscW(Mid(str,i,1)))
    
12.         If ( c >= AscW("A") And c <= AscW("Z") ) Or _
    
13.             ( c >= AscW("a") And c <= AscW("z") ) Or _
    
14.             ( c >= AscW("0") And c <= AscW("9") ) Or _
    
15.             ( c = AscW("-") Or c = AscW("_") Or c = AscW(".") ) Then
    
16.             urlencode = urlencode & s
    
17.         ElseIf c = AscW(" ") Then
    
18.             urlencode = urlencode & "+"
    
19.         Else
    
20.             If c >= &H0001 And c <= &H007F Then
    
21.                 urlencode = urlencode & s
    
22.             ElseIf c > &H07FF Then
    
23.                 urlencode = urlencode & "%" & Hex(&HE0 Or (c\(2^12) And &H0F))
    
24.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^6) And &H3F))
    
25.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
    
26.             Else
    
27.                 urlencode = urlencode & "%" & Hex(&HC0 Or (c\(2^6) And &H1F))
    
28.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
    
29.             End If
    
30.         End If
    
31.     Next
    
32. End Function
    
33. 
    
34. WScript.Echo urlencode("知道")
    

复制代码

ANSI版

1. 
   
2. 'Date: 2010/6/18
   
3. 'Author: Demon
   
4. 'Website: http://demon.tw
   
5. 
   
6. Function urlencode(str)
   
7.         Dim i,c,s,length
   
8.         length = Len(str)
   
9.         For i = 1 To length
   
10.                 s = Mid(str,i,1)
    
11.                 c = Asc(Mid(str,i,1))
    
12.                 If ( c >= Asc("A") And c <= Asc("Z") ) Or _
    
13.                         ( c >= Asc("a") And c <= Asc("z") ) Or _
    
14.                         ( c >= Asc("0") And c <= Asc("9") ) Or _
    
15.                         ( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then
    
16.                         urlencode = urlencode & s
    
17.                 ElseIf c = Asc(" ") Then
    
18.                         urlencode = urlencode & "+"
    
19.                 Else
    
20.                         urlencode = urlencode & "%" & Left(Hex(c),2)
    
21.                         urlencode = urlencode & "%" & Right(Hex(c),2)                       
    
22.                 End If
    
23.         Next
    
24. End Function
    
25. 
    
26. WScript.Echo urlencode("知道")
    

复制代码

Demon

参数都是VBS字符串

wenlibin02

Thanks a lot.