Cómo agregar criterios de tamaño de archivo de carga a la página de carga ASP

Hola, he modificado tu código. Puedes usar Request.TotalBytes para obtener el tamaño del archivo cargado. El código específico es el siguiente:

lt

Response.Buffer =. Verdadero

Server.ScriptTimeOut= 102400

En caso de error, reanudar siguiente

gt;

k=Instrb(FormDataAll_d, CrLf_eamp; CrLf_e) 4

l=Instrb(k 1, FormDataAll_d, leftB(FormDataAll_d, FormStart_f-1))-k-2

FormStream_h.Type=1

FormStream_h .Open

UploadStream_c.Position=k-1

UploadStream_c.CopyTo FormStream_h, l

FormStream_h.SaveToFileSaveToFile SaveFile, 2

SaveFileName = Mid(SaveFile, InstrRev(SaveFile, "\") 1)

Response.write "Archivo cargado correctamente, dirección del archivo: lt; .span style=""color: red;""gt; uppic /" amp; SaveFileName amp; "lt;/spangt; ¡Carga de archivos exitosa! lt;a href="""" amp ServerVariables("URL") amp;"""gt; Continuar subiendo archivos lt;/agt ;lt ;br /gt;"

End If

Elseif cint(Request. TotalBytes/1024)gt; 500 then

respuesta.write "Lo siento, el archivo ¡El tamaño ha excedido los 500 KB! red；""gt；El formato del archivo es incorrecto；/spangt； lt;a href="""" & Request.ServerVariables("URL") &"""gt;Vuelva a cargar el archivo. lt;/agt;lt;br /gt;"

Finalizar si

Si no

gt;

lt ; span class= "bt"gt; este programa es compatible con .jpg | .rarlt;br /gt;

Imagen límite de tamaño: 500 KB, otros límites de archivos: 3 MB.

¡Elija el archivo apropiado para cargar para evitar fallas en la carga! lt;/spangt;

lt;script language="Javascript"gt;

lt;! --

función ValidInput()

{

if(document.upform.upfile.value=="")

{

alert("¡Seleccione un archivo para cargar!")

document.upform.upfile.focus()

Devuelve falso

}

Devuelve verdadero

}

// --gt;

lt /scriptgt; acción='lt;= Request.ServerVariables("URL") gt;' método='post' nombre="upform" onSubmit="return ValidInput()" enctype="multipart/form-data"gt;

Carga de archivos:

lt; input type='file' name='upfile' size="40" onChange="viewmypic(showimg, this.form.imgfile);" /p>

lt; tipo de entrada='enviar' valor="upload"gt;

lt;/formgt;

lt;img name="showimg" id= "showimg" src="" style=" display: none;" alt="Imagen previa" /gt;

lt

Finalizar

Establecer; FormStream_h = Nada

UploadStream.= Nada

gt;

lt;/bodygt;

lt;/htmlgt;

lt;

'Determinar si el tipo de archivo está calificado

Función CheckFileExt(FileName, ExtName) 'Nombre de archivo, tipo de archivo que se permite cargar

FileType = ExtName

FileType = Split(FileType, ","")

For i = 0 To Ubound(FileType)

If LCase(Right ( FileName. 3 )) = LCase(FileName, 3)) = LCase(FileType(i)) Entonces

CheckFileExt = True

Salir de la función

De lo contrario

CheckFileExt = False

Finalizar si

Siguiente

Función final

'Comprueba si la carpeta de carga existe, si no, cree una carpeta

Función CheckAndCreateFolder(FolderName)

> fldr = Server.Mapppath(NombreCarpeta)