asp 读取html乱码,asp读取文件写文件中文乱码解读

今天做了一个比较大的工程，将我们的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！！！