asp 無元件上傳
說明:從網上收集了一部分,自己寫了一部分。主要提升就是對于form的二進制資料進行了類封裝,可以容易的得到form内的元素的資訊。
form 二進制資料格式:
分割标志資料 + 0x0d0a
元素說明資訊 + 0x0d0a0d0a
元素内容資料 + 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
‘#################################################################
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
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 = ""
cl2 = cl2 + 1
if cl2>200 then