繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 读取文件和保存文件函数代码
- ASP
- 迁移到 ASP .NET：需考虑的重要问题(2)
- ASP中优化数据库处理
- 结合XML, ADO, 以及ASP
- 在ASP中优化数据库处理
- 提高ASP性能的最佳选择（一）
- 返回UPDATE SQL语句所影响的行数的方法
- ASP如何使用MYSQL数据库
- 安全维护 IIS asp 站点的高级技巧
- 也谈ASP中的RESPONSE属性
- ASP提速技巧
- 在ASP中如何访问Novell下的数据库
- 改善ASP性能和外观的技巧集锦（上）
- 改善ASP性能和外观的技巧集锦（中）
- 改善ASP性能和外观的技巧集锦（下）
- 利用ASP在浏览器上打印输出
- 用ASP文件实现CPU的使用率始终保持100％
- ASP 0115 Error的解决方案
- Varchar与char的区别
- 探讨一下rs(0)和rs(fieldname)的执行效率
- 连接WEB数据库的ADO性能提高技巧
ASP 中的 asp 读取文件和保存文件函数代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 203 ::
收藏到网摘: n/a
对于asp下的不用fso，使用adodb.stream对象实现文件的保存与读取，避免一些虚拟主机不支持fso的机器。 '*************************************
'读取文件
'*************************************
Function LoadFromFile(ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.Position = objStream.Size
On Error Resume Next
.LoadFromFile Server.MapPath(File)
If Err Then
RText = Array(Err.Number, Err.Description)
LoadFromFile = RText
Err.Clear
Exit Function
End If
RText = Array(0, .ReadText)
.Close
End With
LoadFromFile = RText
Set objStream = Nothing
End Function
'*************************************
'保存文件
'*************************************
Function SaveToFile(ByVal strBody, ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = strBody
On Error Resume Next
.SaveToFile Server.MapPath(File), 2
If Err Then
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
Err.Clear
Exit Function
End If
.Close
End With
RText = Array(0, "保存文件成功!")
SaveToFile = RText
Set objStream = Nothing
End Function
评论 (0) All
