Online server - script

Du laver bare et XMLHTTP request til en side på serveren.. hvis du får fat på siden, er serveren oppe.. ellers er den nede..

Denne kode indlæser en url, og returnerer kildekoden:

<%
option explicit
on error resume next

function loadpage(url)
dim kildekode

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", url, False

' Actually Sends the request and returns the data:
xml.Send

kildekode = xml.responseText

Set xml = Nothing

loadpage = kildekode
end function

%>

Den bruges f.eks. sådan her:

dim tmp
tmp = loadpage("http://www.dinserver.dk/side.asp")

Hvis du bruger "on error resume next", vil du få en fejlkode, som du kan returnerer, i stedet for kildekoden..

Men det er op til dig..

Komplet eksempel:

<%
option explicit

function loadpage(url)
on error resume next

dim kildekode

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", url, False

' Actually Sends the request and returns the data:
xml.Send

kildekode = xml.responseText

Set xml = Nothing


if err.number <> 0 then kildekode = "FEJL!: " & err.number & " - " & err.description

loadpage = kildekode
end function

dim tmp
tmp = loadpage("http://www.dinserver.dk/side.asp")

if left(tmp, 5) = "FEJL!" then
    response.write "offline"
else
    response.write "online"
end if
%>

hvad nu hvis det er en anden server man skal kunne se er online, fx. web1 skal vise om web1 og web2 er online eller offline.

#!/usr/bin/env python
# -*- coding: UTF-8 -*-
import urllib
def CheckIt(urlList):
    for url in urlList:
        try:
            site = urllib.urlopen( url )
            print "site :", url, " Online"
        except:
            print "site :", url, " Offline"
urlList =( "http://www.google.com", "http://www.databassen.dk:8090/bauerdata", )
CheckIt( urlList )
# python er nemt, python er sjovt.

bauerdata> Du har det med altid at svare i Python.
Vær venlig ikke at svare i Python, når der skal bruges ASP, eller et andet sprog.


Jeg vil anbefale, at du enten holder op med at svare i Python, i ikke-Python kategorierne. Eller tag dig sammen og lær et eller flere programmeringssprog.


Hvis du fortsætter med at besvare ikke-Python relatererede spørgsmål, med Python, vil jeg anmelde dig brud på Ekspertens regel §2.1.8, der siger:

"[Det er ikke tilladt at:] spamme, flame eller skrive indlæg uden relevans for det aktuelle spørgsmål."


Python er ikke relevant for dette spørgsmål, selvom det kan lade sig gøre, at løse et ligende problem med Python.. eller PHP, for den sagsskyld.

thomasmyg> Man kan jo ikke fra web1, checke om web1 er online.. :-)
Hvis web1 ikke er online, kan filerne på web1 jo ikke afvikles.. :-)


Her er et eksempel, hvor man checker om web1 og web2 serverene er online, fra en anden server:

dim tmp


tmp = loadpage("http://www.web1.dk/side_paa_web1.asp")

Response.write "Web1: "

if left(tmp, 5) = "FEJL!" then
    response.write "offline"
else
    response.write "online"
end if


tmp = loadpage("http://www.web2.dk/en_helt_anden_side_paa_web2.asp")

Response.write "Web1: "

if left(tmp, 5) = "FEJL!" then
    response.write "offline"
else
    response.write "online"
end if



Du kunne f.eks., via web1, se om web2 er online, og modsat.

web1 checker: tmp = loadpage("http://www.web1.dk/side_paa_web1.asp")

web2 checker: tmp = loadpage("http://www.web2.dk/en_helt_anden_side_paa_web2.asp")


Forstår du? - Hvis ikke, sig til, så skal jeg forklare nærmere..

Doh!

Rettelse:

Du kunne f.eks., via web1, se om web2 er online, og modsat.

web1 checker: tmp = loadpage("http://www.web2.dk/en_helt_anden_side_paa_web2.asp")

web2 checker: tmp = loadpage("http://www.web1.dk/side_paa_web1.asp")


Forstår du? - Hvis ikke, sig til, så skal jeg forklare nærmere.. :-)

