ASPPing

17 svar · 422 visningar · startad av SoulGod 12 dec. 2005

SoulGodMedlem sedan aug. 20051 200 inlägg

Frågan12 dec. 2005 07:12#1

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

12 dec. 2005 09:40#2

Ta bort en eventuell "On error resume next"
Byt ut alla
rem *...
mot
'rem *...

SoulGodMedlem sedan aug. 20051 200 inlägg

12 dec. 2005 09:45#3

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

12 dec. 2005 10:03#4

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

12 dec. 2005 10:25#5

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

12 dec. 2005 10:34#6

Kör du med XP/2003?

http://eforum.idg.se/viewmsg.asp?EntriesId=374883

SoulGodMedlem sedan aug. 20051 200 inlägg

12 dec. 2005 10:52#7

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

12 dec. 2005 11:12#8

Använd XMLHTTP kopplat till någon trevlig server som du kan pinga till.

SoulGodMedlem sedan aug. 20051 200 inlägg

12 dec. 2005 11:22#9

Och vad krävs av den servern, som jag pingar till ?
Aldrig använt XMLHTTP

Erik JuhlinMedlem sedan maj 200010 687 inlägg

12 dec. 2005 12:14#10

Travoni skrev:

Byt ut alla
rem *...
mot
'rem *...

Varför kommentera bort en kommentar?

TravoniMedlem sedan okt. 20041 556 inlägg

12 dec. 2005 12:29#11

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

12 dec. 2005 13:07#12

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

12 dec. 2005 13:09#13

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

12 dec. 2005 13:57#14

Du får plocka ut ditt önskade resultat med regexp.

SoulGodMedlem sedan aug. 20051 200 inlägg

12 dec. 2005 14:03#15

Regexp ? *Förstår inte*

TravoniMedlem sedan okt. 20041 556 inlägg

12 dec. 2005 14:32#16

Testa att söka i forumet. regexp*

SoulGodMedlem sedan aug. 20051 200 inlägg

12 dec. 2005 16:10#17

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

12 dec. 2005 16:20#18

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?