28,406
社区成员
发帖
与我相关
我的任务
分享
<%
xxx = rs("xx").GetChunk(10000000)
Set oDoc = Createobject("MsXML.Domdocument")
With oDoc
.loadXml "<root/>"
.DocumentElement.DataType = "bin.base64"
.DocumentElement.NodeTypedValue = xxx
Respomse.Write .DocumentElement.text
End With
%>
Set oStream = Createobject("ADODB.Stream")
With oStream
.Type = 1
.Mode = 3
.Open
.Write rs("xx").GetChunk(rs("xx").ActualSize)
.Position = 0
End With
Set oDoc = Createobject("MsXML.Domdocument")
With oDoc
.loadXml "<root/>"
.DocumentElement.DataType = "bin.base64"
.DocumentElement.NodeTypedValue = oStream.read()
Respomse.Write .DocumentElement.text
End With
Set oStream = Createobject("ADODB.Stream")
With oStream
.Type = 1
.Mode = 3
.Open
.Write rs("xx").GetChunk(rs("xx").ActualSize)
End With
Set oDoc = Createobject("MsXML.Domdocument")
With oDoc
.loadXml "<root/>"
.DocumentElement.DataType = "bin.base64"
.DocumentElement.NodeTypedValue = oStream.read()
Respomse.Write .DocumentElement.text
End With