记忆盒子

把记忆装进灰色的盒子,封装起来,那年那月,重新拾起。

首页搜索目录
search
当前主题: 软件编程

asp生成utf-8格式文件

作者:Kaka    时间:2010-1-12 6:48:39    浏览:    评论:2

      ASP中可以用FSO生成文件,使用起来十分简单,几行代码可以完成,但是如果你想生成UTF-8格式的文件,恐怕FSO就无能为力了。

      FSO的CreateTextFile方法:

      FSO.CreateTextFile(Server.mappath("test.XML"),   true,   true)  

      最后一个参数是指定编码格式为Unicode,而默认或者不设值的话是ASCII,Unicode是UTF-8、UTF-16、UTF-32的合集,默认情况下为16,所以即使设置了参数为true,生成的文件格式也只是UTF-16,而非UTF-8。

      也就是说,FSO不支持直接生成UTF-8格式的文件。要想生成UTF-8格式的文件,需要用到adodb.stream对象。

      如下是代码:

      '函数名称:ReadTextFile
      '作用:利用Adodb.Stream对象来读取UTF-8编码的文件
      '示例:ReadFromTextFile("File/FileName.htm",UTF-8)
      Function ReadFromTextFile(FileUrl,CharSet)
      dim str,stm
      set stm=server.CreateObject("adodb.stream")
      stm.Type=2'以本模式读取
      stm.mode=3 
      stm.charset=CharSet
      stm.open
      stm.loadfromfile server.map(FileUrl)
      str=stm.readtext
      stm.Close
      set stm=nothing
      ReadFromTextFile=str
      End Function

      '函数名称:WriteToTextFile
      '作用:利用Adodb.Stream对象来写入UTF-8编码的文件
      '示例:WriteToTextFile("File/FileName.htm",Content,UTF-8)
      Sub WriteToTextFile(FileUrl,byval Str,CharSet)
      dim stm
      set stm=server.CreateObject("adodb.stream")
      stm.Type=2'以本模式读取
      stm.mode=3
      stm.charset=CharSet
      stm.open
      stm.WriteText Str
      stm.SaveToFile server.map(FileUrl,2)
      stm.flush
      stm.Close
      set stm=nothing
      End Sub

Tags: Asp  

加入本站QQ群(312716741),交流分享网站建设、优化、SEO技术。。。

 

上一篇: 检测网页的几种方式
下一篇: 冬泳有什么好处

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

订阅博客                   QQ交流群(312716741)

  • 通过Google订阅本站 通过鲜果订阅本站 通过抓虾订阅本站
  • 通过QQ邮箱订阅本站 通过Yahoo订阅本站 通过有道订阅本站

Search

最新评论及回复

最近留言

网站分类

Powered By Z-Blog 1.8 Walle Build 91204 Designed by Han'space

Copyright @2009 All Rights Reserved. 粤ICP备09073737号

Powered By Z-Blog 1.8 Walle Build 91204
Copyright @2009 All Rights Reserved.