ASP 無組件上傳

來源:互聯網
上載者:User
上傳|無組件 ASP 無組件上傳



說明:從網上收集了一部分,自己寫了一部分。主要提升就是對於form的位元據進行了類封裝,可以容易的得到form內的元素的資訊。



Form 位元據格式:



分割標誌資料 + 0x0D0A

元素說明資訊 + 0x0D0A0D0A

元素內容資料 + 0x0D0A



分割標誌資料 + 0x0D0A

元素說明資訊 + 0x0D0A0D0A

元素內容資料 + 0x0D0A



……



分割標誌資料 + 0x0D0A





1. Upload.htm



<html>

  <head><title>檔案上傳</title></head>

  <body>

<form enctype="multipart/form-data" action="upload.asp" method="post">

<input name="text0" type=text value="文字框"><br>

<input name="file1" type=file accept="image/*"><br>

<input name="file2" type=file accept="image/*"><br>

<input type=submit value="上傳">

</form>

  </body>

</html>



2. upload.asp

<!--#include file="upload.inc"-->

<%

'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)))

next

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

pl1 = pl1 & pl2

pl2 = ""

cl2 = 1

end if

end if

loop

binarytostring = pl1 & pl2 & pl3

end function






相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。