<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'adodb读utf-8格式文本
function ReadFromUTF (TempString,CharSet) 'TempString要读取的模板文件路径; Charset是编码
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 'adTypeBinary=1 adTypeText=2
stm.mode=3 'adModeRead=1 adModeWrite=2 adModeReadWrite=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(TempString)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromUTF=str
end function
dim TEMP
TEMP=ReadFromUTF("index.asp","UTF-8") '读取举例，index.asp是要读取的文件名
'写入UTF-8格式文件
Sub WriteToUTF(FileUrl,Str,CharSet) 'FileUrl 是文件保存的文件名,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
Call WriteToUTF("index.htm",TEMP,"UTF-8") '写入举例，index.htm是要生成的文件名
%>