国产伦子系列麻豆精品,洲一级片手机在线

主頁 > 知識庫 > 關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹

關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹

前面有人貼了用ADO STREAM做的無組件上傳程序，今天我做一下關(guān)于它的簡單介紹

以前，如果要用ASP操作文件，比如移動、復(fù)制、刪除或者創(chuàng)建一個記事本文件，基本上都是通過FILESYSTEMOBJECT對象做的，當(dāng)然，這個東西很專業(yè)，也沒說什么不好，它可以提供完善的文件信息，比如建立時間，大小，上次修改時間等等，但是如果你不做痛苦的高代價的字符格式轉(zhuǎn)換的話，利用它你無法直接操作二進制文件。

但是，現(xiàn)在我們介紹的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
對于以上的引用，如果您有不明白的地方，可以看我以前貼的帖子，具體什么名字忘記了

注意：如果版本不對以上代碼會提示錯誤信息的。
現(xiàn)在您已經(jīng)建立了一個0長度的STREAM，任何時候，你都可以使用size屬性看改stream的大小，現(xiàn)在我們要指定操作什么類型的信息，二進制還是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里的內(nèi)容會被全部清除，然后，該文件被裝載到stream里面，接著stream的位置恢復(fù)為0，（stream的開始位置）
你如果在當(dāng)前0位置寫入信息，就會覆蓋原來的內(nèi)容，所以你如果想要追加?xùn)|西的話，必須從最后位置開始操作，如下代碼：

objStream.Position = objStream.Size

該代碼把當(dāng)前位置移到最后

現(xiàn)在我們可以往后面加?xùn)|西了，嘿嘿，比如

objStream.WriteText "請訪問我的聊天室，MM尤其歡迎"

哈哈
現(xiàn)在我們達到了我們的目的了，讓我們把它保存下來
這里要注意的是因為你是用iuser_machinename的帳號的，所以相應(yīng)目錄要對該帳號開放寫權(quán)限的，這個是沒辦法的事，不然會出錯。

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

繼承我們的優(yōu)良傳統(tǒng)，使用完以后，關(guān)閉釋放

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

前面我也說過，它也能操作二進制對象，其實只要修改一些參數(shù)就可以了，讓我們來看一個例子：

!--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
%>

你可以試試用這個寫一個上傳的東西，這樣學(xué)習(xí)起來快，反正有現(xiàn)成的老師在，可以參考

:P

希望能對你有幫助，對了，我的聊天室是http://www.sanchat.com,不要忘記捧場?。。。?

標簽：赤峰邢臺清遠楚雄南京涼山通遼上海

巨人網(wǎng)絡(luò)通訊聲明：本文標題《關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹》，本文關(guān)鍵詞關(guān)于,用,ADO,STREAM,做,的,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。