'lngRequestSize 和binRequestData 都是上页的file控件直接提交过来的
在下一页直接接受传过来的数据就可以
lngRequestSize = request.totalbytes
binRequestData = request.binaryread(lngRequestSize)
'session偵抣傪梌偊傞
session("lngRequestSize") = lngRequestSize
session("binRequestData") = binRequestData
Set objStream = Server.CreateObject("ADODB.Stream")
lngRequestSize = session("lngRequestSize")
binRequestData = session("binRequestData")
objStream.Type = 1
objStream.Open
objStream.Write binRequestData
dim curr : curr=1
Set formStream = Server.CreateObject("ADODB.Stream")
Dim bCrLf,strSeparator,intSeparator
bCrLf=ChrB(13)&ChrB(10)
intSeparator=InstrB(1,binRequestData,bCrLf)-1
strSeparator=LeftB(binRequestData,intSeparator)
p_
Asp无组件上传源代码(改良版)
最新推荐文章于 2023-08-20 12:30:47 发布
这段ASP代码展示了如何无组件上传文件,并通过Session存储数据。通过ADODB.Stream处理二进制数据,避免了文件大小多出两个字节的问题。代码中对文件头部信息和数据进行解析,并保存到指定文件。
摘要由CSDN通过智能技术生成