如何Encode Url 字元 ' ?

lolmuta

稍微看了一下，整理如下，

绝大部份都是引用liucqa加上我的理解…

1. 
   
2. '如果是中文字要转，就要这样转
   
3. Sub TestEncode()
   
4.     Dim a$
   
5.     a = "我"
   
6.     Dim aAsc
   
7.     aAsc = Asc(a) '-22566
   
8.     Dim aHex
   
9.     aHex = Hex(aAsc) 'A7DA
   
10.     Dim allEnocde
    
11.     allEnocde = "%" & Mid(aHex, 1, 2) & "%" & Mid(aHex, 3, 2) '%A7%DA
    
12. End Sub
    
13. 'asc
    
14. '65~90 即A~Z
    
15. '97~122 即a~z
    
16. '48~57 即0~9
    
17. '这些维持原样
    
18. 
    
19. '空白字元(即chr(32))如何处理
    
20. '要嘛处理成%20 要嘛处理成+
    
21. 
    
22. '
    
23. '在来就是取每一个字的hex(asc)值，只是格式是一个"%" 加二位数来表示
    
24. '
    
25. 
    
26. 
    
27. 'encodeURI() 方法：把URI字符串采用UTF-8编码格式转化成escape格式的字符串。
    
28.         '不会被此方法编码的字符：! @ #  * ( ) = : / ; ? + '
    
29.    
    
30. 
    
31. 'encodeURIComponent() 方法：把URI字符串采用UTF-8编码格式转化成escape格式的字符串。与encodeURI()相比，这个方法将对更多的字符进行编码，比如 / 等字符。所以如果字符串里面包含了URI的几个部分的话，不能用这个方法来进行编码，否则 / 字符被编码之后URL将显示错误。
    
32.         '不会被此方法编码的字符：! * ( ) '
    
33.         '如果参数的值当中有上述字符，则该encodeURI不适用
    
34.         
    
35. '以下在 URI 中具有特殊含义的 ASCII
    
36.         '标点符号;/?:@&=+$,#
    
37. 
    
38. '如何处理提交给网站的URL字符串，没有一定之规。不同的网站URL编码并不相同，这需要我们通过抓包软件耐心确认RFC1378规定的几个特殊字符的编码方式。
    
39. '草率的写出编码代码，即使调试通过，在实际抓包的时候可能也会因为个别字符的编码错误而导致数据采集失败。
    
40. 
    

复制代码

不过仍然没办法说明为何我在chrome的url上怎么打，都可以自动帮我转好，
不过也许chrome也只是找个大众的转法来转，刚好我那个伺服器是吃那种转法的，所以才会让我产生有所谓万用转法

coby001

lolmuta 发表于 2015-7-9 17:46
稍微看了一下，整理如下，

绝大部份都是引用liucqa加上我的理解…

http 头信息里有字符集的约定
html 里也有字符集的信息
哪怕以上都没明确表明字符集，也还有默认字符集保底。
现代浏览器都有智能探测字符集的功能，会尝试以各种编码解析未知的字符串。
所以你觉得发生了很神奇的事情~~
{:soso_e120:}
=

硅谷少年

我还是觉得这个最简练：

1. Function GetURL$(txt$, Optional LC = &H804) 'Taiwan &H404/Japan &H411/ Korea &H412
   
2.     Dim a() As Byte: a = StrConv(txt, vbFromUnicode, LC)
   
3.     For i = 0 To UBound(a)
   
4.         GetURL = GetURL & "%" & Right("0" & Hex(a(i)), 2)
   
5.     Next
   
6. End Function

复制代码