Red de conocimiento informático - Computadora portátil - Acceder al código fuente compartido

Acceder al código fuente compartido

Déjame darte un ejemplo:

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>

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.