asp 에서 FSO 대신 ADODB.Stream 으로 텍스트 파일 읽 기

'파일 내용 읽 기

Function LoadFile(ByVal File) 
Dim objStream 
On Error Resume Next 
Set objStream = Server.CreateObject("ADODB.Stream") 
If Err.Number=-2147221005 Then 
Response.Write "<div align='center'>    ,       ADODB.Stream,       </div>" 
Err.Clear 
Response.End 
End If 
With objStream 
.Type = 2 
.Mode = 3 
.Open 
.LoadFromFile Server.MapPath(File) 
If Err.Number<>0 Then 
Response.Write "<div align='center'>  <font color='#ff0000'>"&File&"</font>     ，       !</font></div>" 
Err.Clear 
Response.End 
End If 
.Charset = "GB2312" 
.Position = 2 
LoadFile = .ReadText 
.Close 
End With 
Set objStream = Nothing 
End Function 

'파일 에 저장 내용

Sub SaveToFile(ByVal strBody,ByVal File) 
Dim objStream 
On Error Resume Next 
Set objStream = Server.CreateObject("ADODB.Stream") 
If Err.Number=-2147221005 Then 
Response.Write "<div align='center'>    ,       ADODB.Stream,       </div>" 
Err.Clear 
Response.End 
End If 
With objStream 
.Type = 2 
.Open 
.Charset = "GB2312" 
.Position = objStream.Size 
.WriteText = strBody 
.SaveToFile Server.MapPath(File),2 
.Close 
End With 
Set objStream = Nothing 
End Sub 

호출 예시

 
<% 
WriteFile "aaa.txt", "www.jb51.net", "utf-8" 
Response.Write ReadFile("aaa.txt", "utf-8") 
%>