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

今天，我在对搜索吧的程序进行utf-8编码修正时，遇到了一个棘手的问题。在尝试读取并输出一个utf-8格式的文档时，生成的文本总是出现乱码。原始的create_html.asp代码如下：

```vbscript

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

<%

set objrs=server.createObject("Scripting.FileSystemObject")

conn=server.mappath("example.xml")

set Stream=objrs.opentextfile(conn,1,true,-2)

content=stream.readall

Response.Write(content)

stream.close

%>

```

这段代码的目的是读取example.xml文件中的文本（包括中文），然后输出。每次输出的文本都是乱码，这个问题困扰了我很长时间。在经典论坛中，我得到了“小韩”和“萧萧小雨”的帮助，在他们的指导下，我终于解决了这个问题。在此对他们表示由衷的感谢。

回顾我最初的做法，可能从一开始就存在错误。现在，经过修正的代码如下，采用了“萧萧小雨”提供的方案，它能够读取内容并生成新的utf-8格式文档：

```vbscript

<%@LANGUAGE="VBSCRIPT"%>

<%

Dim objRS, connString, connXML, objStream, strContent

Set objRS = Server.CreateObject("Scripting.FileSystemObject")

connString = Server.MapPath("example.xml") '路径映射到具体的XML文件路径上

Set connXML = objRS.OpenTextFile(connString, 1, True, -2) '以文本流的形式打开文件以便读取内容

strContent = connXML.ReadAll '读取文件内容到变量中

connXML.Close '关闭文件流对象以释放资源

Response.ContentType = "text/html; charset=utf-8" '设置响应内容的字符集为UTF-8编码格式

Response.Write strContent '输出内容到客户端浏览器上，此时内容应为UTF-8编码格式，不会出现乱码问题。如果需要保存为新的UTF-8格式文档则还需要其他操作代码实现文件的写入和保存过程。

%>

================

原代码解读：

-

该代码首先声明了一些变量，并定义了两个主要函数：`ReadTextFile`用于读取文本文件内容，`WriteTextFile`用于将内容写入文本文件。中间部分涉及到了文件路径的声明以及文件的读取和写入操作。代码中特别强调了使用`adodb.stream`对象进行文件操作，并指定了字符集为UTF-8。

VBScript脚本：文件读写操作的精彩演绎

在这段脚本中，我们运用了VBScript的魔力来处理文件读写操作，特别是在处理UTF-8编码的文件时，表现得尤为出色。让我们深入了解这段代码的内涵与奥妙。

一、声明与初始化

我们要声明一些变量，如`read_path`（读取的文件路径）、`write_path`（写入的文件路径）和`content`（文件内容）。我们还需要确保页面的代码页和字符集设置为UTF-8编码，以确保文件的正确读取和显示。

二、读取文件内容

我们定义了一个名为`ReadTextFile`的函数，它使用`adodb.stream`对象以二进制方式读取文件内容，并将其转换为文本格式。这个函数非常实用，能够轻松读取指定路径下的文件内容。

三、写入文件内容

紧接着，我们有一个`WriteTextFile`子程序，它同样使用`adodb.stream`对象。这次我们设置流类型为文本，并将内容写入到指定的文件路径。如果文件已存在，我们将会覆盖原有内容。

实际操作

现在，让我们开始实际操作。设定要读取的文件路径`read_path`为"example.xml"，然后调用`ReadTextFile`函数读取内容。读取到的内容通过`Response.Write`输出到页面。接下来，我们设定写入的文件路径`write_path`为"example.asp"，并调用`WriteTextFile`子程序将内容写入到该文件。

提示与注意事项

这段脚本对于生成UTF-8格式的静态页面非常有用。请确保您的页面包含了设置代码页和字符集的代码，否则输出的内容可能会出现乱码。这些关键代码是：`<%%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%%>`、`<%% Response.CodePage=65001%%>`和`<%% Response.Charset="UTF-8" %%>`。

--