今天做了一个比较大的工程，将我们的ytCMS gb2312版本的程序转换成utf-8。转换过程比较简单，但转换完毕后发现存在中文乱码的问题，经过查阅资料看到了如下几种解决方式
1. 在文件顶部添加<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>，但经过尝试后发现不行。
2.

<%@ CODEPAGE=65001 %>
<% Response.CodePage=65001 %>
<% Response.Charset="UTF-8" %>
采用这种方式同样无果

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！！！