Subir <> tipos de Archivos al Servidor

[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
%>