ASP如何创建一个二进制流文件

[jeany_yang]

现在想用ASP创建一个二进制流文件：文件内容是一般的html格式里面有一个A标记这样。
将创建的文件二进制流数据存到数据库。没多少分了，希望有人解答，在线急等！

[jeany_yang]

'----生成html文件
set objFile=Server.CreateObject("Scripting.FileSystemObject")
set objTextFile=objFile.CreateTextFile (Server.Mappath("/未付款清单列表"&OAMission_code&".html"))
objTextFile.writeLine request("filehtml")
objTextFile.close
Set objFile=nothing
set objTextFile=nothing

'函数的参数为path,文件的===物理路径===
function getBinData(path)
dim bindata,objstream,i,iHex
set objstream=server.createobject("adodb.stream")
objstream.Type=1'1为2进制,2为文本
objstream.mode=3
objstream.open
objstream.Position=0
objstream.loadfromfile path
'bindata=objstream.read(objstream.Size)
For i = 1 To LenB(objstream.Read())
objstream.Position = 0
iHex = Hex(AscB(MidB(objstream.Read(), i, 1)))
If Len(iHex) = 1 Then iHex = "0" & iHex
getBinData = getBinData & iHex
Next
objstream.close
set objstream=nothing
end function

stream=getBinData(Server.Mappath("/123.html"))
这样得出的二进制流为什么解析完是这个文件的内容而不是一个文件呢？能帮我改下？

[Go 旅城通票]

'函数的参数为path,文件的===物理路径===
function getBinData(path)
dim bindata,objstream,i,iHex
set objstream=server.createobject("adodb.stream")
objstream.Type=1'1为2进制,2为文本
objstream.mode=3
objstream.open
objstream.Position=0
objstream.loadfromfile path
bindata=objstream.read(objstream.Size)

getBinData=bindata'=======这样不就行了吗，就是你需要的2进制数据了
end function  

[Dogfish]

adodb.stream