CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

unknown_someone Juniormester

09. juni 2003 - 20:54 Der er 13 kommentarer og
2 løsninger

ping asp-side

Er det muligt på en eller anden måde at lave et job - evt bare en asp-side - der tjecker om en asp-side er i "live"?

en server kan jo gå ned - men det kan også være at kun selve asp-"maskinen" på en server går ned, og det jeg så godt kunne tænke mig var at få besked om dette.

Så er der nogle der har idéer til hvordan det kan gøres - en asp-side kan også sagtens gå... kan man evt benytte AspHTTP til det?

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 20:57 #1

<%
Set Pinger = Server.CreateObject("AspPing.Conn")
Pinger.RemoteHost = "www.dinside.dk"
Pinger.PingCount = 1
resultat = pinger.ping
if resultat = OK then
Response.write "<img border=""0"" src=""ok.gif"">
else
Response.write "<img border=""0"" src=""fejl.gif"">
end if
Set Pinger = nothing
%>

Synes godt om

unknown_someone Juniormester

09. juni 2003 - 21:04 #2

man kan ikke benytte AspHTTP eller W3Sockets til det?

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 21:05 #3

det kender jeg ikke rigtig noget til...

Men jeg ved at det der script fungere hvis asp-ping understøttes på serveren!

Synes godt om

unknown_someone Juniormester

09. juni 2003 - 21:06 #4

det gør det desværre ikke :o/

Synes godt om

twm Nybegynder

09. juni 2003 - 21:15 #5

Her er et eksempel med AspHttp, men du kan ikke hente den direkte ud:
<html>
<body>
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.twm.dk/default.asp"
HttpObj.FollowRedirects = True
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = UsrAgent
HttpObj.GetURL

Response.Write HttpObj.Headers
Set HttpObj = nothing
%>
</body>
</html>

Den leverer:
HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Date: Mon, 09 Jun 2003 19:12:41 GMT
X-AspNet-Version: 1.1.4322
Set-Cookie: LBC=faa9766e5d42484e9137b2bf589efe8d; domain=twm.dk; expires=Mon, 09-Jun-2008 19:12:41 GMT; path=/
Cache-Control: private
Content-Type: text/html; charset=utf-8
Content-Length: 27753

Du kan derefter selv klippe teksten til!

Synes godt om

twm Nybegynder

09. juni 2003 - 21:24 #6

og hvis du ikke gider lave resten selv så er det her:
<html>
<body>
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.twm.dk/default.asp"
HttpObj.FollowRedirects = True
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = UsrAgent
HttpObj.GetURL

strTemp = HttpObj.Headers
intFirstSpace = InStr(strTemp," ")+1

strResponseCode = mid(strTemp,intFirstSpace,3)

if(strResponseCode=500)
Response.Write("OK")
else
Response.Write("False")
Set HttpObj = nothing
%>
</body>
</html>
;)

Synes godt om

twm Nybegynder

09. juni 2003 - 21:25 #7

Ups manglede lige to " ":

<html>
<body>
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.twm.dk/default.asp"
HttpObj.FollowRedirects = True
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = UsrAgent
HttpObj.GetURL

strTemp = HttpObj.Headers
intFirstSpace = InStr(strTemp," ")+1

strResponseCode = mid(strTemp,intFirstSpace,3)

if(strResponseCode="500")
Response.Write("OK")
else
Response.Write("False")
Set HttpObj = nothing
%>
</body>
</html>

Synes godt om

twm Nybegynder

09. juni 2003 - 21:49 #8

Har du fået det til at virke?

Synes godt om

unknown_someone Juniormester

09. juni 2003 - 22:45 #9

skulle lige lave et par smårettelser... du mangler en then, og så skal der nok tages højde for mere end en 500 fejl. Som minimum nok også 404.

men umiddelbart ser det ud til at virke perfekt - vender lige tilbage senere

Synes godt om

twm Nybegynder

09. juni 2003 - 23:17 #10

Ja, syntaxen var frit fra hoften, jeg skriver normalt c syntax! ;)

Synes godt om

unknown_someone Juniormester

11. juni 2003 - 15:01 #11

twm >> er det muligt at sætte en slags timeout - altså sådan så hvis der ikke svares tilbage inden fx 15 sek så bliver det læst som om at serveren ikke svarer tilbage?

Synes godt om

twm Nybegynder

13. juni 2003 - 12:26 #12

Du skal blot tilføje:
HttpObj.TimeOut = 15

Du kan derefter læse fejl ud med:
HttpObj.Error

Synes godt om

unknown_someone Juniormester

13. juni 2003 - 19:42 #13

15 - er det så antal sekunder?

Synes godt om

twm Nybegynder

22. juni 2003 - 17:52 #14

ja :)

Synes godt om

unknown_someone Juniormester

23. juni 2003 - 16:13 #15

jeg har fundet alt hvad jeg skulle bruge - så jeg fordeler lidt point

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Forretning & iværksættere kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ukendt/medfødt Ad Blocker giver problemer Af Busser i Forretning & iværksættere	10	12/09/202309:46	13/09/202308:57
Hjælp til Regnskaber og Indberetninger (I Sønderborg området) Af per2edb i Forretning & iværksættere	7	23/02/202114:08	19/05/202113:54
Søger: Programmeringsekspert til samarbejde Af VegaFK i Forretning & iværksættere	0	16/02/202123:30	-
Google Ads fejl, OR-RWE-03? Af Christian Hansen i Forretning & iværksættere	4	25/01/202116:04	27/01/202115:07
Kode til webløsning søger ny ejer Af artico i Forretning & iværksættere	0	10/09/202021:10	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS