Acceder al código fuente compartido
1. La tabla de acceso tiene los siguientes campos:
Número de identificación automático,
Texto del nombre de archivo,
Ingrese texto,
Qué objeto OLE,
Número de tamaño
2. Cargar página (upfile.htm):
Carga de archivo
ltform action = " upload . ASP " método = " post " enctype = " multipart/form-data " >>p>
Archivo
lt/form gt ;
3. Enviar página (upload.asp):
ltmeta http-equiv = " Content-Type " Content = " text/html; charset=utf-8" / >
lt! -# include file = " UpLoad _ class . ASP " - gt
lt
carga tenue
Establecer carga = new AnUpLoad
subir.Exe = " * "
Subir. MaxSize = 2 * 1024 * 1024 ' 2M
upload.charset = "utf-8 "
Subir. GetData()
Si está subido. ErrorID gt y luego 0
respuesta. Escribe para subir. Descripción
Otros
archivos atenuados
Respuesta para cada frm("-1 ")
en upload.forms. Escriba frm amp" = "formulario de carga de amp. " ltbr />
Entonces
establece file = upload . files(" file 1 ")
Si no (el archivo no es nada), entonces p> p>
Establecer conn = server.CreateObject("ADODB.connection")
conn.Open" DRIVER = {Microsoft Access DRIVER(*.MDB)}; DBQ = " & servidor. mappath ("./) &" \db.mdb "
set RS = server . createobject(" adodb . recordset ")
rs. Abra "Fotos", Connecticut, 1, 3, 2
rs.addnew
rs.fields("filename") = archivo. Nombrelocal
rs.fields("tipo") = archivo. Tipo de contenido
rs.fields("qué") = archivo. GetBytes()
rs.fields("tamaño") = archivo. tamaño
rs.update
respuesta. Redirigir "listpic.asp"
Terminará si...
Terminará si...
Establecer carga = Ninguno
gt
4. Haga referencia al archivo UpLoad_Class.asp, que es la clase de carga sin componentes de Ian. Puede encontrarlo buscando en línea.