繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下用ADODB.Stream代替FSO读取文本文件
- ASP
- [原创]本人常用的asp代码
- asp防止刷新功能
- 生成所有页面的效果+分页生成
- ASP在SQL Server 2000中新建帐号和权限
- PR值查询代码制作
- GetRows的用法详解！
- ASP简洁的多重查询的解决方案
- ASP实现SQL备份、恢复
- 用ASP写组件
- ASP中Request对象获取客户端数据的顺序(容易忽略)
- 利用Adodb.Stream制作彩色验证码
- ASP 类 Class入门 推荐
- asp数据库防下载处理
- 浏览文件夹下面所有图片
- 结合asp和存储过程做的搜索程序
- 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
- 支持加号空格的查询
- 取得表单提交的所有数据
- 发邮件的asp(CDONTS.NewMail)
- 使用FSO把文本信息导入数据库
ASP 中的 asp下用ADODB.Stream代替FSO读取文本文件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 91 ::
收藏到网摘: n/a
'文件内容读取.
复制代码 代码如下:
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
评论 (0) All
