javascript urlEncoding和urlDecoding

   < script language = vbs >
function  urldecoding(vstrin)
' qiushuiwuhen(2002-6-19)
     dim  i,strreturn,strSpecial
    strSpecial  =   " !""#$%&'()*+,/:;<=>?@[]^`{|}~% "
    strreturn  =   ""
     for  i  =   1   to   len (vstrin)    
        thischr  =   mid (vstrin,i, 1 )
         if  thischr = " % "   then
            intasc = eval ( " &h " + mid (vstrin,i + 1 , 2 ))
             if   instr (strSpecial, chr (intasc)) > 0   then
                strreturn =  strreturn  &   chr (intasc)
                i = i + 2
             else
                intasc = eval ( " &h " + mid (vstrin,i + 1 , 2 ) + mid (vstrin,i + 4 , 2 ))
                strreturn =  strreturn  &   chr (intasc)
                i = i + 5
             end   if
         else
             if  thischr = " + "   then
                strreturn =  strreturn  &   "   "
             else
                strreturn =  strreturn  &  thischr
             end   if
         end   if
     next
    urldecoding  =  strreturn
end function
function  urlencoding(vstrin)
     dim  i,strreturn,strSpecial
    strSpecial  =   " !""#$%&'()*+,/:;<=>?@[]^`{|}~% "
    strreturn  =   ""
     for  i  =   1   to   len (vstrin)
        thischr  =   mid (vstrin,i, 1 )
         if   abs ( asc (thischr))  <   & hff  then
             if  thischr = "   "   then
                strreturn  =  strreturn  &   " + "
             elseif   instr (strSpecial,thischr) > 0   then
                strreturn  =  strreturn  &   " % "   &   hex ( asc (thischr))
             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
str = " 家 "
strEncode = urlencoding(str)
strDecode = urldecoding(strEncode)
document.write str, " => " ,strEncode, " => " ,strDecode
</ script >

这是VBS的，大家请注意