asp 读取 utf-8格式文档并生成utf-8格式文档的乱码问题

要解决“ASP 读取 UTF-8 格式文档并生成 UTF-8 格式文档的乱码问题”，需要采取以下步骤：

1. 设置文件编码为 UTF-8

首先，要确保读取的文档确实是 UTF-8 编码格式。

在写 ASP 页面之前，请确认该页面采用 UTF-8 编码格式。可在 ASP 页面头部添加如下代码设置页面编码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

编码值 "65001" 对应的是 UTF-8 编码。

2. 使用 ADODB.Stream 工具读取文档

使用 ASP 读取文件时，这里推荐使用 ADODB.Stream 工具进行读取。ADODB.Stream 工具允许做到二进制文件的流式读取和写入，与 FileSystemObject 不同，ADODB.Stream 可以处理二进制数据流，如 UTF-8 编码的文本文件。

示例代码如下：

<%
'设置文件编码
Response.CodePage = 65001
'获取文件路径
strFilePath = Server.MapPath("data.txt")
'创建 ADODB.Stream 对象
Set objStream = CreateObject("ADODB.Stream")
'打开文件
objStream.Charset = "utf-8"
objStream.Type = 2 'binary
objStream.Open
objStream.LoadFromFile strFilePath
'设置流位置
objStream.Position = 0
'Response.Write objStream.ReadText
'Response.BinaryWrite objStream.Read
%>

在上述代码中，可以看到 ADODB.Stream 对象被创建后，通过设置 Charset="utf-8" 来设置编码格式为 UTF-8，再通过 LoadFromFile 方法来从文件中加载数据。最后在需要将数据输出时，可以使用 Response.Write objStream.ReadText 来输出文本，或使用 Response.BinaryWrite objStream.Read 来输出二进制数据。

但是注意，当读取二进制流时，无法保持原有的字符编码格式，需要使用指定字符集的编码进行处理，否则读出来的文本会出现乱码。

3. 将读取的文本编码为 UTF-8

为了处理文本数据时能够转换成 UTF-8 编码格式，需要使用 VBScript 中的 StrConv 函数将读取到的数据转换成 UTF-8 编码格式。

示例代码如下：

<%
'设置文件编码
Response.CodePage = 65001
'获取文件路径
strFilePath = Server.MapPath("data.txt")
'创建 ADODB.Stream 对象
Set objStream = CreateObject("ADODB.Stream")
'打开文件
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.LoadFromFile strFilePath
'将读取的文本编码为 UTF-8
Set objStreamChar = CreateObject("ADODB.Stream")
objStreamChar.Type = 2
objStreamChar.Charset = "utf-8"
objStreamChar.Open
objStreamChar.WriteText objStream.ReadText
'Response.Write objStreamChar.ReadText
'Response.BinaryWrite objStreamChar.Read
%>

在上述代码中，通过创建另一个 ADODB.Stream 对象 objStreamChar，并设置其编码格式为 UTF-8，来实现将文本从原编码转换成 UTF-8 编码。

4. 将文本输出到网页

最后一步，将已经转换成 UTF-8 编码的文本输出到网页。

示例代码如下：

<%
'设置文件编码
Response.CodePage = 65001
'获取文件路径
strFilePath = Server.MapPath("data.txt")
'创建 ADODB.Stream 对象
Set objStream = CreateObject("ADODB.Stream")
'打开文件
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.LoadFromFile strFilePath
'将读取的文本编码为 UTF-8
Set objStreamChar = CreateObject("ADODB.Stream")
objStreamChar.Type = 2
objStreamChar.Charset = "utf-8"
objStreamChar.Open
objStreamChar.WriteText objStream.ReadText

'最后输出文本
Response.ContentType = "text/html"
Response.CharSet = "utf-8"
Response.Write(objStreamChar.ReadText)
%>

在上述代码中，通过设置 Response 的 ContentType 和 CharSet，来指定输出文本的格式。最后通过 Response.Write 输出转换后的文本。

示例说明

以下是两个相关的示例，用来帮助你更好地理解上述步骤。

示例1

<%
Response.CodePage = 65001
strFilePath = Server.MapPath("data.txt")
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.LoadFromFile strFilePath
Set objStreamChar = CreateObject("ADODB.Stream")
objStreamChar.Type = 2
objStreamChar.Charset = "utf-8"
objStreamChar.Open
objStreamChar.WriteText objStream.ReadText
Response.ContentType = "text/html"
Response.CharSet = "utf-8"
Response.Write(objStreamChar.ReadText)
%>

示例2

<%
Response.CodePage = 65001
strFilePath = Server.MapPath("data.txt")
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.LoadFromFile strFilePath
Set objStreamChar = CreateObject("ADODB.Stream")
objStreamChar.Type = 2
objStreamChar.Charset = "utf-8"
objStreamChar.Open
objStreamChar.WriteText objStream.ReadText
Response.ContentType = "application/octet-stream"
Response.AppendHeader "Content-Disposition", "attachment; filename=test.txt"
Response.BinaryWrite objStreamChar.Read
%>

以上两个示例分别演示了如何将文本输出到网页中，以及如何输出为下载文件的形式。