ok, så bliver det på denne her måde, jeg har 2 web-servere så self skal kunne vise sider på nettet, den ene server skal være den hvor min hjemmesider er på og på den side skal der være en lille boks med et driftstatus over de to servere, hvor man kan se om de er online eller offline og ja hvis server1 ikke er online nej så kan man slet ikke se siden så den er faktisk unødvendig at ha', men nu har jeg besluttet mig for at vise statuset for server1 også.

Kan du følge mig?

er du der surfer?

Du kan gøre sådan her:

1) Gem ASP koden i en kaldet status.asp
2) Inkluder filen i toppen af de sider, der skal kunne vise status
3) Indsæt følgende kode: <%=loadpage("adressen her")%>

Det er bare det. Husk at der *ikke* må være HTML kode før linien "option explicit".
Hvis du vil, kan du fjerne linien "option explicit".
Den linie tvinger programmøren til at "dim"'e (erklære) variablerne, før de kan bruges.. hvilket betyder, at server forhindre stavefejl når du skriver variabelnavne forkert, da de jo allerede skulle være defineret.

Eksempel:

<!-- #include file="status.asp" -->
<html>
<head>
<title>min side</title>
</head>

<body>
Hello world.
<br><br>
Status på server 1: <%=loadpage("http://www.server1.dk/side.asp")%>
<br>
Status på server 2: <%=loadpage("http://www.server2.dk/en_anden_side.asp")%>

</body>
</html>


Sig til hvis du har brug for hjælp, til at få det til at fungerere.

>>> Thesurfer.
<HTML><BODY>
<%@ Language=Python %s>
<%
#
import urllib

def CheckIt(urlList):
    for url in urlList:
        try:
            site = urllib.urlopen( url )
            Respose.Write( "site : %s Online" % ( url ) )
        except:
            Respose.Write( "site : Offline" % ( url ) )
urlList =( "http://www.google.com", "http://www.databassen.dk:8090/bauerdata", )
CheckIt( urlList )
# python er nemt, python er sjovt.
%>
</BODY></HTML>

ups. der var fejl i ovenstående.
            Respose.Write( "site : %s Online" % ( url ) )
        except:
            Respose.Write( "site : Offline" % ( url ) )

rettes til
            Response.Write( "site : %s Online<br>" % ( url ) )
        except:
            Response.Write( "site : %s Offline<br>" % ( url ) )

bauerdata> Du skal nok ikke regne med, at thomasmyg kan rette det til eller lave ændringer, når det ikke er i VBScript, som man normalt bruger i ASP.

thesurfer, måske jeg kan logge dig til at rette det lidt til, jeg har en side bygget op med css og en main boks hvor alle mine sider bliver vist, kig her. www.hilsoe.dk, det er til højre for scroll baren jeg gerne vil have to linjer en linje per server hvor der står om serveren er online eller offline.

thomasmyg> Angående "to linjer en linje per server hvor der står om serveren er online eller offline."

Hvad mener du med "linje"? Grafisk? Tekst?

tekst og lidt grafik, en rød og en grøn prik, men mon ikke jeg selv kan finde ud af og proppe det ind

Ok.. dvs, jeg skal bare finde ud af, hvor div-boksen skal hen?

hvis laver det i en div-boks så kan jeg selv sætte det ind det rigtge sted

1) Indsæt det her i toppen af dine side, der viser de andre sider:
<!-- #include file="status.asp" -->

2) Gem koden fra 23/06-2007 00:23:48 i filen "status.asp"

3)
<div class="status">
Server1: <%=loadpage("http://www.server1.dk/side.asp")%><br>
Server2: <%=loadpage("http://www.server2.dk/side.asp")%></div>


Det er bare det.

afprøver det lige.

Du kan evt rette denne blok

if left(tmp, 5) = "FEJL!" then
    response.write "offline"
else
    response.write "online"
end if

så den f.eks. også viser et billede:


if left(tmp, 5) = "FEJL!" then
%>
    <img src="rod.gif" alt="offline" title="offline">offline
<% else %>
    <img src="gron.gif" alt="online" title="online">online
<% end if %>

istedet for at bruge en www adresse,kan jeg så ikke bruge netBIOS navn eller den lokale ip adresse?

