asp 读取文件和保存文件函数代码
来源:asp之家 时间:2011-04-04 11:17:00
'*************************************
'读取文件
'*************************************
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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何判断发言是否为空?
图标设计常犯的10种错误
![](https://img.aspxhome.com/file/UploadPic/20083/6/200836134649762s.jpg)
Div+CSS布局入门教程
![](https://img.aspxhome.com/file/uploadpic/20079/13/20079131325394.gif)
ASP中3种分页显示的性能比较
网马解密大讲堂——网马解密初级篇
小xiao说说创意图标设计心得
![](https://img.aspxhome.com/file/UploadPic/200911/18/zhiban-01-14s.jpg)
如何判断用户是否非正常离开聊天室?
如何连续展示数据库里的图片?
如何判断js脚本加载完成
用ASP实现Google在线文章翻译的功能
Access下如何使用通用对话框
asp函数InstrRev()介绍及获取文件名例子
ASP CacheControl 属性
sqlserver数据库迁移后,孤立账号解决办法
DB2和 Oracle的并发控制(锁)的比较
xhtml有哪些块级元素
动态导航设计
![](https://img.aspxhome.com/file/UploadPic/20089/21/2008921134132724s.jpg)
妙用Dreamweaver MX共享Word XP文件
![](https://img.aspxhome.com/file/UploadPic/20072/200723113242108s.jpg)
在服务端合并和压缩JavaScript和CSS文件
![](https://img.aspxhome.com/file/UploadPic/20107/15/cdn-and-minify-50s.png)