用ADODB.Stream代替FSO讀取文字檔案 (轉)

用ADODB.Stream代替FSO讀取文字檔案 (轉)[@more@]

昨天我問過這個問題,不過沒人回答到點上,今天搞定了.貼出來給覺得有用的朋友,希望其他朋友不用走彎路.

'內容讀取.
Function LoadFile(ByVal File)
  Dim objStream
  On Error Resume Next
  Set objStream = Server.Create("ADO.Stream")
  If Err.Number=-2147221005 Then
  Response.Write "

"
  Err.Clear
  Response.End
  End If
  With objStream
  .Type = 2
  .Mode = 3
  .Open
  .LoadFromFile Server.MapPath(File)
  If Err.Number<>0 Then
  Response.Write ""
  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 "

"
  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