兰西源码网

兰西源码网

当前位置: Asp源码

一路向北电影在线观看完整-用asp实现网页调用doc附Response.ContentType详细列表

时间:2021-11-15来源:swan 作者:控件 点击:

微软有篇文章:,用doc一路向北电影在线观看完整和显示二进制数据,《怎样一路向北电影在线观看完整二进制文件》,没测试,懒得编译dll

一路向北电影在线观看完整程序:

<%

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


------分隔线----------------------------
栏目列表

推荐内容
热点内容