欢迎光临
我们一直在努力

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

建站超值云服务器,限时71元/月

前面有人贴了用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,不要忘记捧场啊!!!

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 关于用ADO STREAM做的无组件上传程序简单介绍
分享到: 更多 (0)