proibir ASP UPLOAD de upar arquivo ASP

[-_KIKO_- 0]

tem como proibir com que o ASP UPLOAD upe arquivos.asp??se o cara tentar upar um ASP ele resmungar e falar que naum pode...tem como?

[diego_sl 0]

set Upload = Server.CreateObject("aspSmartUpload.SmartUpload") Upload.DeniedFilesList = "asp,exe,bat,asp,vbs,php,jsp" Upload.Upload

[crazybaby 0]

eu faria isso com fso...mas você pode ver a extensão do arquivo assim http://www.aspupload.com/object_file.html#Ext

 

bom restringir extenssões eu naum achei....

[-_KIKO_- 0]

set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")

Upload.DeniedFilesList = "asp,exe,bat,asp,vbs,php,jsp"

Upload.Upload

CARA....isso naum eh ASP UPLOAD.......

[diego_sl 0]

 

 

set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")

Upload.DeniedFilesList = "asp,exe,bat,asp,vbs,php,jsp"

Upload.Upload

CARA....isso naum eh ASP UPLOAD.......

 

 

 

olha nu site do desenvolvedor do componente então

[-_KIKO_- 0]

 

 

 

 

set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")

Upload.DeniedFilesList = "asp,exe,bat,asp,vbs,php,jsp"

Upload.Upload

CARA....isso naum eh ASP UPLOAD.......

 

 

 

olha nu site do desenvolvedor do componente então

 

 

 

Server.CreateObject("aspSmartUpload.SmartUpload")

Isso é SmartUpload

Server.CreateObject("Persits.Upload")

Isso eh ASPUPLOAD.... =S

[-_KIKO_- 0]

eu faria isso com fso...mas você pode ver a extensão do arquivo assim http://www.aspupload.com/object_file.html#Extbom restringir extenssões eu naum achei....

como você faria por FSO?eu e o Gastão tava tentando hj a tarde intera e nada

[Salgado 4]

Com a propriedade EXT do ASPUpload fica fácil é só você fazer um IF com as extensões restritas!

[diego_sl 0]

qual tipo d arquivo você quer permitir q o user faça upload?

 

da pra fazer assim ó:

 

if File.Ext ="asp" thenaçãoend if

[-_KIKO_- 0]

ele ñ intende oq eh "File.Ext"ele pede pra por aspas ....e agora;^??

[diego_sl 0]

ele ñ intende oq eh "File.Ext"ele pede pra por aspas ....e agora;^??

passa a string toda do pesrsists.

Set File = Server.CreateObject("Persits.Upload")

??

[-_KIKO_- 0]

ele ñ intende oq  eh "File.Ext"ele pede pra por aspas ....e agora;^??

passa a string toda do pesrsists.

Set File = Server.CreateObject("Persits.Upload")

??

Set Upload = Server.CreateObject("Persits.Upload")if File.Ext = "asp" thenresponse.write "c*"response.endend ifCount = Upload.Save(Server.MapPath("/") & "\" & "Usuarios" & "\" & Session("username") & "\" & diretorio)Response.redirect "files.asp?estilo=" & Session("template") & "&dir=" & diretorio

[diego_sl 0]

Set Upload = Server.CreateObject("Persits.Upload")Set File = Upload.Files("FILE1")if File.Ext = "asp" thenresponse.write "c*"response.endend ifCount = Upload.Save(Server.MapPath("/") & "\" & "Usuarios" & "\" & Session("username") & "\" & diretorio)Response.redirect "files.asp?estilo=" & Session("template") & "&dir=" & diretorio

divirta-se,hehe

[diego_sl 0]

funciono?

[-_KIKO_- 0]

modo correto

<% diretorio = request.querystring("dir")Set Upload = Server.CreateObject("Persits.Upload")upload.setmaxsize 10240000,trueon error resume nextCount = Upload.Save(Server.MapPath("/") & "" & "Usuarios" & "" & Session("username") & "" & diretorio)if err.number = 8 thenresponse.write "Arquivo Maior que o permitido!"response.end  End Iffor each file in upload.filesif File.Ext = ".asp" thenresponse.write "O sistema não aceita arquivos ASP. Volte e tente novamente"response.endend ifnextResponse.redirect "files.asp?estilo=" & Session("template") & "&dir=" & diretorio%>

 

By Dono do Pexe Betta