<form action="down.asp" method="post" enctype="multipart/form-data" name="myform">
<input type="file" name="file">
<input type="submit" name="Submit" value="提交" >
</form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" Then
'===============================================直接获取二进制文件,进行数据流分析================
response.Clear()
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
set fso=server.CreateObject("Adodb.stream")
with fso
.type=1
.open
.position=0
.write formdata
.savetofile server.MapPath("/1.rar"),2
end with
set fso=Nothing
End if
%>
|
