Stimson (trabalho original)
atualmente tem muitas classes de upload sem componentes. Dei uma olhada e descobri que a maioria delas é bastante complexa. Algumas só podem transmitir texto. código :) Passei uma noite inteira estudando ADODB.Stream e usei 6 linhas de código para implementar upload sem componentes:
strFileName = Request.QueryString("file1")
Definir objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Servidor."123_onweb.gif",2
Como usar:
Escreva o código acima como upload.asp
Digite no navegador:
GetNomeArquivo = mid(strArquivo,InStrRev(strArquivo, "")+1)
Outro
GetNomeArquivo = ""
Terminar se
Função final
strFileName = Request.Form("arquivo1")
Definir objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Fechar
%>
arquivo upload.htm
<form name="FORM" action="upload.asp" método="post">
<input type="submit" name="submit" value="OK">
<input type="arquivo" nome="arquivo1" estilo="largura:400" valor="">
</form>