微軟有篇文章: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
fl = FileLen(bfilename) ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum readBinFile = binbyte End Function 第五步:存盤 第六步:編譯