SoulGodMedlem sedan aug. 20051 200 inlägg 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
%>
TravoniMedlem sedan okt. 20041 556 inlägg Ta bort en eventuell "On error resume next"
Byt ut alla
rem *...
mot
'rem *...
SoulGodMedlem sedan aug. 20051 200 inlägg 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.
TravoniMedlem sedan okt. 20041 556 inlägg Byt ut: Response.Write Pinger.Ping
Mot
Response.Write "Results: " & Pinger.Ping
Är det då fortfarande tomt på sidan -> titta i källkoden.
SoulGodMedlem sedan aug. 20051 200 inlägg 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?
TravoniMedlem sedan okt. 20041 556 inlägg SoulGodMedlem sedan aug. 20051 200 inlägg 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.
TravoniMedlem sedan okt. 20041 556 inlägg Använd XMLHTTP kopplat till någon trevlig server som du kan pinga till.
SoulGodMedlem sedan aug. 20051 200 inlägg Och vad krävs av den servern, som jag pingar till ?
Aldrig använt XMLHTTP
Travoni skrev:
Byt ut alla
rem *...
mot
'rem *...
Varför kommentera bort en kommentar?
TravoniMedlem sedan okt. 20041 556 inlägg 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,"<br>")
End Function
Response.write "Söker...<br><br>"
Response.Flush()
Response.Write(Ping("www.yahoo.com",10,64))
%>
SoulGodMedlem sedan aug. 20051 200 inlägg 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å?
SoulGodMedlem sedan aug. 20051 200 inlägg 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?
TravoniMedlem sedan okt. 20041 556 inlägg Du får plocka ut ditt önskade resultat med regexp.
TravoniMedlem sedan okt. 20041 556 inlägg Testa att söka i forumet. regexp*
SoulGodMedlem sedan aug. 20051 200 inlägg Hittade massor, men fattar verkligen nada.
Hittade http://www.webeye.nu/default2.asp?que=asp/regexptester.asp
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?
SoulGodMedlem sedan aug. 20051 200 inlägg 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?