方法一:以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