Function UnicodeToAsciiFile(strFileName) ‘先打开unicode的文件 set fso = CreateObject(“Scripting.FileSystemObject”) set unicodefile = fso.opentextfile(server.MapPath(strFileName),1,false,-1)’-1是指用unicode方式打开 Dim strFileText strFileText = unicodefile.ReadAll’读出文本 unicodefile.close set unicodefile = nothing
Read more