用ASP生成UTF-8网页文件的两种方法
(编辑:jimmy 日期: 2024/11/5 浏览:3 次 )
方法一:createtextfile生成文件方法
复制代码 代码如下:
<%function WriteToFile(FileName,FileContent)
set fso=server.createobject("scripting.filesystemobject")
set fp=fso.createtextfile(server.mappath(FileName),,True)
fp.write(FileContent)
end function%>
方法二:ADODB.Stream生成文件方法
复制代码 代码如下:
<%Function WriteToFile(FileName,FileContent)
Set ccObjStream = Server.CreateObject("ADODB.Stream")
With ccObjStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.Position = ccObjStream.Size
.WriteText FileContent
.SaveToFile FileName,2
.Close
End With
End Function%>
复制代码 代码如下:
<%function WriteToFile(FileName,FileContent)
set fso=server.createobject("scripting.filesystemobject")
set fp=fso.createtextfile(server.mappath(FileName),,True)
fp.write(FileContent)
end function%>
方法二:ADODB.Stream生成文件方法
复制代码 代码如下:
<%Function WriteToFile(FileName,FileContent)
Set ccObjStream = Server.CreateObject("ADODB.Stream")
With ccObjStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.Position = ccObjStream.Size
.WriteText FileContent
.SaveToFile FileName,2
.Close
End With
End Function%>
下一篇:[ASP]RegExp对象提供简单的正则表达式支持功能使用说明