asp stream(转)

打开stream对象

<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"-->
<%'Create a Stream instance
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
'Open the stream
objStream.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
%>

scripting.dictory 是值属性