求解开jscript.encode代码的asp函数

javascript函数已经有了，有没有Asp的函数？？？
  或者有没有高手可以把下面的写成asp的   ,万分感谢~！！

复制代码代码如下:
<SCRIPT   LANGUAGE="JavaScript">
  <！--
  function   toEncode（s,l）
  {enc=new   ActiveXObject（"Scripting.Encoder"）;
  return   enc.EncodeScriptFile（"."+l,s,0,l+"cript"）;
  }


  var   STATE_COPY_INPUT   =   100
  var   STATE_READLEN   =   101
  var   STATE_DECODE   =   102
  var   STATE_UNESCAPE   =   103

  var   pick_encoding   =   new   Array（
  1,   2,   0,   1,   2,   0,   2,   0,   0,   2,   0,   2,   1,   0,   2,   0,
  1,   0,   2,   0,   1,   1,   2,   0,   0,   2,   1,   0,   2,   0,   0,   2,
  1,   1,   0,   2,   0,   2,   0,   1,   0,   1,   1,   2,   0,   1,   0,   2,
  1,   0,   2,   0,   1,   1,   2,   0,   0,   1,   1,   2,   0,   1,   0,   2
  ）

  var   rawData   =   new   Array（
  0x64,0x37,0x69,   0x50,0x7E,0x2C,   0x22,0x5A,0x65,   0x4A,0x45,0x72,
  0x61,0x3A,0x5B,   0x5E,0x79,0x66,   0x5D,0x59,0x75,   0x5B,0x27,0x4C,
  0x42,0x76,0x45,   0x60,0x63,0x76,   0x23,0x62,0x2A,   0x65,0x4D,0x43,
  0x5F,0x51,0x33,   0x7E,0x53,0x42,   0x4F,0x52,0x20,   0x52,0x20,0x63,
  0x7A,0x26,0x4A,   0x21,0x54,0x5A,   0x46,0x71,0x38,   0x20,0x2B,0x79,
  0x26,0x66,0x32,   0x63,0x2A,0x57,   0x2A,0x58,0x6C,   0x76,0x7F,0x2B,
  0x47,0x7B,0x46,   0x25,0x30,0x52,   0x2C,0x31,0x4F,   0x29,0x6C,0x3D,
  0x69,0x49,0x70,   0x3F,0x3F,0x3F,   0x27,0x78,0x7B,   0x3F,0x3F,0x3F,
  0x67,0x5F,0x51,   0x3F,0x3F,0x3F,   0x62,0x29,0x7A,   0x41,0x24,0x7E,
  0x5A,0x2F,0x3B,   0x66,0x39,0x47,   0x32,0x33,0x41,   0x73,0x6F,0x77,
  0x4D,0x21,0x56,   0x43,0x75,0x5F,   0x71,0x28,0x26,   0x39,0x42,0x78,
  0x7C,0x46,0x6E,   0x53,0x4A,0x64,   0x48,0x5C,0x74,   0x31,0x48,0x67,
  0x72,0x36,0x7D,   0x6E,0x4B,0x68,   0x70,0x7D,0x35,   0x49,0x5D,0x22,
  0x3F,0x6A,0x55,   0x4B,0x50,0x3A,   0x6A,0x69,0x60,   0x2E,0x23,0x6A,
  0x7F,0x09,0x71,   0x28,0x70,0x6F,   0x35,0x65,0x49,   0x7D,0x74,0x5C,
  0x24,0x2C,0x5D,   0x2D,0x77,0x27,   0x54,0x44,0x59,   0x37,0x3F,0x25,
  0x7B,0x6D,0x7C,   0x3D,0x7C,0x23,   0x6C,0x43,0x6D,   0x34,0x38,0x28,
  0x6D,0x5E,0x31,   0x4E,0x5B,0x39,   0x2B,0x6E,0x7F,   0x30,0x57,0x36,
  0x6F,0x4C,0x54,   0x74,0x34,0x34,   0x6B,0x72,0x62,   0x4C,0x25,0x4E,
  0x33,0x56,0x30,   0x56,0x73,0x5E,   0x3A,0x68,0x73,   0x78,0x55,0x09,
  0x57,0x47,0x4B,   0x77,0x32,0x61,   0x3B,0x35,0x24,   0x44,0x2E,0x4D,
  0x2F,0x64,0x6B,   0x59,0x4F,0x44,   0x45,0x3B,0x21,   0x5C,0x2D,0x37,
  0x68,0x41,0x53,   0x36,0x61,0x58,   0x58,0x7A,0x48,   0x79,0x22,0x2E,
  0x09,0x60,0x50,   0x75,0x6B,0x2D,   0x38,0x4E,0x29,   0x55,0x3D,0x3F
  ）

  var   transformed   =   new   Array（）
  for   （var   i=0;   i<3;   i++）   transformed[i]   =   new   Array（）
  for   （var   i=31;   i<=126;   i++）   for   （var   j=0;   j<3;   j++）   transformed[j][rawData[（i-31）   *   3   +   j]]   =   （i==31）   ？   9   :   i

  var   digits   =   new   Array（）
  for   （var   i=0;   i<26;   i++）
  {
  digits["A".charCodeAt（0）+i]   =   i
  digits["a".charCodeAt（0）+i]   =   i+26
  }
  for   （var   i=0;   i<10;   i++）   digits["0".charCodeAt（0）+i]   =   i+52
  digits[0x2b]   =   62
  digits[0x2f]   =   63

  function   unescape（char）
  {
  var   escapes   =   "#&！*$"
  var   escaped   =   " <>@"

  if   （char.charCodeAt（0）   >   126）   return   char
  if   （escapes.indexOf（char）   ！=   -1）   return   escaped.substr（escapes.indexOf（char）,   1）
  return   "？"
  }

  function   decodeBase64（string）
  {
  var   val   =   0
  val   +=   （digits[string.substr（0,1）.charCodeAt（0）]   <<   2）
  val   +=   （digits[string.substr（1,1）.charCodeAt（0）]   >>   4）
  val   +=   （digits[string.substr（1,1）.charCodeAt（0）]   &   0xf）   <<   12
  val   +=   （（digits[string.substr（2,1）.charCodeAt（0）]   >>   2）   <<   8）
  val   +=   （（digits[string.substr（2,1）.charCodeAt（0）]   &   0x3）   <<   22）
  val   +=   （digits[string.substr（3,1）.charCodeAt（0）]   <<   16）
  return   val
  }

  function   tranEncode（encodingString）
  {

  var   marker   =   "#@~^"
  var   stringIndex   =   0
  var   scriptIndex   =   -1
  var   unEncodingIndex   =   0
  var   char   =   null
  var   encodingLength   =   unEncodinglength   =   0
  var   state   =   STATE_COPY_INPUT
  var   unEncodingString   =   ""
  var   re,   arr

  while（state）
  {
  switch   （state）
  {
  case   （STATE_COPY_INPUT）   :
  scriptIndex   =   encodingString.indexOf（marker,   stringIndex）
  if   （scriptIndex   ！=   -1）
  {
  unEncodingString   +=   encodingString.substring（stringIndex,   scriptIndex）
  scriptIndex   +=   marker.length
  state   =   STATE_READLEN
  }
  else
  {
  stringIndex   =   stringIndex==0   ？   0   :   stringIndex
  unEncodingString   +=   encodingString.substr（stringIndex,   encodingString.length）
  state   =   0
  }
  break

  case   （STATE_READLEN）   :
  encodingLength   =   encodingString.substr（scriptIndex,   6）
  unEncodinglength   =   decodeBase64（encodingLength）
  scriptIndex   +=   （6   +   "==".length）
  state   =   STATE_DECODE
  break

  case   （STATE_DECODE）   :
  if   （！unEncodinglength）
  {
  stringIndex   =   scriptIndex   +   "DQgAAA==^#~@".length
  unEncodingIndex   =   0
  state   =   STATE_COPY_INPUT
  break
  }
  char   =   encodingString.substr（scriptIndex,   1）
  if   （char   ==   "@"）   state   =   STATE_UNESCAPE
  else
  {
  if   （char.charCodeAt（0）   <   0xFF）
  {
  unEncodingString   +=   String.fromCharCode（transformed[pick_encoding[unEncodingIndex%64]][char.charCodeAt（0）]）
  unEncodingIndex++
  }
  else
  {
  unEncodingString   +=   char
  }
  scriptIndex++
  unEncodinglength--
  break
  }

  case   STATE_UNESCAPE:
  unEncodingString   +=   unescape（encodingString.substr（++scriptIndex,   1））
  scriptIndex++;   unEncodinglength   -=2
  unEncodingIndex++
  state   =   STATE_DECODE
  break
  }
  }

  re   =   new   RegExp（"（JScript|VBscript）.encode",   "gmi"）
  while（arr   =   re.exec（unEncodingString））   unEncodingString   =   RegExp.leftContext   +   RegExp.$1   +   RegExp.rightContext
  return   unEncodingString
  }
  //-->
  </SCRIPT>

asp 不等于 vbs, 只是个框架而已
这段代码你在 script 里加个 runat="server" 然后直接调用这个函数就可以了
<SCRIPT   LANGUAGE="JavaScript" runat="server">...
<%
toEncode（xxx）
%>