Hmm.. Du burde kunne bruge lokal ip.. men vel kun hvis de er på samme netværk..

Prøv dig frem med loadpage("http://ip-nr/side.asp") , eller hvad filen nu hedder..

Men.. det giver et knapt så korrekt billede, af hvor vidt serveren er oppe eller nede..

Det viser vel kun, om serverene kan tilgås fra det interne netværk.. og ikke fra internettet..

Dvs:
Selvom den siger "online", kan det være at folk ude på nettet ikke kan få fat i serveren..

jeg hoster selv begge servere. Hvad angår den fil som den skal kigge efter, hvis jeg nu kigger efter en default.asp, kan det så ikke drille når jeg nu hoster en hjemmeside for en kammerat og han også har en default.asp????

Nope.. den skal bare have en adresse, der ligger på serveren..

Du kunne også bare skrive http://www.server1.dk/ som adresse.. uden "side.asp"

Pointen er: den skal have en gyldig adresse

nu får jeg denne her fejl:

Expected statement

/status.asp, line 2

option explicit

Den skal stå som den allerførste linie. Der må ikke stå noget foran den, hverken ASP eller HTML.

Se f.eks.: 25/06-2007 02:53:45

Du kan også fjerne den, men så kan den ikke fortælle dig, når du laver stavefejl i variabelnavne..

Og hvis du ikke får at vide, at der er fejl i navnet på en variabel, kan du bruge meget lang tid på at finde ud af, hvad der egentligt er galt..

Jeg fornemmer at dit programmeringsniveau er meget lavt.

Jeg vil derfor anbefale at du læser op på ASP, f.eks. via:

http://www.html.dk/tutorials/asp/ (dansk)
http://www.w3schools.com/asp/asp_intro.asp

vil det sige jeg skal sætte min div uden for min <html></html>

Nej.

Du skal sætte denne linie før <html>:

<!-- #include file="status.asp" -->

Se venligst 25/06-2007 02:53:45.. følg eksemplet..

prøv lige og kig www.hilsoe.dk

når siden loades så sker der ikke noget, men klikker man på et link og venter(lidt for længe) så kommer der en fejl.

Hvor gammel er den kode du bruger..? :-)

Brug koden fra 23/06-2007 00:23:48.

Du kan evt rette denne blok

if left(tmp, 5) = "FEJL!" then
    response.write "offline"
else
    response.write "online"
end if

så den f.eks. også viser et billede:


if left(tmp, 5) = "FEJL!" then
%>
    <img src="rod.gif" alt="offline" title="offline">offline
<% else %>
    <img src="gron.gif" alt="online" title="online">online
<% end if %>

Ahh.. nu er det mig der blander ting sammen..
Hang on..

jeg har lige et spørgsmål imens du grafler kode ned. Kan man ikke kigger efter en service i styresystemet køre frem for at kigge efter et site?

fx. kigge efter den service der trækker IIS, hvis IIS ikke køre så er server2 f.eks offline.

Nope.. tror jeg ikke..

Denne funktion erstatter tidligere funktion:

function loadpage(url)
on error resume next

dim kildekode

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", url, False

' Actually Sends the request and returns the data:
xml.Send

kildekode = xml.responseText

Set xml = Nothing

dim status
if err.number <> 0 then
    'kildekode = "FEJL!: " & err.number & " - " & err.description
    status = "<img src=""offline.gif"" alt=""offline"" title=""offline"">offline"
else
    status = "<img src=""online.gif"" alt=""offline"" title=""online"">online"
end if

loadpage = status
end function


Nu passer det med:
<div class="status">
Server1: <%=loadpage("http://www.server1.dk/side.asp")%><br>
Server2: <%=loadpage("http://www.server2.dk/side.asp")%></div>

Læg mærke til, at billederne nu skal hedde online.gif og offline.gif.. så er det nemt at huske.. :-)

skal jeg stadig bruge option explicit?

Og hvorfor kan man ikke kigge om en given service køre?

Jeg tror ikke at ASP får adgang til services.. så skal du have installeret en komponent, der skaber forbindelse fra IIS serveren og til services..

