IDC资讯中心
资料来源精华区 稻草老农等人
submit.htm
<html><title>example</title>
<body>
<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
<input type=file name="file1">
<input type=submit name="submit" value="提交">
</form>
</body>
</html>
upload.asp
<%@ language=vbscript %>
<%
function binarytoasi(byval varstr)
asi=""
for i=1 to 3
asi=asi&chr(ascb(midb(varstr,i,1)))
next
binarytoasi=asi
end function
formsize=request.totalbytes
formdata=request.binaryread(request.totalbytes ) 获得上传数据
bcrlf=chrb(13) & chrb(10)
divider=leftb(formdata,clng(instrb(formdata,bcrlf))-1)
position=instrb(formdata,bcrlf & bcrlf)+4 上传文件数据开始位
filesize=instrb(position+1,formdata,divider)-position-4 上传文件数据长度
exnamestart=instrb(1,formdata,chrb(46),1)+1
exnameend=instrb(exnamestart,formdata,chrb(34),1)
exname=midb(formdata,exnamestart,exnameend-exnamestart)
set dr=createobject("adodb.stream")
dr.mode=3: dr.type=1:dr.open
set dr1=createobject("adodb.stream")
dr1.mode=3:dr1.type=1:dr1.open
dr.write formdata
dr.position=position-1
dr.copyto dr1,filesize
dr1.savetofile "d:/mailtemp/temp_"&session("userid")&"."&binarytoasi(exname),2 文件保存
set dr=nothing:set dr1=nothing
%>
