asp 创建一个utf-8编码的TXT文件

axia_T 2005-07-11 11:01:12

RT：我在ASP创建1个TXT文件发现编码是ANSI，如何创建一个UTF-8的TXT文件或者可以用ASP修改该文件的编码。

用<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
是没有用的，编码还是ANSI，但是打开不会友乱码，读取的时候就会出现乱码了

部分代码如下，很简单的：

'***************************************************************************
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
set myfso = Server.CreateObject("Scripting.FileSystemObject")
dic = "E:\test.txt"
txt = "写入的文字"
set myfile = myfso.CreateTextFile(dic,true) '创建文件test.txt
myfile.WriteLine(txt) '写入文件
myfile.close
set myfso = nothing
%>
</body>
</html>
'******************************************************************

用<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
是没有用的，编码还是ANSI，但是打开不会友乱码，读取的时候就会出现乱码了

...全文

397 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

axia_T 2005-07-15

打赏
举报

解决了。用ado.stream
public function createutf8(txtconfig,filename)
Dim st
Set st=Server.CreateObject("ADODB.Stream")
st.Type=2
st.Mode=3
st.Charset="utf-8"
st.Open()
st.WriteText txtconfig
st.SaveToFile filename,2
st.Close()
Set st=Nothing

end function

surferc 2005-07-11

打赏
举报

这样试试
set myfile = myfso.CreateTextFile(dic,true,true) '创建文件test.txt

===================================
CreateTextFile 方法
创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。

object.CreateTextFile(filename[, overwrite[, unicode]])

参数
object

必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename

必选项。字符串表达式，指明要创建的文件。

overwrite

可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。

unicode

可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。