asp转化成utf

2021-03-03 03:50 admin
服务站 协助管理中心 技术性会员专区 asp转化成utf-8文件格式文档 公布   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("",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.MapPath(FileUrl)
  str=stm.readtext
  stm.Close
  set stm=nothing
  ReadFromTextFile=str
  End Function     '涵数名字:WriteToTextFile
  '功效:运用Adodb.Stream目标来载入UTF-8编号的文档
  '实例:WriteToTextFile("",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.MapPath(FileUrl,2)
  stm.flush
  stm.Close
  set stm=nothing
  End Sub