Código fuente de carga por lotes

Primero necesitas tener el software ASPUpload.

Formulario:

ltform name = " formulario 1 " método = " post " action = " 001 tjsave . ASP " gt

lttable width = " 527 " altura = " 60 " borde = " 0 " align = " centro " relleno de celda = " 0 " espacio de celdas = " 0 " gt；

lttr gt

ltTD ancho = " 43 " altura = " 30 " align = " derecha " > ltspan class="STYLE2 " >Imagen:

lttd width="168" height="30 " > lttaggt

ltinput nombre = " TP 1 " tipo = " texto " id = " TP 1 "

lt/label gt/TD gt

lttd height="30" colspan =" 2 " > ltiframe nombre = " t " src = " cargar 1 . ASP " ancho = " 100 " alto = " 25 " alto del margen = " 0 " borde del marco = " 0 " > lt/iframe gt; lt/TD gt;

lt/tr gt;

lttr gt

lttd height="30 " >? lt/TD gt;

lttd altura="30" >? lt/TD gt;

lttd ancho="80" alto="30" >? lt/TD gt;

lttd width="215" height="30 " > lt label gt

lt tipo de entrada = " enviar " nombre = " enviar " valor = " enviar " >>p>

lt tipo de entrada = " restablecer " nombre = " enviar 2 " valor = " restablecer " >>p>

lt/label gt; lt/TD gt;

lt/tr gt;

lt/table gt;

lt/form gt;

Subir 1.asp

ltform action = " subir guardar 1 . ASP " método = " post " enctype = " multipart/form-data " nombre = " formulario 1 " id = " formulario 1 " gt;

lt taggt

ltinput nombre = " carga TP " tipo = " archivo " id = " carga TP "/ gt

lt/label gt

lt etiqueta gt

lt tipo de entrada = " subm

it " nombre = " enviar " valor = " cargar "/ gt;

lt/label gt;

lt/form gt;

uploadsave1.asp

ltset upload=server. CreateObject("persits.upload ")

Upload.MapPath("upload")

nombre de archivo = subir archivos( "Subir TP. "). -instr(nombre de archivo, "\"))

línea

TP 1 = "lt; img src = upload\\" amp nombre de archivo amp" ancho = 200 alto = 150 borde = 0

Respuesta. escribe " ltscript gtparent . form 1 . TP 1 . value = ' " amp tp1amp lt/script gt "

Respuesta. Escribe " ltscript gtthistory .back() lt;/script

p>

gt

Puedes subir la imagen de arriba, pero no sé dónde quieres guardar el formulario.