html文件在线转utf-8,以UTF-8格式,生成HTML文件的方法.

方法一:以FSO方法来生成:

'=================================================

'函数名：WriteToFile_FSO

'作  用：写入相应的内容到指定的文件

'参  数：FileName ---- 写入文件的文件名

'        FileContent ---- 写入文件的内容

'=================================================

Function WriteToFile_FSO(FileName, FileContent)

On Error Resume Next

Err.Clear

Dim objectfso

'fso.OpenTextFile(filename[, iomode[, create[, format]]])

'fomat参数用于指定以何种编码的方式来读取文件,-2:使用系统缺省打开文件;–1  以 Unicode 格式打开文件;0  以 ASCII 格式打开文件

Set objectfso = fso.OpenTextFile(Server.MapPath(FileName), 2, True,-1)

objectfso.Write FileContent

objectfso.Close

Set objectfso = Nothing

If Err Then

WriteToFile_FSO = Err.Description

Err.Clear

Else

WriteToFile_FSO = ""

End If

End Function

方法二:以ADO.Stream的方式

'=================================================

'函数名：WriteToFile_ADO

'作  用：写入相应的内容到指定的文件

'参  数：FileName ---- 写入文件的文件名

'        FileContent ---- 写入文件的内容

'=================================================

Function WriteToFile_ADO(FileName, FileContent)

On Error Resume Next

Err.Clear

Dim stream

Set stream = Server.CreateObject("ADODB.Stream")

stream.Type = 2

stream.Mode = 3

stream.Open

stream.CharSet = "UTF-8"   '指定以Unicode方式写入文件    stream.Position = 0

stream.WriteText  FileContent

stream.SaveToFile Server.MapPath( FileName), 2

stream.Close

Set stream = Nothing

If Err Then         WriteToFile_ADO = Err.Description         Err.Clear     Else         WriteToFile_ADO = ""     End If End Function