Upload

[DataSet]

Olá amigos...

Fiz um programa para apagar arquivos que foram enviados via browser.... (upload), mas eu não quero que apague da pasta os arquivos .asp

fiz o seguinte:

if tobdel.name = "apaga.asp" or tobdel.name = "consulta_imagem.asp" or tobdel.name = "default1.asp" or tobdel.name = "outputFile1.asp" or tobdel.name = "upload.asp" Then

response.write ""

ElseIf tobdel.name = "W3Lib.asp" Then

response.write ""

Esse if não deixa o cara visualizar os arquivos que estão na pasta, mas se o cara enviar um arquivo chamado apaga.asp ele vai substituir o que está lá, e vai danificar o sisteminha...

Existe uma maneira de eu não deixar o cara enviar arquivos .asp ou .htm ou .php?

Obrigado

[cyberalexxx]

já pensou em utilizar em utilizar Right() para pegar os ultimos tres caracteres do arquivo e comparar as extensões antes de permitir o upload??

Ficaria melhor uma validação no cliente através de Jscript.

[DataSet]

Olá cyberalexxx....

Pensei no seguinte:

d = tobdel.name

if Ucase (mid(d,len(d-4),4=".asp"

Ao ele verificar o if dá uma mensagem de "não é possível enviar" caso contrário, faz o upload

Mas não consegui fazer funcionar...

você pode me dar uma ajuda ou um exemplo ???

Valeu

[bareta]

você já pensou em usar FSO para apagar???

Tutorial de FSO

[cyberalexxx]

Olá cyberalexxx....

Pensei no seguinte:

d = tobdel.name

if Ucase (mid(d,len(d-4),4=".asp"

Ao ele verificar o if dá uma mensagem de "não é possível enviar" caso contrário, faz o upload

Mas não consegui fazer funcionar...

você pode me dar uma ajuda ou um exemplo ???

Valeu

a sua função ta com um pequeno erro, se um arquivo for arquivo.asp sua função esta retornando o.as e tambem o uso do Ucase esta errado, pois voce converte o texto para caixa alta e depois compara com um texto em caixa baixa ".asp"

tente assim:

d = tobdel.name
a =len(d)
if Lcase(mid(d,(a-3),4))=".asp"

[dark0]

Brothers !!

Já pensaram em usar o INSTR para procurar na STRING os caracteres .asp ????

A Função InStr faz uma busca numa string, por outra string!

Que acham?