黑熊的部落格

加码规则说明：
加码时将字符串中的所有字符转换成其对应的ASCII值的16进制值，例如：“A”的ASCII码值为65，以16进制值表示为41，故应发送两个字符“41”以代表字符“A”。示例：msg:=41代表msg=A
对于汉字则以其内码的16进制值来表示，如“测试”应为：B2E2CAD4。示例：msg:= B2E2CAD4表示的是msg=测试
参数中只要参数标识与内容之间用“:=”连接的都需要解码后方可使用，解码时将每两位当成其ASCII值的16进制值将其还原。

<%
function toASCII(msg)
on error resume next
msgpart=len(msg)/2
strReturn = ""
counter = 1    
   Do while counter < msgpart+1  
            strReturn = strReturn & Hex(Asc(Mid(msg, counter*2-1,2)))
      If counter >msgpart then  
   exit do  
      end if  
         counter = counter+1  
   Loop
  toASCII = strReturn
end function

function tochinese(msg)
on error resume next
msgpart=len(msg)/4
strReturn = ""
counter = 1    
   Do while counter < msgpart+1  
            strReturn = strReturn & Chr(Cint("&H" &Mid(msg, counter*4-3,4) &""))
      If counter >msgpart then  
   exit do  
      end if  
         counter = counter+1  
   Loop
  tochinese = strReturn
end function
%>