ASP使用ADODB.Stream讀取二進製文件
下麵的函數是ASP讀取二進製文件的方法之一,我認為比較方便
<%
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To get binary data.
BinaryStream.Type = adTypeBinary
'Open the stream
BinaryStream.Open
'Load the file data from disk To stream object
BinaryStream.LoadFromFile FileName
'Open the stream And get binary data from the object
ReadBinaryFile = BinaryStream.ReadEnd
Function
%>
使用舉例，讀取gif文件，顯示在瀏覽器中
<%
Dim path, gifdata
' Locate the file on disk
path = server.mappath("/images/someImage.gif")
' Read the GIF image data
gifdata = ReadBinaryFile(path)
' Send the GIF image to the browser
'Response.ContentType = "image/gif"
'Response.Buffer = True
'Response.Clear
'Response.BinaryWrite gifdata
'Response.Flush
%>
