安平县云天科技有限公司
网站建设知识

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

2016-8-10 18:38:20  作者:安小云  点击:
今天做了一个比较大的工程,将我们的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!!!
发表建议

安平县云天科技有限公司