讀出 <% set stm=server.CreateObject("adodb.stream") stm.charset="UTF-8" stm.Open stm.loadfromfile filepath '路徑 foslist=stm.readtext '內容 stm.Close set stm=nothing %> 寫入 <% Set stm = server.createobject("ADODB.Stream") stm.Charset = "UTF-8" stm.Open stm.WriteText dsvd & foslist '內容,1換行 stm.SaveToFile filepath, 2 '路徑 stm.Close set stm=nothing %> |
沒有留言:
張貼留言