日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

用ADO STREAM做的無組件上傳程序容易介紹

用ADO STREAM做的無組件上傳程序容易介紹

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:


以前,如果要用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
%>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美性黑人 | 日本在线观看免费看片 | 亚洲国产精品一区二区第一页 | 日韩欧美一区二区中文字幕 | 国产成人高清亚洲一区91 | 国产成人免费手机在线观看视频 | 亚洲国产精品一区二区久久 | 香蕉久久夜色精品国产2020 | 久久爱青青草 | 欧美一级午夜免费视频你懂的 | 免费超级碰碰视频网站在线观看 | 日本aaa级片 | 高清欧美一级在线观看 | 日日夜夜婷婷 | 日本高清色视频www 日本高清视频www | 狠狠色丁香久久婷婷 | 亚洲短视频| 亚欧成人毛片一区二区三区四区 | 日本精品久久久久中文字幕2 | 久久综合热 | 亚洲精品国产第一区二区多人 | 蜜桃嫩草| 欧美成人在线免费观看 | 国产成人+亚洲欧洲 | 亚洲午夜精品一区二区 | 黑人巨大精品欧美一区二区 | 亚洲国产视频网站 | 97精品视频在线观看 | 国产美女又黄又爽又色视频网站 | 爽天天天天天天天 | 亚州精品视频 | 久久99亚洲精品久久频 | 91综合久久久久婷婷 | 日本最新免费不卡二区在线 | 99在线观看免费 | 91精选国产| 成人性欧美丨区二区三区 | 99蜜臀噜噜噜在线视频观看 | 国产一区二区三区在线 | 97狠狠| 美女教师在办公室做爰网站 |