关于用ADO STREAM做的无组件上传程序简单介绍


前面有人贴了用ADO STREAM做的无组件上传程序,今天我做一下关于它的简单介绍

以前,如果要用ASP操作文件,比如移动、复制、删除或者创建一个记事本文件,基本上都是通过FILESYSTEMOBJECT对象做的,当然,这个东西很专业,也没说什么不好,它可以提供完善的文件信息,比如建立时间,大小,上次修改时间等等,但是如果你不做痛苦的高代价的字符格式转换的话,利用它你无法直接操作二进制文件。

但是,现在我们介绍的stream物件可以同时操作文本对象和二进制对象,要求是您的机器上要安装有ADO2。5或者更高版本,您可以从http://www.microsoft.com/data里去DOWN的。

这个stream对象包含了许多操作二进制和文本文件的方法,让我们来看例子吧

打开stream对象

<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--><%'Create a Stream instanceDim objStreamSet objStream = Server.CreateObject("ADODB.Stream")'Open the streamobjStream.Open
对于以上的引用,如果您有不明白的地方,可以看我以前贴的帖子,具体什么名字忘记了

注意:如果版本不对以上代码会提示错误信息的。
现在您已经建立了一个0长度的STREAM,任何时候,你都可以使用size属性看改stream的大小,现在我们要指定操作什么类型的信息,二进制还是text ,如果是text还要指定是ASCII还是UNICODE格式

如下代码:
objStream.Type = adTypeText
objStream.Charset = "ascii"

接下来我们向这个stream里写进一个text文件,用它的loadfromfile方法

objStream.LoadFromFile "D:\Inetpub\wwwroot\webtech\083100-1.shtml"

在这里要注意的是,如果你操作stream,一定要搞清楚位置的概念,这里我们使用了loadfromfile方法以后,原来stream里的内容会被全部清除,然后,该文件被装载到stream里面,接着stream的位置恢复为0,(stream的开始位置)
你如果在当前0位置写入信息,就会覆盖原来的内容,所以你如果想要追加东西的话,必须从最后位置开始操作,如下代码:

objStream.Position = objStream.Size

该代码把当前位置移到最后

现在我们可以往后面加东西了,嘿嘿,比如

objStream.WriteText "请访问我的聊天室,MM尤其欢迎"

哈哈
现在我们达到了我们的目的了,让我们把它保存下来
这里要注意的是因为你是用iuser_machinename的帐号的,所以相应目录要对该帐号开放写权限的,这个是没办法的事,不然会出错。

objStream.SaveToFile"D:\InetPub\wwwroot\demos\StreamDemo.txt", adSaveCreateOverwrite

继承我们的优良传统,使用完以后,关闭释放

'Close the stream and set it to nothing...
objStream.Close
Set objStream = Nothing
%>

前面我也说过,它也能操作二进制对象,其实只要修改一些参数就可以了,让我们来看一个例子:

<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
'Create a stream object
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

'Open a GIF file
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile "D:\Inetpub\wwwroot\images\banner\dimacbanner1.gif"

'Output the contents of the stream object
Response.ContentType = "image/gif"
Response.BinaryWrite objStream.Read

'Clean up....
objStream.Close
Set objStream = Nothing
%>

你可以试试用这个写一个上传的东西,这样学习起来快,反正有现成的老师在,可以参考

:P

希望能对你有帮助,对了,我的聊天室是http://www.sanchat.com,不要忘记捧场啊!!!



相关阅读:
Vista中IE提示证书错误解决方法
asp.net 结合YUI 3.0小示例
邮件发送类,支持HTML格式,支持优先级设置
ASP编程入门进阶(十一):Chat聊天程序
数据库分页存储过程代码
MYSQL中如何存取二进制文件
在B/S开发中经常用到的JavaScript技术
在SQL Server计算列和平均值
利用XMLHTTP实现的二级连动Select
提升JSP应用程序的七大绝招
VBS教程:方法-Keys 方法
asp在IE浏览器中下载服务端上的各类文件的实现方法
让任务管理器中的CPU跳舞的js代码
sockaddr与sockaddr_in
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 我爱祖国作文1200字 话说丹霞山美文随笔 鲶鱼菲利普 加强银行案件防范的工作建议 十七大报告解读:坚定不移把改革开放推向前进 今夜月明人尽望作文 语言运用·仿写 爱人的含义 美好的回忆作文350字 风雨之后出彩虹 小学五年级作文450字:今年春节我最孝 学习实践科学发展观心得体会:用科学发展观指导妇联的儿童工作 鹤叹二首 经典诗词歌赋 人生要平静 关于中秋的作文 如果---如果---请你记得我! 供销联社党委书记述职报告 昌谷诗(五月二十七日作) 世界上最浪漫的情话_甜蜜幸福的句子 不要给别人浪费你时间的机会,那就是在浪费自己生命 生活中不能没有你——书600字 语文课堂的感受作文700字 我们的第二个家作文900字 名著《水浒传》读后感体会450字 描写桃花的作文200字 可爱的幸福草 碎花恋 司法局2009年精神文明建设工作要点 为什么男人更爱火辣身材 我读《西风独自凉》:情深无归处 有一种臆想告诉我,翅膀的方向 2015小学生为生命喝彩演讲稿 描写父爱如山的优秀作文800字 茶花女摘抄 机关效能投诉中心职责、权限 2014年会计实习报告格式 包粽子悟出的道理 体会小生活2作文500字 我就是想自己走走...... 谷歌创始人拉里·佩奇密歇根大学毕业演讲稿 小学五年级作文450字:上网的两面性 曾经的恋人啊!祝你幸福! 伊犁的芬芳(二)原创 土木工程专业的实习日记_实习报告 用毅力之光驱散生命的黑暗作文700字 岁月荏苒,已记不起何时有过写作的冲动了,也不知为何此时会不禁提起! 精选霸气古风句子 我爱美丽的冬天】 最小说经典语句 我更喜欢你

Copyright © 2016 phpStudy |