關於用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,不要忘記捧場啊!!!




文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:

评论: 0 | 引用: 0 | 查看次数: 5858
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