Måske kan man.. men jeg tvivler.. sikkert pga sikkerhedsmæssige årsager..

Ang option explicit: Læs 25/06-2007 21:42:53.

nå men lige nu virker det ikke, for den siger at serveren med www.hilsoe.dk/default.asp er offline selvom jeg ved at den køre.

Jeg kan ikke indlæse http://www.hilsoe.dk/default.asp

prøv med www.hilsoe.dk/dafault.asp?side=main

Du har vel ikke smidt checket ind i http://www.hilsoe.dk/default.asp og samtidigt prøver på at checke PÅ http://www.hilsoe.dk/default.asp ?? :-)

Så vil den vel løbe ind i en uendelig loop!! :-)

www.hilsoe.dk/default.asp?side=main

Smid en dummy side ud i roden..

Eksempel: http://www.hilsoe.dk/dummy.asp

Check så på den adresse i stedet for..

Og husk!: Kaldet (loadpage....) må IKKE komme fra selve filen du checker på! :-)

med dummy så går det lidt hurtigere, men hvorfor kommer den status ikke frem når siden loades første gang istedet for når man har klikket på et link?

Jeg kan ikke komme ind på siden http://www.hilsoe.dk/

Har du husket at fjerne kaldet fra default.asp til default.asp?

prøv nu

Jeg lagde lige mærke til, at der står "offline" som alternativ tekst..

Her er rettelsen, som erstatte nuværende kode:

dim status
if err.number <> 0 then
    'kildekode = "FEJL!: " & err.number & " - " & err.description
    status = "<img src=""offline.gif"" alt=""offline"" title=""offline"">offline"
else
    status = "<img src=""online.gif"" alt=""online"" title=""online"">online"
end if

Prøv evt at stoppe serveren og starte den igen..

Jeg tror at den stadig kører i loop..

genstarter serveren helt.

så er den oppe igen

så nu virker det fint ved load, lige bortset fra at server1 stadig er "offline" selvom den er online.

Det ser ud til at virke.. går jeg ud fra? :-)

Husk at smide 2 billeder, "online.gif" og "offline.gif" ved siden af filen med funktionen.. så vil de blive vist korrekt..

Hvilke adresser checker du med?

1) Se lige 25/06-2007 22:36:34

2) Hvilke adresser checker du med? Hvilken er Server1 og hvilken en er Server2?

server1 er den server hilsoe.dk ligger på, jeg kontrollere på www.hilsoe.dk/dummy.asp og har en tom fil der hedder dummy.asp

Jeg får fejl 500 på http://www.hilsoe.dk/dummy.asp

Hvis server1 er: http://www.hilsoe.dk/dummy.asp

Hvad er server2 så?

en server jeg ikke lige er færdig med at konfiguere så den er slukket

Angående 25/06-2007 22:43:30> Du er klar over, at det er server1 der er online, og server2 der er offline.. ik? :-)

Jamen, så virker det jo som det skal..

Se 25/06-2007 22:36:34.

ja det er jeg

jeg er ikke med på hvad det er du vil ha' mig til, de linjer du har skrevet  25/06-2007 22:36:34. har jeg allerede i min status.asp..........

Læs lige indlægget 25/06-2007 22:36:34 igen.. og igen.. og igen.. :-)

du bad mig om at læse den tre gange, nu har jeg læst den 5 gange og for mig er det nøjagtig det samme som jeg har stående i min status.asp

------------------->> status.asp <<----------------------------

<%
option explicit

function loadpage(url)
on error resume next

dim kildekode

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", url, False

' Actually Sends the request and returns the data:
xml.Send

kildekode = xml.responseText

Set xml = Nothing

dim status
if err.number <> 0 then
    'kildekode = "FEJL!: " & err.number & " - " & err.description
    status = "<img src=""offline.gif"" alt=""offline"" title=""offline"">offline"
else
    status = "<img src=""online.gif"" alt=""offline"" title=""online"">online"
end if

loadpage = status
end function
%>

Så har du læst det forkert, 5 gange..

Der står at du skal erstatte det den eksisterende kodeblok, der ligner det her, med det her:

