Cómo agregar criterios de tamaño de archivo de carga a la página de carga ASP
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)