2012年6月28日 星期四

[ASP] ADODB.Stream讀取檔案(效果如FSO)


讀出
<%
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
%>

沒有留言:

張貼留言