做ASP上传漏洞过滤的时候，应乱码无效。

代码片段

file.SaveToFile Server.mappath(filename)
filepathname=Server.mappath(filename)
set MyFile=server.CreateObject("Scripting.FileSystemObject")
set MyText=MyFile.OpenTextFile(filepathname, 1) 
sTextAll=lcase(MyText.ReadAll)
MyText.close
set MyFile = nothing

response.write sTextAll 

出现乱码，导致下面过滤语句出错， 谁能帮我修改下。

------解决方案--------------------
用 OpenTextFile 的话，确定存储的是纯文本文件吗？
------解决方案--------------------
你是不是打开的这个文本文件的编码和你asp的编码 还有输出的网页编码是不一致的