ASP UTF-8编码生成静态网页的函数

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

'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入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

其中， 这一行要注意路径问题，stm.SaveToFile server.MapPath(FileUrl),2

您可能感兴趣的文章:

php 判断网页是否是utf8编码的方法js 显示base64编码的二进制流网页图片Base64编码加密JS代码网页版多种语言(big5gbkgb2312utf8Shift_JISiso8859-1)的网页编码切换解决方案归纳ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法asp.net HttpWebRequest自动识别网页编码asp.net 网页编码自动识别代码vbs或asp采集文章时网页编码问题网页语言编码及asp乱码问题解决方案判断网页编码的方法python版