ITPub博客

首页 > 应用开发 > IT综合 > 用ADODB.Stream代替FSO读取文本文件 (转)

用ADODB.Stream代替FSO读取文本文件 (转)

原创 IT综合 作者:amyz 时间:2007-11-16 17:54:03 0 删除 编辑
用ADODB.Stream代替FSO读取文本文件 (转)[@more@]

昨天我问过这个问题,不过没人回答到点上,今天搞定了.贴出来给觉得有用的朋友,希望其他朋友不用走弯路.

'文件内容读取.
Function LoadFile(ByVal File)
  Dim objStream
  On Error Resume Next
  Set objStream = Server.Createobject("ADOdb.Stream")
  If Err.Number=-2147221005 Then
  Response.Write "

非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序
"
  Err.Clear
  Response.End
  End If
  With objStream
  .Type = 2
  .Mode = 3
  .Open
  .LoadFromFile Server.MapPath(File)
  If Err.Number<>0 Then
  Response.Write "
文件"&File&"无法被打开,请检查是否存在!
"
  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 "

非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序
"
  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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-982749/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339146