¿Cómo implementar la carga de archivos? Puede escribirse en lenguaje asp u otros idiomas y convertirse en un código efectivo. Quiero aprenderlo.

<%

const upload_type=0 'Método de carga: 0=Clase de carga sin miedo y sin componentes, 1=Carga FSO 2=lyfupload, 3=aspupload, 4= chinaaspupload

carga atenuada,archivo,nombreformulario,SavePath,nombre de archivo,

dim upNum

dim EnableUpload

dim Forumupload

dim ranNum

dim uploadfiletype

dim msg,fundador

msg=""

founderr=false

EnableUpload=false

SavePath = "./DateBasc/" 'Directorio para almacenar archivos subidos

si es correcto(SavePath,1 )<>"/" luego SavePath=SavePath&"/" 'Agregar (/) al final del directorio

%>

'Sitio web:.com

'Autor original: agricultor de arroz y hierbas

'Autor original sitio web:

'Descargo de responsabilidad: esta clase de carga es una modificación de la clase de carga sin componentes publicada por Realm Programming Community.

'En comparación con la clase de carga de Realm Programming Community, carga 4M archivos en tamaño La velocidad es casi 50 veces más rápida

'El servidor puede completar el procesamiento en solo 10 segundos. Es el programa de carga sin componentes más rápido. La versión actual es 0,96

. 'El código fuente es abierto, de uso gratuito, para uso comercial, comuníquese con el autor

'Atributos del archivo: tales como: cargar el archivo como c:c:g., cargar el archivo como c:c: g., cargar el archivo como c:g.g., cargar el archivo como c:g.g.. g El archivo subido es c:\myfile\doc.txt

'FileName nombre de archivo String "doc.txt"

'FileSize nombre de archivo valor de tamaño 1210

'FileType nombre de archivo tipo cadena "text/plain"

'Extensión de archivo FileExt cadena "text/plain"

'Extensión de archivo FileExt cadena "text/plain" "

'Cadena de extensión de archivo FileExt "txt"

'Cadena de ruta de archivo FilePath "c:\myfile"

'Notas de uso:

' Por el guión.

El diccionario distingue entre mayúsculas y minúsculas, por lo que el nombre del elemento en la página web y el nombre del elemento en la página ASP deben tener el mismo tamaño

'Al escribir, si las personas están acostumbradas a usar mayúsculas o minúsculas, en orden para evitar errores, puedes poner

'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

'Changed to

' (minúsculas) sFormName = LCase (Mid (sinfo,iFindStart, iFindEnd-iFindStart))

' (mayúscula) sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))

'*** ***** *** ******************************************* ********* *********

'------------------------ --------- -------------------------- ----------

dim oUpFileStream

Clase upload_file

dim Formulario,Archivo,Versión

Subclase privada_Initialize

'Definir variables

dim RequestBinDate、sStart, bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo

dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName

dim iFindStart, iFindEnd

dim iFormStart ,iFormEnd,sFormName

'Código para iniciar

Versión="Clase de carga sin componentes versión 0.96"

establecer formulario = Server.CreateObject("Scripting. Dictionary")

establecer archivo = Server.CreateObject("Scripting.Dictionary")

si Request.TotalBytes < 1, entonces salga de Sub

establecer tStream = Server .CreateObject("adodb.stream")

establecer oUpFileStream = Server.CreateObject("adodb.stream")