Subir <> tipos de Archivos al Servidor

[WILLIAMGG]

Hola Forences estuve probando el XelUpload pero no permite subir archivos tipo zip, ni menos jpj, jpeg, pero si gif, xls y doc.
Coloque en el código lo siguiente:

if objFich.TipoContenido="image/gif" or objFich.TipoContenido="application/msword" or objFich.TipoContenido="application/vnd.ms-excel" or objFich.TipoContenido="image/jpeg" or objFich.TipoContenido="image/jpg" then
Gracias por sus respuestas

[ElAprendiz]

http://www.asptutorial.info/sscript/ContentType.asp

[lexus]

te pego un pedazo de codigo que yo uso del xelupload de pronto te puedes hacer una idea de como manejar lo de los tipos de archivos que deseas permitir que suban.

Código:

 
  <%
Dim up, fich, ExtPermitidas, NombreFichero, Extension, nombreimagen, Maxtam, id, sql, correcto
set up = new xelUpload
id = request.querystring("id")
correcto = false
up.Upload()

For each fich in up.Ficheros.Items
' no deja subir archivos ke pesen mas que maxtam ni menos de 1kb
Maxtam = 120  ' en Kb
If fich.Tamano > (Maxtam*1024) or fich.Tamano <= (1024)then
escribir "No puede subir un archivo que pese más de "& Maxtam & "Kb ni menos de 1Kb"
else
'impedir subir archivos diferentes a imagenes
ExtPermitidas = "|gif|jpg|jpeg|bmp|png|"
NombreFichero = Split(fich.Nombre, ".")
Extension = NombreFichero(1)
If InStr(ExtPermitidas, "|" & Extension & "|") = 0 Then
escribir "No puede subir archivos con extensiones ." & Extension
Else
'puede subir imagen
'Para guardarlo con otro nombre:
    nombreimagen = id &"."& Extension
' carpeta donde se guardara el archivo
 fich.GuardarComo nombreimagen, Server.MapPath("fotos/")
' agrega en la base de datos la foto
sql = "SELECT foto, id FROM articulos WHERE id = "&id&""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conx_bd("ppequipos"), 3, 3
if not rs.eof then
rs("foto") = nombreimagen
rs.update
else 
escribir "Este artículo ha sido borrado."
end if
correcto = true
rs.close
set rs = nothing
'------------------------------------
end if
end if
Next
'Limpiamos objeto
set up = nothing
if correcto = true then
redir "editar_articulo.asp?id="& id
end if
%>

[WILLIAMGG]

OK Gracias por sus sugerencias y por su tiempo dedicado , lo probare

[3pies]

Yo usaría la propiedad de xelUpload "TipoContenido", para evitar que un usuario te suba una hoja de cálculo, simplemente cambiándole la extensión "xls", por "gif".

Más vale prevenir...

[WILLIAMGG]

Hola 3pies, Gracias por tu sugerencia , pero te comento que estoy haciendo algo asi como u sistema gestor de correos, en donde me permita subir diferentes tipos de archivos, klaro guardo nombre archivo, tamaño, y ubicacion, es por ello que necesito subir todo tipo de archivo me entiendes. y luego enviarlo a un correo de una persona xxxx k esta en mi BD.
Gracias una vex mas

[sjam7]

pues entonces no realices una comprobacion de tipo de archivo, si de todos modos se puede subir cualquer tipo la comprobacion sale sobrando

[WILLIAMGG]

Hola Sjam7, k buena, verdad no me habia percatado de eso, Gracias