¿Cómo puedo restringir extenciones en un upload?

[ric18]

Hola a todos, tengo el siguiente problema, tengo una aplicación en ASP donde subo un archivo al servidor y los datos a la BD, todo funciona, pero necesito restringir las extenciones a que sólo puedan subir archivos de excel con las extención .CVS. ¿como puedo hacerlo ya sea en JAVASCRIPT, que és como estoy validando los demás campos o con ASP? Mi variable que esta tomando el dato para saber que tipo de archivos está subien es

Código PHP:

   Dim contentType
      contentType = load.getContentType("file")  
   

Este és el código completo

Código PHP:

  Response.Buffer = True

   ' load object
   Dim load
      Set load = new Loader

      ' calling initialize method
      load.initialize

   ' File binary data
   Dim fileData
      fileData = load.getFileData("file")      
   ' File name
   Dim fileName
      fileName = LCase(load.getFileName("file"))
   ' File path
   Dim filePath
      filePath = load.getFilePath("file")
   ' File path complete
   Dim filePathComplete
      filePathComplete = load.getFilePathComplete("file")
   ' File size
   Dim fileSize
      fileSize = load.getFileSize("file")
   ' File size translated
   Dim fileSizeTranslated
      fileSizeTranslated = load.getFileSizeTranslated("file")
   ' Content Type
   Dim contentType
      contentType = load.getContentType("file")
     
          
   ' No. of Form elements
   Dim countElements
      countElements = load.Count
   ' Value of text input field "name"
   Dim nameInput
     nameInput = load.getValue("name")
     
    'response.Write(nameInput)
    'response.End()
   ' Path where file will be uploaded
   
   'Dim fso
       '    Set fso = Server.CreateObject("Scripting.FileSystemobjet")
   
   
   Dim pathToFile
      pathToFile = "D:\" & fileName
      
      'response.Write(pathToFile)
      'response.End()
      
   ' Uploading file data
   
   Dim fileUploaded
      fileUploaded = load.saveToFile ("file", pathToFile)
      
    Dim usrname
    usrname = load.getValue("nombre_usuario")
          
    Dim usrap
    usrap = load.getValue("apellidos_usuario")
    
    Dim mail
    mail = load.getValue("correo")
    
    Dim pais
    pais= load.getValue("pais")
       
      'response.Write(fileUploaded)
      'response.End()
      

   ' destroying load object
   Set load = Nothing  
   

De antemano gracias.

[tammander]

Lo ideal es hacerlo ANTES de que envies el archivo al servidor. Es una cuestion de economizar ancho de banda (al menos para mi eso es muy importante).

El tag INPUT posee un atributo llamado accept que funciona como filtro para los archivos. Por ejemplo, si solo quieres que acepte MIMEs de tipo image, seria si:

<input type="file" accept="image/*" />

o solo JPG y GIF

<input type="file" accept="image/gif, jpg, jpeg" />

para excel, creo que es application/xls o application/vnd.ms-excel

Para chequearlo antes de enviarlo, hay una funcion muy interesante en javascript:

Check File Type



Un saludo

[AlZuwaga]

Lo ideal es hacerlo ANTES de que envies el archivo al servidor. Es una cuestion de economizar ancho de banda (al menos para mi eso es muy importante).

Pues entonces lo ideal es hacerlo antes (para economizar) y después (para asegurar)

[cubic]

<input type="file" accept="image/gif, jpg, jpeg" /> Al darle a explorar veo todo tipo de archivos.
Firefox + Ubuntu.