嘟嘟老窝

惨，那篇《AJAX的七宗罪》让CSDN给放到头条了，骂声一片，怪不得耳朵一直热热的……

我这个人还是胆小啊，连回复都没敢去，凭我多年在CSDN混得经验，越参合人家越来劲，不把你骂个体不完肤誓不罢休的，还是老老实实在我的老窝里小声牢骚下就行了^_^

其实对AJAX说yes还是no都无关紧要。AJAX给大家展示的是一幅唯美技术，了解它学习它，重要的是这个过程。那片文章中提起的两个用AJAX用过头的网站，其中的一个已经放弃了，全部改成普通页面了，这说明什么？技术是无罪的，用好用坏在于人，这就像一把刀，可以杀人，也可以切菜，一个道理。

虽然我写了那篇文章，但最近我还是尝试在用它，感觉还行吧。今天给一个客户修改CMS系统，工作量小，我有心尝试下新鲜热乎的AJAX，给一个列表加入了无刷新更新数据和排序，碰到了一个难题就是POST表单时对字节的编码，网上能找到的都不好用，最后还是自己钉钉补补改了一个自认为完美的

<script language="vbscript">
function urlencoding(vstrin)
    dim i,strreturn,strSpecial, t
    strSpecial = " <>""#%{}|^~[]`'&?+"&chr(13)&chr(10)
    strreturn = ""
    for i = 1 to len(vstrin)
        thischr = mid(vstrin,i,1)
        if abs(asc(thischr)) < &hff then
            if instr(strSpecial,thischr)>0 then
                if thischr = " " then
                  strreturn = strreturn & "+"
                else
                  t = hex(asc(thischr))
                  if len(t) = 1 then t = "0"&t
                  strreturn = strreturn & "%" & t
                end if
            else
                strreturn = strreturn & thischr
            end if
        else
            innercode = asc(thischr)
            if innercode < 0 then
                innercode = innercode + &h10000
            end if
            hight8 = (innercode  and &hff00)\ &hff
            low8 = innercode and &hff
            strreturn = strreturn & "%" & hex(hight8)_
 &  "%" & hex(low8)
        end if
    next
    urlencoding = strreturn
end function

</script>