ASP 无组件上传

brsozdcx

于 2014-05-10 09:18:49 发布

阅读量795

点赞数

本文链接：https://blog.youkuaiyun.com/u014739775/article/details/25457653

版权

ASP 无组件上传

说明：从网上收集了一部分，自己写了一部分。主要提升就是对于form的二进制数据进行了类封装，可以容易的得到form内的元素的信息。

Form 二进制数据格式:

分割标志数据 + 0x0D0A

元素说明信息 + 0x0D0A0D0A

元素内容数据 + 0x0D0A

分割标志数据 + 0x0D0A

元素说明信息 + 0x0D0A0D0A

元素内容数据 + 0x0D0A

……

分割标志数据 + 0x0D0A

1． Upload.htm

<html>

　　<body>

</form>

　　</body>

</html>

2. upload.asp

'by sam 2004,6

'###############################################################################

response.expires = 0

if request.servervariables("REQUEST_METHOD")="POST" then

response.clear()

response.buffer=true

set uform = new uploadform

uform.find_element "text0"

data = midb(uform.formdata,uform.datastart,uform.datalen)

Response.binaryWrite data

sdata = binarytostring(data)

Response.write sdata

Response.binarywrite stringtobinary(sdata)

uform.find_element "file1"

savefile server.mappath("/recv1.dat"),uform.formdata,uform.datastart,uform.datalen

uform.find_element "file2"

savefile server.mappath("/recv2.dat"),uform.formdata,uform.datastart,uform.datalen

set uform = nothing

end if

3. upload.inc

'by sam 2004,6

'#################################################################

function savefile(filename,formdata,start,len)

set strm1=server.createobject("adodb.stream")

set strm2=server.createobject("adodb.stream")

strm1.open

strm1.type=1 'binary

strm2.open

strm2.type=1 'binary

strm1.write formdata

'strm1.savetofile server.mappath("/1.raw"),2

strm1.position = start - 1

strm1.copyto strm2,len

'strm2.savetofile server.mappath("/1.gif"),2

strm2.savetofile filename,2

set strm1=nothing

set strm2=nothing

end function

function simplebinarytostring(binary)

dim i, s

for i = 1 to lenb(binary)

s = s & chr(ascb(midb(binary,i,1)))

simplebinarytostring = s

end function

function binarytostring(binary)

dim cl1,cl2,cl3,pl1,pl2,pl3

dim l

cl1 = 1

cl2 = 1

cl3 = 1

l = lenb(binary)

do while cl1<=l

pl3 = pl3 & chr(ascb(midb(binary,cl1,1)))

cl1 = cl1 + 1

cl3 = cl3 + 1

if cl3>300 then

pl2 = pl2 & pl3

pl3 = ""

cl3 = 1

cl2 = cl2 + 1

if cl2>200 then

%>