|
'-- upload.htm
<HTML> <HEAD><TITLE> File Upload </TITLE></HEAD> <BODY> <FORM ENCTYPE="multipart/form-data" ACTION="upload.asp" METHOD=POST> Scegli la Picture da uploadare: <BR><INPUT NAME="picture" TYPE=FILE ACCEPT="image/*"> <BR><INPUT TYPE=SUBMIT VALUE="Invia!"> </FORM> </BODY> </HTML> '-- upload.asp <% FormSize = Request.TotalBytes IF FormSize > 10000 THEN Response.End FormData = Request.BinaryRead( FormSize ) bnCRLF = chrB( 13 ) & chrB( 10 ) Divider = LEFTB( FormData, INSTRB( FormData, bnCRLF ) - 1 ) DataStart = INSTRB( FormData, bnCRLF & bnCRLF ) + 4 DataEnd = INSTRB( DataStart + 1, FormData, divider ) - DataStart Response.ContentType = "image/gif" Response.BinaryWrite MIDB( FormData, DataStart, DataEnd ) %> |