Stimson (trabajo original)
actualmente tiene muchas clases de carga sin componentes. Eché un vistazo y descubrí que la mayoría de ellas son bastante complejas. Algunas solo pueden transmitir texto. Lo más importante es que no hay ninguna con menos de 10 líneas. código :) Pasé una noche entera estudiando ADODB.Stream y usé 6 líneas de código para implementar la carga sin componentes:
strFileName = Request.QueryString("file1").
Establecer objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2
Cómo utilizar:
Escriba el código anterior como upload.asp
Ingrese en el navegador:
GetFileName = mid(strFile,InStrRev(strFile, "")+1)
Demás
ObtenerNombreArchivo = ""
Terminar si
Función final
strFileName = Request.Form("archivo1")
Establecer objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Cerrar
%>
subir archivo.htm
<nombre del formulario="FORMULARIO" acción="upload.asp" método="publicación">
<tipo de entrada="enviar" nombre="enviar" valor="OK">
<tipo de entrada="archivo" nombre="archivo1" estilo="ancho:400" valor="">
</formulario>