Upload - Arquivo salva 1 kb

[Tonblz 0]

Boa tarde pessoal,

 

após ajudo do pessoal, consegui criar minha função de upload, mas ao abrir o arquivo (após salvar o mesmo na rede, vi problemas nele, o tamanaho dele fica de 1kb, sem conteudo dentro), pelo que entendi, ele está criando apenas o arquivo dentro do local, com a extensão, mas naum copia na verdade.

 

abaixo o código, podem me ajudar ?

 

Sub GravaGrob()

Dim UploadRequest,filename,objArquivo,objFSO,fso

Dim ScriptObject,MyFile

Set UploadRequest = CreateObject("Scripting.Dictionary")

 

Server.ScriptTimeout = 5400

EstensoesProibidas=",exe,asp,php,sql,bat,pif,ocx,dll,aspx,shtml,"

ExtensoesPermitidas="," & ExtensoesPermitidas & ","

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

 

strArquivo = request.form("Arquivo")

'Pasta onde será salvo o arquivo

strPath = "\\gbvm001\intraempresarial$\z_zportal\a_admin\b_links"

%> <form></form><%

'response.write "Diretório: " & strPath

'Caminho original do arquivo.

filepathname = strArquivo

%> <form></form><%

'response.write "Local do Arquivo : " & strArquivo

'Obtém a extensão

For i = Len(filepathname) To 1 Step -1

If Mid(filepathname, i, 1) = "." Then Exit For

Next

extensao = Right(filepathname, Len(filepathname) - i)

%> <form></form><%

'response.write "extensão : " & extensao

'Verifica se a extensão é dos tipos permitidos.

if ExtensoesPermitidas=",*," then

pode=(InStr(extensao,EstensoesProibidas)=0)

else

pode=(InStr(extensao,EstensoesPermitidas)>0)

end if

if pode then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Cria a pasta se ela não existir

if not ScriptObject.FolderExists(strPath) then ScriptObject.CreateFolder(strPath)

'Obtém o nome do arquivo a salvar

filename = ""

if filename="" then

For i = Len(filepathname) To 1 Step -1

If Mid(filepathname, i, 1) = "\" Then Exit For

Next

filename = Right(filepathname, Len(filepathname) - i)

end if

%> <form></form><%

'response.write "arquivo : " & filename

'Create and Write to a File (WARNING: Overwrites existing!)

pathfilename = strPath & "\" & filename

%> <form></form><%

'response.write "arquivo : " & pathfilename

%> <form></form><%

 

Set objArquivo = objFSO.CreateTextFile(strPath & "\" & filename, True)

 

objArquivo.WriteLine ArquivoConteudo

objArquivo.Close

Set objArquivo = Nothing

 

Response.Write " Arquivo " & strPath & "\" & filename & " gravado com sucesso!!!<BR>"

%> <form></form><%

nomeantigo = strArquivo'strPath & "\" & ArquivoNome

nomenovo = strPath & "\" & filename

end if

Response.write "Arquivo salvo com Sucesso!"

 

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 2 segundos..<br>"

response.write "<meta http-equiv='refresh' content='2; url=TesteGrob.asp'/>"

end sub

[Ted k' 126]

onde estão as permitidas?

 

EstensoesProibidas=",exe,asp,php,sql,bat,pif,ocx,dll,aspx,shtml,"
ExtensoesPermitidas="," & ExtensoesPermitidas & ","

está pegando da onde?

[Mário Monteiro 179]

além do mais porque tem duas listas de extensões? apenas uma bastaria ja que o restante está na outra

 

desta forma pode acontecer de ter extensões que não são são proibidas e nem permitidas

[Tonblz 0]

Pessoal o problema naum é extensão

 

posso tirar esse linha, o problema q salvo o arquivo com a extensão certa e tal

 

mas salvo o mesmo com 1 kb

[Mário Monteiro 179]

Onde conseguiu o script? já havia testado em outro sistema?