Upload data source Elite Area straw farmer and other people
Submit.htm
<body>
<form name= "Form1" method= "Post" action= "upload.asp" enctype= "Multipart/form-data" >
<input type=file name= "File1" >
<input type=submit name= "Submit" value= "submitted" >
</form>
</body>
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) ' Get uploaded data
BCRLF=CHRB (+) & ChrB (10)
Divider=leftb (FORMDATA,CLNG (INSTRB (FORMDATA,BCRLF))-1)
POSITION=INSTRB (Formdata,bcrlf & Bcrlf) +4 ' upload file data start bit
FILESIZE=INSTRB (position+1,formdata,divider)-position-4 ' upload file data length
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 ' File save
Set Dr=nothing:set dr1=nothing
%>
