Ftp med Socket.TCP
Jeg har nedenstående script, hvor jeg gerne vil have en liste over filer og mapper på ftp-serveren.Hvordan kan man få den til at vise listen, min kode virker nemlig ikke, den kommer kun med denne tekst:
w3 Sockets tester
220 Serv-U FTP-Server v2.5e for WinSock ready...
331 User name okay, need password.
230 User logged in, proceed.
215 UNIX Type: L8
257 "/c:/test1" is current directory.
200 Type set to A.
150 Opening ASCII mode data connection for /bin/ls.
226 Transfer complete.
Script time: 20,04 Error:-2147418113: Timeout expired while waiting for socket event.
<%
Server.ScriptTimeout = 90
response.expires = 0
response.buffer = false
%>
<html><head>
<title>w3 Sockets tester</title><body>
<p><b>w3 Sockets tester</b></p>
<pre>
<%
starttime = timer
on error resume next
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "127.0.0.1:21"
objSocket.Open
objSocket.TimeOut = 10000
objSocket.SendLine("USER test")
objSocket.SendLine("PASS test")
objSocket.WaitForDisconnect
objSocket.SendLine("SYST")
objSocket.SendLine("PWD")
objSocket.SendLine("TYPE A")
objSocket.SendLine("LIST") ' list items in folder
objSocket.WaitForDisconnect
objSocket.SendLine("QUIT")
tmpBuffer = objSocket.Buffer
Response.Write tmpBuffer
objSocket.Close
response.write "<br> <br> <br><b>Script time:</b> " & Formatnumber(timer-starttime,2)
if err.number <> 0 then
response.write "<br> <br> <br><b>Error:</b><br>" & err.number & ": " & err.description & "<br>"
err.clear
end if
%>
</pre>
</body></html>
