用VBS实现PHP的urlencode函数

昨天是JavaScript的，今天换成VBScript版的urlencode函数了，好吧，我承认我很无聊。我写代码之前Google过关键词“VBS urlencode函数”，结果出来的前三个链接（你搜索的结果可能和我不一样）是：一，二，三。（原谅我不喜欢直接贴链接）好家伙，代码一模一样，一模一样不要紧，还都是错的。贴出来围观一下（注意这是错的）。

Function URLEncode(strURL)
    Dim I
    Dim tempStr
    For I = 1 To Len(strURL)
        If Asc(Mid(strURL, I, 1)) < 0 Then
            tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
            URLEncode = URLEncode & tempStr
        ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Or (Asc(Mid(strURL, I, 1)) >= 48 And Asc(Mid(strURL, I, 1)) <= 57) Then
            URLEncode = URLEncode & Mid(strURL, I, 1)
        Else
            URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
        End If
    Next
End Function

连“-_.”这几个符号都一起encode，忽悠广大的人民群众么。退一步讲，假设代码是正确的吧，这代码的效率不敢恭维。我觉得我写代码已经够不讲究效率了，原来还有比我更强的人。每循环一次都要计算一次Len(strURL)，然后是出现无数次的Asc(Mid(strURL, I, 1)) 。现在的人到底在想什么，难道看都不看就Ctrl+C，Ctrl+V吗？

由于不同编码的中文字符urlencode的结果是不一样的，我写了两个版本的urlencode函数，一个是ANSI版的，一个是UTF-8版的。这里的ANSI和UTF-8指的不是VBS文件保存的编码，而是指对应的PHP编码，即ANSI版的对应以gb2312编码的PHP字符串的urlencode，UTF-8版的对应以UTF-8编码的PHP字符串的urlencode。以“恶魔”为例，使用ANSI版的urlencode后输出%B6%F1%C4%A7，而UTF-8版的输出%E6%81%B6%E9%AD%94。

代码懒得贴出来了，直接下载吧，有什么问题请留言指正，目前我测试的样本都没有问题，也许是样本不够多吧。

ANSI版的urlencode

[download id=11]

UTF-8版的urlencode

[download id=12]