首页 >> 读书频道 >> 电脑 >> 用ADO STREAM做的无组件上传程序
 
· 利用XML不离开页面刷新
· 关于 aspsmartu
· ASP乱码的解决方法
· ASP向NT域中加一个用
· 用ASP实现从SQL S
· ASP中有关timeou
· 怎样写你自己的EMAIL
· 如何在主页中控制浏览权限
· 用ADO STREAM做
· 如何用asp把sqlse
· 在 Web 页上使用条件
· 如何使replace方法
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

用ADO STREAM做的无组件上传程序


查看有无更新版本

关键字:ASP技巧 2006-9-8

 

用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
%>
你可以试试用这个写一个上传的东西,这样学习起来快,反正有现成的老师在,可以参考

用ADO STREAM做的无组件上传程序

[ 1 ]
用ADO STREAM做的无组件上传程序 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