--- title: "ASPPing" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/139157-aspping" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "SoulGod" published: "2005-12-12T07:12:08.000Z" updated: "2005-12-12T16:20:32.000Z" replies: 17 views: 426 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/139157-aspping" --- # ASPPing ## #1 — SoulGod, 2005-12-12T07:12Z Har installerat asp-ping på min webserver, och försöker köra följande kod. DOck får jag inget svar, sidan blir blank. Vad är fel? ``` <% rem *********************************************************** rem * Create the object rem *********************************************************** Set Pinger = Server.CreateObject("AspPing.Conn") rem *********************************************************** rem * Set the host well be pinging rem *********************************************************** Pinger.RemoteHost = "soulgod.no-ip.info" rem *********************************************************** rem * Optional count for number of times to ping remotehost rem * defaults to 1 rem *********************************************************** Pinger.PingCount = 5 rem *********************************************************** rem * Ping and then dump the results rem *********************************************************** Response.Write Pinger.Ping rem *********************************************************** rem * Release the object rem *********************************************************** Set Pinger = nothing %> ``` Permalänk: https://www.webforum.nu/p/139157 ## #2 — Travoni, 2005-12-12T09:40Z Ta bort en eventuell "On error resume next" Byt ut alla rem \*... mot 'rem \*... Permalänk: https://www.webforum.nu/p/1727761 ## #3 — SoulGod, 2005-12-12T09:45Z Finns ingen "On Error resume next", all kod som finns , är den jag skrev ovan. Nu använder jag då koden ovan, fast med 'rem istället, fungerar fortfarande inte. får bara en "blank" sida. Permalänk: https://www.webforum.nu/p/1727764 ## #4 — Travoni, 2005-12-12T10:03Z Byt ut: Response.Write Pinger.Ping Mot Response.Write "Results: " & Pinger.Ping Är det då fortfarande tomt på sidan -\> titta i källkoden. Permalänk: https://www.webforum.nu/p/1727771 ## #5 — SoulGod, 2005-12-12T10:25Z Jag får "Results: " Verkar ju som den inte "får" något Pinger.Ping Den finns inte med i källkoden den variabeln, men den antar jag att den finns med i installeringen av ASPPing klienten? Permalänk: https://www.webforum.nu/p/1727773 ## #6 — Travoni, 2005-12-12T10:34Z Kör du med XP/2003? Permalänk: https://www.webforum.nu/p/1727780 ## #7 — SoulGod, 2005-12-12T10:52Z Jepp, kör med WinXP för tillfället ja, ska dock in en Win2003 Advanced Server-maskin snart som webserver. Kör WinXP maskinen endast som testburk. Fan oxå! :( Då funkar ingen av dessa. Vet du någon annan lösning för att få veta om en ping är levande / Död via asp? Java går också bra. Permalänk: https://www.webforum.nu/p/1727787 ## #8 — Travoni, 2005-12-12T11:12Z Använd XMLHTTP kopplat till någon trevlig server som du kan pinga till. Permalänk: https://www.webforum.nu/p/1727795 ## #9 — SoulGod, 2005-12-12T11:22Z Och vad krävs av den servern, som jag pingar till ? Aldrig använt XMLHTTP Permalänk: https://www.webforum.nu/p/1727800 ## #10 — Erik Juhlin, 2005-12-12T12:14Z > **Travoni skrev:** > > Byt ut alla > rem \*... > mot > 'rem \*... Varför kommentera bort en kommentar? Permalänk: https://www.webforum.nu/p/1727839 ## #11 — Travoni, 2005-12-12T12:29Z Visste inte att man kunde skriva rem istället för en apostrof. Din kommentar hade låtit trevligare om du skrivit: rem kan också användas som kommentar. Besservisserattetyd! x( (Varför skall den arga gubben ha tomteluva? Det ser ju bara löjligt ut.) ``` <% Function Ping(Host,Packets,size) Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") objHTTP.Open "GET", "http://www.spfld.com/cgi-bin/ping?remote_host="& Host &"&dns=on&count="& Packets &"&size="& size, False objHTTP.Send strHTML = objHTTP.ResponseText Set objHTTP = Nothing Ping = replace(strHTML,vbLf,"
") End Function Response.write "Söker...

" Response.Flush() Response.Write(Ping("www.yahoo.com",10,64)) %> ``` Permalänk: https://www.webforum.nu/p/1727858 ## #12 — SoulGod, 2005-12-12T13:07Z Tack Travoni för all din hjälp. MIn nästa fråga är dock, kan man specifiera vilken port den ska söka efter oxå? Permalänk: https://www.webforum.nu/p/1727877 ## #13 — SoulGod, 2005-12-12T13:09Z Och likaså. Svaret jag får av ditt script är ``` PING [url]www.yahoo.akadns.net[/url] (216.109.117.204) from 216.216.32.4 : 56(84) bytes of data. --- [url]www.yahoo.akadns.net[/url] ping statistics --- 10 packets transmitted, 10 received, 0% loss, time 9023ms rtt min/avg/max/mdev = 13.265/42.648/235.590/64.764 ms ``` Om jag t.ex skulle vilja ha ett enklare svar, t.ex om den får 10 / 10 svar, så är svaret "online", om svaret är 5 / 10 , så är svaret "Unstable" om svaret är 0 / 10 , så är svaret "offline" Går det? Permalänk: https://www.webforum.nu/p/1727878 ## #14 — Travoni, 2005-12-12T13:57Z Du får plocka ut ditt önskade resultat med regexp. Permalänk: https://www.webforum.nu/p/1727899 ## #15 — SoulGod, 2005-12-12T14:03Z Regexp ? \*Förstår inte\* Permalänk: https://www.webforum.nu/p/1727903 ## #16 — Travoni, 2005-12-12T14:32Z Testa att söka i forumet. regexp\* Permalänk: https://www.webforum.nu/p/1727919 ## #17 — SoulGod, 2005-12-12T16:10Z Hittade massor, men fattar verkligen nada. Hittade Men det hjälpte inte mig mycket. Någon som kan tipsa mig ? Antingen om lösning, eller hur jag skriver för att ändra svaret genom Regexp? Permalänk: https://www.webforum.nu/p/1727960 ## #18 — SoulGod, 2005-12-12T16:20Z Okej, har läst lite mer. Och jag förstår lite lätt principen av hur det fungerar. Men då endast med när jag redan vet "svaret", då kan jag sortera bort viss information. Men, hur gör jag, när jag inte vet svaren, och sedan behöver dom för en uträkning? Permalänk: https://www.webforum.nu/p/1727966 --- Tråden på webben: https://www.webforum.nu/amne/asp/139157-aspping