Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con Subir un Archivo

Estas en el tema de Ayuda con Subir un Archivo en el foro de ASP Clásico en Foros del Web. Hice una rutina para subir archivos al servidor por medio de ASP, pero como puedo identificar si el texto que se introduce es un nombre ...
  #1 (permalink)  
Antiguo 09/08/2002, 11:56
 
Fecha de Ingreso: agosto-2002
Mensajes: 15
Antigüedad: 22 años, 9 meses
Puntos: 0
Ayuda con Subir un Archivo

Hice una rutina para subir archivos al servidor por medio de ASP, pero como puedo identificar si el texto que se introduce es un nombre de archivo valido
  #2 (permalink)  
Antiguo 09/08/2002, 12:17
 
Fecha de Ingreso: enero-2002
Ubicación: Barcelona
Mensajes: 74
Antigüedad: 23 años, 3 meses
Puntos: 0
Re: Ayuda con Subir un Archivo

pon el campo de tipo file.
Código:
 <input type="file" name="fichero">
un saludo
  #3 (permalink)  
Antiguo 09/08/2002, 12:23
 
Fecha de Ingreso: agosto-2002
Mensajes: 15
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Ayuda con Subir un Archivo

si ya lo puse pero el contenido del objeto lo pueden meter a mano y puede que introduzcan una cadena cualquiera, en ese caso como puedo detectarlo
  #4 (permalink)  
Antiguo 09/08/2002, 18:01
Avatar de Aston  
Fecha de Ingreso: mayo-2001
Ubicación: Madrid
Mensajes: 933
Antigüedad: 24 años
Puntos: 0
Re: Ayuda con Subir un Archivo

Hola amigo:

Los caracteres que no se pueden usar dentro de un nombre de archivo permitido son los siguientes: \ / : * ? " < > |

Teniendo en cuenta esto construímos una función que recorra el nombre del fichero, y si encuentra alguno de estos caracteres devuelve FALSE.
Código:
'____________________________________________
Function ValidNomArch(cCad)
'Valida que un nombre de archivo sea válido
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  Dim n, aCon
  ValidNomArch = True
  aCon = Array("\", "/", ":", "*", "?", "<", ">", "|", Chr(34))

  For n = 0 To 8
    If InStr(1, cCad, aCon(n)) > 0 Then
      ValidNomArch = False
      Exit Function
    End If
  Next
End Function
Para usarla:

If Not ValidNomArch("Ast</on") Then _
Response.Write "Pruebe con otro nombre"

Ya sabes, si recoges el nombre por de un formulario o QueryString sólo tienes que llamarla así:

ValidNomArch(Request.Form("Nombre"))

Espero te ayude. Un saludo. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>
  #5 (permalink)  
Antiguo 09/08/2002, 18:17
 
Fecha de Ingreso: agosto-2002
Mensajes: 15
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Ayuda con Subir un Archivo

Gracias Aston
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:02.