29. juli 2002 - 13:14Der er
33 kommentarer og 1 løsning
FTP?
Nu er det sådan at jeg har en FTP og så tænkte jeg om man kunne lave sådan noget på ens hjemmeside en eller anden paer som vis om den er open eller luked!!
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
function testIP(inIP) ' inIP: host:port; return: 1:Timeout, 2:Refused, 3:Svarer aktivt Set w3s=Server.CreateObject("socket.tcp") w3s.Host=inIP w3s.TimeOut=0 Success=3 on Error Resume next w3s.Open if Err.Number<>0 Then EDes=Err.description Success=1 if Err.Number=-2147418113 AND instr(EDes,"Connection refused")>0 Then Success=2 End if End if w3s.Close testIP=Success End Function %>
Dim StatusArray(3) StatusArray(1) = "Offline" StatusArray(2) = "Online" StatusArray(3) = "Online med FTP"
function testIP(inIP) ' inIP: host:port; return: 1:Timeout, 2:Refused, 3:Svarer aktivt Set w3s=Server.CreateObject("socket.tcp") w3s.Host=inIP w3s.TimeOut=0 Success=3 on Error Resume next w3s.Open if Err.Number<>0 Then EDes=Err.description Success=1 if Err.Number=-2147418113 AND instr(EDes,"Connection refused")>0 Then Success=2 End if End if w3s.Close testIP=Success End Function %> <p>Jeg er: <% Response.Write "" & StatusArray(testIP("DIN IP Adresse:21")) %></p> </body> </html>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.