ASP 无组件上传

ASP 无组件上传

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

Form 二进制数据格式:

分割标志数据 + 0x0D0A
元素说明信息 + 0x0D0A0D0A
元素内容数据 + 0x0D0A

分割标志数据 + 0x0D0A
元素说明信息 + 0x0D0A0D0A
元素内容数据 + 0x0D0A

……

分割标志数据 + 0x0D0A


1． Upload.htm


　　
　　

　　


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