asp解码chrw/chr编码文件还原为源代码

function readfile(fn)'读取编码文件的内容
  set fso=createobject("scripting.filesystemobject")
  set ts=fso.OpenTextFile(fn,1,false,-2)'注意这里的最后一个参数，如果你的是unicode编码，将-2（系统默认编码）修改为-1（unicode编码）。0为ascii
  readfile=ts.ReadAll
  ts.close
  set ts=nothing
  set fso=nothing
end function
function decodechrw(s)'解码chrw编码的内容
  set rx=new RegExp
  rx.Global=true
  rx.IgnoreCase=true
  rx.Pattern="ChrW\s*\(\s*\d+\s*\)(\s*&\s*ChrW\s*\(\s*\d+\s*\))*"'解码chrw串
  set mc=rx.Execute(s)
  for each m in mc
   s=replace(s, m.value,""""&eval(m.value)&"""")
  next
  rx.Pattern="Chr\s*\(\s*\d+\s*\)(\s*&\s*Chr\s*\(\s*\d+\s*\))*"'解码chr串
  set mc=rx.Execute(s)
  for each m in mc
   s=replace(s, m.value,""""&eval(m.value)&"""")
  next
  decodechrw=s
  
end function
function decodechrwfile(fn)'解码内容包含chrw编码的文件
  s=readfile(fn)
  s=decodechrw(s)
  '将解码内容写回文件
  set fso=createobject("scripting.filesystemobject")
  set ts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为 _decode的文件里面，如fn为encode.txt，则解码后的文件为encode_decode.txt
  ts.write s
  ts.close
  set ts=nothing
  set fso=nothing
end function
decodechrwfile(Server.MapPath("encode.txt"))'注意修改这里被chrw加密的文件名称及路径，如果是客户端提交的内容