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

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

熱門標(biāo)簽:鳳臺(tái)百度地圖標(biāo)注店 外呼系統(tǒng)API接口 武夷山旅游地圖標(biāo)注 個(gè)人可以辦理400電話么 修改地圖標(biāo)注 萊西電子地圖標(biāo)注 縣域地圖標(biāo)注打印店 怎么在地圖標(biāo)注自己 金昌電話機(jī)器人價(jià)格
前面有人貼了用ADO STREAM做的無組件上傳程序,今天我做一下關(guān)于它的簡單介紹

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

但是,現(xiàn)在我們介紹的stream物件可以同時(shí)操作文本對(duì)象和二進(jìn)制對(duì)象,要求是您的機(jī)器上要安裝有ADO2。5或者更高版本,您可以從http://www.microsoft.com/data里去DOWN的。

這個(gè)stream對(duì)象包含了許多操作二進(jìn)制和文本文件的方法,讓我們來看例子吧

打開stream對(duì)象

!--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
對(duì)于以上的引用,如果您有不明白的地方,可以看我以前貼的帖子,具體什么名字忘記了

注意:如果版本不對(duì)以上代碼會(huì)提示錯(cuò)誤信息的。
現(xiàn)在您已經(jīng)建立了一個(gè)0長度的STREAM,任何時(shí)候,你都可以使用size屬性看改stream的大小,現(xiàn)在我們要指定操作什么類型的信息,二進(jìn)制還是text ,如果是text還要指定是ASCII還是UNICODE格式

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

接下來我們向這個(gè)stream里寫進(jìn)一個(gè)text文件,用它的loadfromfile方法

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

在這里要注意的是,如果你操作stream,一定要搞清楚位置的概念,這里我們使用了loadfromfile方法以后,原來stream里的內(nèi)容會(huì)被全部清除,然后,該文件被裝載到stream里面,接著stream的位置恢復(fù)為0,(stream的開始位置)
你如果在當(dāng)前0位置寫入信息,就會(huì)覆蓋原來的內(nèi)容,所以你如果想要追加?xùn)|西的話,必須從最后位置開始操作,如下代碼:

objStream.Position = objStream.Size

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

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

objStream.WriteText "請(qǐng)?jiān)L問我的聊天室,MM尤其歡迎"

哈哈
現(xiàn)在我們達(dá)到了我們的目的了,讓我們把它保存下來
這里要注意的是因?yàn)槟闶怯胕user_machinename的帳號(hào)的,所以相應(yīng)目錄要對(duì)該帳號(hào)開放寫權(quán)限的,這個(gè)是沒辦法的事,不然會(huì)出錯(cuò)。

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

前面我也說過,它也能操作二進(jìn)制對(duì)象,其實(shí)只要修改一些參數(shù)就可以了,讓我們來看一個(gè)例子:

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

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

:P

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

標(biāo)簽:赤峰 邢臺(tái) 清遠(yuǎn) 楚雄 南京 涼山 通遼 上海

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹》,本文關(guān)鍵詞  關(guān)于,用,ADO,STREAM,做,的,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹》相關(guān)的同類信息!
  • 本頁收集關(guān)于關(guān)于用ADO STREAM做的無組件上傳程序簡單介紹的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章