asp下用ADODB.Stream代替FSO读取文本文件

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp下用ADODB.Stream代替FSO读取文本文件，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1263字，纯文字阅读大概需要2分钟。

内容图文

'文件内容读取.
代码如下:
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.gxlsystem.com", "utf-8" 
Response.Write ReadFile("aaa.txt", "utf-8") 
%> 

            
            


           
                
                                                

内容总结

以上是互联网集市为您收集整理的asp下用ADODB.Stream代替FSO读取文本文件全部内容，希望文章能够帮你解决asp下用ADODB.Stream代替FSO读取文本文件所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---