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
0
投稿猜你喜欢
近年来，广告已成为很多网站的主要收入来源。不久前，在线广告往往遭到访客的拒绝，广告客户也不确定它的价值和效力。今天，大多数访客期望在商业网站- 关于中大型开发b/s开发中的缓存(cache)，我的一些看法，有不正确的或者是有笔误的地方，请指正。thanks首先，应该了解基本的，对于缓
- 下表列出 SQL Server 查询分析器提供的所有键盘快捷方式。活动 快捷方式 书签：清除所有书签。 CTRL-SHIFT-F2
- 网站上的Banner条，是网站用来作为盈利或者是发布一些重要的信息的工具。但是它又不能作为网页的主要内容，因为它的主要目的是吸引人的注意力，
- 本次薯片会一改以往低调、沉稳之作风，先瑜伽团美女show上阵，再是以臭为首的吃喝团上阵，两轮下来大家情绪Hight到了极点，自然讨论的时候思
- 用window.open打开的窗口中，有时候session变量会丢掉，给asp编程带来的一定的麻烦。用参数传递解决它：<DIV&nbs
- 这段时间写了很多页面代码，除了一些知识重复以外，也学到css的一些新东西，或许是旧东西，但是还是希望能对大家有用。其实在css里面有很多对a
- SQL Server数据库快捷键：书签：清除所有书签。 CTRL-SHIFT-F2书签：插入或删除书签（切换）。 CTRL+F2书签：移动到
- 一、连接MYSQL：格式： mysql -h主机地址 -u用户名 -p用户密码1、例1：连接到本机上的MYSQL。首先在打开DOS窗口，然后
- 用XMlhttp生成html页面，相关函数如下：<％ ’定义xmlhttp function Get
- 首先，我们会document里添加mouseover事件时在HTMLElement上飘一个absolute的容器，设置border。接着，m
- 有时候要用Javascript输常用的字符，比如每个页面都要有的脚注。这里提供一个转换脚本：将HTML自动转为JS代码<script&
- 最近一直在研究 Javascript 相关的技术。在《Javascript 高级程序设计》有篇章节着重阐述了优化 Javascri
- 大家知道直接使用ASP是不能够重启服务器的，这时我们需要制作一个组件来实现功能，ASP通过这个组件调用系统API，然后按照不同的重启和关机方
- 我查了资料：setRequestHeader，单独指定请求的某个http头语法oXMLHttpRequest.setRequestHeade
- 引言最常见的闭包 (Closure) 范式大家都很熟悉了：(function() {// ...})(); 很
- 假如不使用INSTEAD OF触发器或可更新分区视图而是通过视图来修改数据，那么再修改之前，请考虑下列准则：◆如果在视图定义中使用了 WIT
- asp之家注：防止表单重复提交的方法，在客户端其实很容易实现，只要使用js让用户第一次点击提交按钮后，把提交按钮设置为disabled，这样
- 经常用FLASH嵌入到网页里面，那咋能躲过W3C那个家伙呢？看下面！<object type="applicati
- 本节为读者讲解如何利用ADO.NET本身的参数对象和存储过程技术防止注入攻击，以达到用户界面输入与原始SQL的分离，使黑客无法拼接SQL语句
