<script language="VBscript">
function CodeCookie1(str) 
  Dim i 
  Dim strRtn 
  strRtn="" 
  for i=len(str) to 1 step -1 
    strRtn=strRtn & ascw(mid(str,i,1)) 
    if (i <> 1) then strRtn = strRtn & "a" 
  next 
  CodeCookie1=strRtn 
end function 'vbs 解码
function decode(strValue)
  dim result
  dim cnt, a
  a=split(strValue,"a")
  for cnt=ubound(a) to 0 step -1
  result=result & chrw(a(cnt)) 
  next
  decode=result
End function</script>
<script type="text/javascript">
//<![CDATA[
//js解码
function myDecode(fValue) {
  var result="";
  var cnt, a
  a=fValue.split("a");
  for (var i=a.length-1;i>=0; i--) {
    result+=String.fromCharCode(a[i]);
  }
  return result;
}
var c=CodeCookie1("欢迎到我的blog来,http://www.never-online.net");
alert(c)
alert(myDecode(c))
//]]>
</script>