今天做了一个比较大的工程,将我们的ytCMS gb2312版本的程序转换成utf-8。转换过程比较简单,但转换完毕后发现存在中文乱码的问题,经过查阅资料看到了如下几种解决方式
1. 在文件顶部添加,但经过尝试后发现不行。
2.
采用这种方式同样无果
3.
以上两种方式是比较常见的方式,都没有成功看来问题比较严重。于是认真考虑我们程序的功能,可能是因为asp读取文件写文件发生的中文乱码问题。读文件我们采用fso.OpenTextFile这种方式进行读取,经过一番搜索了解了
object.OpenTextFile(filename[, iomode[, create[, format]]])
这个函数的一些参数详解,其中最为重要的参数是 format :可选项。三个Tristate值之一,指出以何种格式打开文件。若忽略此参数,则文件以 ASCII 格式打开。
如下为format的三个常量值
常数
值
描述
TristateUseDefault
-2
以系统默认格式打开文件
TristateTrue
-1
以 Unicode 格式打开文件
TristateFalse
0
以 ASCII 格式打开文件
format涉及到字符编码的问题,可能问题就出在这里,尝试在OpenTextFile()函数中填入参数,测试依然无效。
4. 否定了3种方式后,还得继续查找。经过阅读一篇高人的文章发现,fso.OpenTextFile()是无法正常读取、写入utf8文件的,看来要修改读取方式了。将之前的读取、写入方式修改为如下两个函数
'utf-8 读文件方式
Function readFromTextFile (FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
readFromTextFile=str
End Function
'utf-8 写文件方式
Sub writeToTextFile (FileUrl,byval Str,CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
set stm=nothing
End Sub
修改完毕后,完美解决,perfect!!!