求解开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   =   "\r\n<>@"

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)
%>