Devo creare una sorta di ftp client on line.
Il problema è la riga verde. Tutto funziona, la connessione,la creazione della directory pluto, ho provato anche a fare l'upload di un file, ed è ok. Non funziona la redirezione dell'output (il file non viene creato)!!
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>3em (ftp on line)</title>
</head>
<body>
<table width="100%" border="0">
<%
Dim objFSO, objTextFile, oScript, oFileSys, oFile, strCMD
Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put
Dim sReadLine, sRead, sReadAll, trovato, str


ftp_address          = "sito.it"
ftp_username         = "user"
ftp_password         = "pas"
dim Percorso
Percorso=""
Set objFSO =CreateObject("Scripting.FileSystemObject") 'scrive file test.ftp
Set oFileSys =CreateObject("Scripting.FileSystemObject") 'legge il file di output temp.txt
Set oScript = Server.CreateObject("wscript.shell") 'esegue il comando ftp.exe
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"),true)
objTextFile.WriteLine "lcd "  & Server.MapPath(".") 
objTextFile.WriteLine "open " & ftp_address
objTextFile.WriteLine ftp_username
objTextFile.WriteLine ftp_password
objTextFile.WriteLine "prompt"
objTextFile.WriteLine "mkdir pluto"
objTextFile.WriteLine "dir . " &  Server.MapPath("temp.txt") 
objTextFile.WriteLine "bye"
objTextFile.Close
Set objTextFile = Nothing
strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
Call oScript.Run ("cmd.exe /c " & strCMD, 0, True)
Set oFile = oFileSys.OpenTextFile (Server.MapPath("temp.txt"), 1, False, 0)
Do While Not oFile.AtEndOfStream

....
loop
oFile.Close
Set oFile = Nothing
'Call oFileSys.DeleteFile(Server.MapPath("temp.txt"), True )
Call objFSO.DeleteFile(Server.MapPath("test.ftp"), True )
Set oFileSys = Nothing
Set objFSO = Nothing
%>
</table>
</body>
</html>
Stesso problema anche se faccio
codice:
Call oScript.Run ("cmd.exe /c " & strCMD & " >C:\temp.txt", 0, True)
Vi prego un aiutooooooo!!