asp在utf-8编码时读写文件

最新推荐文章于 2021-06-05 13:44:55 发布

原创最新推荐文章于 2021-06-05 13:44:55 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

asp 专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何在ASP中使用UTF-8编码进行文件的读取和写入操作，解决字符编码问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用UTF-8编码打开文件

Function ReadFromUTF(TempString)
  Set stm=server.CreateObject(ADO_STR)
  stm.Type=2
  stm.Mode=3
  stm.Charset="utf-8"
  stm.Open
  stm.loadfromfile Server.MapPath(TempString)
  str=stm.readtext
  stm.Close
  Set stm=Nothing
  ReadFromUTF=str
End Function

使用UTF-8编码保存文件

Function WriteToUTF(content,Filen)
  Set objStream=Server.CreateObject(ADO_STR)
    With objStream
    .Open
    .Charset="utf-8" '编码，这里你可以改成任何编码
    .Position=objStream.Size
    .WriteText=content '模版+数据 写入内容
    .SaveToFile server.mappath(Filen),2 '生成文件路径
    .Close
    End With
  Set objStream=Nothing
End Function

防止注入bom头

Sub FSOSaveFile(Content,FileName)
	dim stm:set stm=server.CreateObject("adodb.stream")
	stm.Type=2 '以文本模式读取
	stm.mode=3
	stm.charset="utf-8"
	stm.open
	stm.Writetext (content)
	stm.Position = 3
	dim newStream:Set newStream = Server.CreateObject("adodb.stream")
	With newStream
		.Mode = 3
		.Type = 1
		.Open()
	End With
	stm.CopyTo(newStream)
	newStream.SaveToFile server.MapPath(FileName),2
	stm.flush
	stm.Close
	Set stm = Nothing
	Set newStream = Nothing
End Sub