functionreadfile(fn)'读取编码文件的内容
setfso=createobject("scripting.filesystemobject")
setts=fso.OpenTextFile(fn,1,false,-2)'注意这里的最后一个参数,如果你的是unicode编码,将-2(系统默认编码)修改为-1(unicode编码)。0为ascii
readfile=ts.ReadAll
ts.close
setts=nothing
setfso=nothing
endfunction
functiondecodechrw(s)'解码chrw编码的内容
setrx=newRegExp
rx.Global=true
rx.IgnoreCase=true
rx.Pattern="ChrW\s*\(\s*\d+\s*\)(\s*&\s*ChrW\s*\(\s*\d+\s*\))*"'解码chrw串
setmc=rx.Execute(s)
foreachminmc
s=replace(s,m.value,""""&eval(m.value)&"""")
next
rx.Pattern="Chr\s*\(\s*\d+\s*\)(\s*&\s*Chr\s*\(\s*\d+\s*\))*"‘急吗chr串
setmc=rx.Execute(s)
foreachminmc
s=replace(s,m.value,""""&eval(m.value)&"""")
next
decodechrw=s
endfunction
functiondecodechrwfile(fn)'解码内容包含chrw编码的文件
s=readfile(fn)
s=decodechrw(s)
'将解码内容写回文件
setfso=createobject("scripting.filesystemobject")
setts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为_decode的文件里面,如fn为encode.txt,则解码后的文件为encode_decode.txt
ts.writes
ts.close
setts=nothing
setfso=nothing
endfunction
decodechrwfile("encode.txt")'注意修改这里被chrw加密的文件名称及路径,如果是客户端提交的内容
|