dim status
if err.number <> 0 then
    'kildekode = "FEJL!: " & err.number & " - " & err.description
    status = "<img src=""offline.gif"" alt=""offline"" title=""offline"">offline"
else
    status = "<img src=""online.gif"" alt=""online"" title=""online"">online"
end if

:-)

Grunden til det er, at der i din nuværende kode står: alt=""offline"" ved online-billedet..

Der skal selvfølige stå: alt=""online""


Jeg mente at det var nemmere at erstatte hele kode-bloken, i stedet for at skulle til at forklare netop denne del..

Men jeg tog fejl :-)

enten er jeg spejlblank eller også er jeg bare træt, men jeg fatter minus af hvad du mener. For mig er det hele stadig ens. :o(

Det er er den linie du har nu:

    status = "<img src=""online.gif"" alt=""offline"" title=""online"">online"

Det her er den linie du skal bruge:

    status = "<img src=""online.gif"" alt=""online"" title=""online"">online"


Forskellen er, det der står ved: alt=""NOGET HER""

Kan du se det nu...? :-)

Hvis ikke:
I din nuværende kode står der alt=""offline"" ved "online"-billedet, hvilket jo er forkert..

Seriøst: er du egentlig analfabet? Dvs, har du svært ved at læse?

lol nej jeg ar bare træt, har været oppe siden fanden fik sko på. har set det og rettet det. men der er dog stadig en ting jeg ikke forstår, der står stadig at server1 er offline selvom den er online.

Nej, det er fordi du stadigvæk ikke har rettet det! :-)

Læs 25/06-2007 23:08:53 igennem.. tegn for tegn, og ikke linie for linie..

Sammenlign de to liner.. tegn for tegn! :-)

jo jeg har rettet, nu prøver jeg lige og vende serveren igen.

så virker det, man kan åbenbart ikke lave den kontrol på et sub-domæne.

lig et svar så du kan få dine point, tak for hjælpen og beklager jeg har varet lidt(underdrivelse) fatsvag.

Du bruger garanteret bare en forkert adresse.. :-)

igen fatsvag du har jo lagt et svar. :S

Svaret lagde jeg allerede i 23/06-2007 00:23:48.. :-)

Hehehehe :-)

nej jeg har brugt hilsoetest.hilsoe.dk

nå men jeg takker, og så prøver jeg altså lige med et spørgsmål angående kontrollen om en servide køre fremfor om en fil kan tilgåes.

Takker for points, og held og lykke med projektet.. :-)

det var hurtigt, men det lykkes mig at finde ud af det. Det kan faktisk godt lade sig gøre at kontrollere om en service køre med asp for IIS ser det sådan her ud:

function fnIsServiceRunningVB()
    dim objShell
    dim bReturn

    set objShell = CreateObject("Shell.Application")
        bReturn = objShell.IsServiceRunning("IISADMIN")
    set objShell = nothing
fnIsServiceRunningVB = bReturn
end function

Hvordan kan jeg fra en anden server få fat på din funktion på din maskine for at chekke om IIADADMIN kører :-?

??????

bauerdata> Du kan ikke fra A se om IISADMIN kører på B.

MEN:
Du kan fra A spørge B, om IISADMIN kører.

Eksempel, filen http://www.B.dk/serv.asp indeholder følgende kode:

function fnIsServiceRunningVB()
    dim objShell
    dim bReturn

    set objShell = CreateObject("Shell.Application")
        bReturn = objShell.IsServiceRunning("IISADMIN")
    set objShell = nothing
fnIsServiceRunningVB = bReturn
end function

Response.write "Kører IISADMIN?: " & fnIsServiceRunningVB


Så kan du fra A bruge følgende, til at få True eller False fra B:

function loadpage(url)
on error resume next

dim kildekode

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", url, False

' Actually Sends the request and returns the data:
xml.Send

kildekode = xml.responseText

Set xml = Nothing

if err.number <> 0 then kildekode = "FEJL!: " & err.number & " - " & err.description
loadpage = kildekode
end function

response.write loadpage("http://www.B.dk/serv.asp")


Hvis du ikke kan få forbindelse til filen " http://www.B.dk/serv.asp ", får du en fejlmeddelelse retur.