Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

razs

upload ftp

Por , em ASP Clássico

Recommended Posts

razs    0

razs
Postado

Viva, sinceramente nao percebi o 1 link embora tenha ficado curioso, parece-me muito interessante e seguro aquele modo via ficheiro bat, o 2 link é o que estou a tentar fazer pois penso ter sido adaptado ou vice versa do xam.

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

não recupera nada do request.form("ficheirosss")

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

nao, eu faço o request.write e ele nao poe nada.

 

ou seja nao esta a passar no form

 

Vou dar uma vista de olhos ao dundas visto que agora é gratuito so nao sei é onde testar visto o meu hosting nao ter esse componente...

 

Alguem sabe de um servidor gratuito para testes que tenha o dundas upload??

 

So agora e que reparei que o dundas nao e por ftp, isto para ficheiros de 500/600mb é muito lento :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

desisto vou fazer isto em php, em php parece ser bem mais facil e como o php corre em iis basta no site quando for para fazer o upload abrir a pagina em php.

 

O que acham?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da onde esta vindo o request.form("ficheirosss")

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tente passar o request.form("ficheirosss") atraves de session , e faça um teste

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

desculpa mas como faço isso?

pus tudo numa so pagina mas continua na mesma

 

<html><head></head>
<body>


<form method='POST' name="aaq1" id="aaq1"  enctype='multipart/form-data'  action='ftp.asp?act=now'>
File: <input type="file" name="ficheirosss">
<br><input type="submit" value="Press"> 
</form>

<%
dim act
if request.querystring("act")="now" then


ftp_address ="71.19.73.91:21"
ftp_username ="corc"
ftp_password ="log1234"
ftp_remote_directory ="C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\" 
ftp_files_to_put =""  

Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult
Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put, ficheirosss, campo2, campo3, campo4, campo5, campo6

ficheiro = Request.form("ficheirosss")


' pasta + nome dos arquivos
cficheiro = ftp_remote_directory + ficheiro
response.write (""&cficheiro&"<br><br>")


' Faz o Upload do arquivo selecionado
On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"))
objTextFile.WriteLine "lcd " & Server.MapPath(".")
objTextFile.WriteLine "open " & ftp_address
objTextFile.WriteLine ftp_username
objTextFile.WriteLine ftp_password



'Verifique para ver se precisamos emitir uma' cd 'command
If ftp_remote_directory <> "" Then
  objTextFile.WriteLine "cd " & ftp_remote_directory
End If

objTextFile.WriteLine "prompt"


If Instr(1, ftp_files_to_put, "*",1) Then
  objTextFile.WriteLine "mput " & ftp_files_to_put
Else
  objTextFile.WriteLine "put " & ftp_files_to_put
End If
objTextFile.WriteLine "bye"
objTextFile.Close

Set objTextFile = Nothing
'Cmd.exe Use para executar ftp.exe, parsing comando arquivo recem-criado
strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
strTempFile = "C:\" & oFileSys.GetTempName( )

'sada de cmd.exe para um arquivo temporrio 
Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)

On Error Resume Next
'Pega a sada do arquivo temporrio
strCommandResult = Server.HTMLEncode( oFile.ReadAll )
oFile.Close

'Eliminar os temporrios e os arquivos ftp-comando
Call oFileSys.DeleteFile( strTempFile, True )
Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
Set oFileSys = Nothing
Set objFSO = Nothing
'Mostra o resultado da sesso de FTP para a tela
Response.Write( Replace( strCommandResult, vbCrLf, "<br>", 1, -1, 1) )
response.write "<br>FIM!!!!!!!!!!!!!!!!!!!!!"
'response.write "o ficheiro com o nome "Request.Form("ficheirosss")" foi enviado com sucesso."





end if
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

session(ficheiro) = Request.form("ficheirosss")

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Sim assim eu sei mas onde ponho de modo a ativar quando clico no submit? Ja experimentei dentro do form a unica maneira que consegui foi por querystring em que ele devolve o nome do ficheiro mas nao faz nada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

apenas atribua no action os valores a session !?

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

se eu alterar o method para get ele passa o nome do ficheiro por querystring mas ao alterar para post ja nao funcionou.

 

 

<form method='post' enctype='multipart/form-data' action='uploadftp.asp?<%session("file")=request.form("ficheirosss")%>'>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito