微軟有篇文章:http://support.microsoft.com/kb/193998/zh-cn,用doc讀取和顯示二進制數據,《怎樣讀取二進制文件》,沒測試，懶得編譯dll asp程序： <% response.buffer=true response.contenttype="application/x-msexcel" dim vntstream set oMyObject=server.createObject("MyObject.BinRead")'這個組件后面介紹 vntstream=oMyObject.readBinfile("c:/temp/tempxls.xls") response.binarywrite(vntstream) set oMyObject.Nothing response.end %>
控件代碼： 第一步：在VB中創建一個ActiveX DLL Project 第二步：把工程名改為MyObject 第三步：把class更名為BinRead 第四步：在class模塊中寫上以下代碼 Function readBinFile(ByVal bfilename As String) Dim fl As Long Dim FileNum As Byte Dim binbyte() As String
FileNum = FreeFile Open bfilename For Binary Access Read As #FileNum
