Notifikationer

Markér alle som læst Log ud

cybles Nybegynder

12. september 2001 - 15:27 Der er 17 kommentarer og
2 løsninger

AspPing + tekst til billede

Jeg har denne lille asp komponent som pinger nogle områder, det er ok, den svarer tilbage med en tekst der ser således ud :

Reply from 10.72.8.1 bytes=32 time=0ms TTL=119

Jeg vil havde det såleds at jeg i stedet har et billede, hvis forbindelsen er ok skal den vise det grønne billede og er forbindelsen ikke ok skal den være rød, jeg har selv \"billederne til dette\".

Herunder komponenten AsP Ping

<%
rem ***********************************************************
rem * Pinger Kolding
rem ***********************************************************
Set Pinger = Server.CreateObject(\"AspPing.Conn\")
Pinger.RemoteHost = \"www.kolding.dk\"
Pinger.PingCount = 1
Response.Write \"<pre>\" & Pinger.Ping & \"</pre>\"
Set Pinger = nothing

Er der en ASP / VBS haj der har et forslag til hvordan dette løses ?

Synes godt om

nordclc Nybegynder

12. september 2001 - 15:42 #1

Hvad retuneres hvis pingen går galt?

Synes godt om

nordclc Nybegynder

12. september 2001 - 15:47 #2

OK skal erstattes med det du får retur i pinger.ping når ping\'en er OK:

<%
Set Pinger = Server.CreateObject(\"AspPing.Conn\")
Pinger.RemoteHost = \"www.kolding.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

cybles Nybegynder

12. september 2001 - 16:45 #3

Det virker ikke jeg får denne fejl :

Error Type:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/iniextra/status.asp, line 56, column 26
Response.write \"<img src=\"ok.gif\">

Synes godt om

zeptic Nybegynder

12. september 2001 - 19:13 #4

Prøv med følgende:

<%
Set Pinger = Server.CreateObject(\"AspPing.Conn\")
Pinger.RemoteHost = \"www.kolding.dk\"
Pinger.PingCount = 1
resultat = pinger.ping
if InStr(resultat,\"timeout\")<>0 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

cybles Nybegynder

12. september 2001 - 19:23 #5

Technical Information (for support personnel)

Error Type:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/iniextra/status.asp, line 56, column 29
Response.write \"<img border=\"0\" src=\"ok.gif\">
----------------------------^

for stadigvæk en fejl

Synes godt om

nordclc Nybegynder

13. september 2001 - 07:54 #6

Ahhh, det er apostrofferne er der galt!

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

//Claus

Synes godt om

zeptic Nybegynder

13. september 2001 - 08:51 #7

nordclc: kan man nu ikke mere regne med at dine svar er fejlfrie? Jeg er skuffet, dybt skuffet..... :o)

Synes godt om

nordclc Nybegynder

13. september 2001 - 08:53 #8

Jeg ved det ;o) For jeg tænkte det samme som dig, altså at jeg troede jeg havde kopieret fejlen fra dig! Men så gik det op for mig at det var min egen - øv ;o)

Synes godt om

nordclc Nybegynder

13. september 2001 - 08:54 #9

zeptic> men så lånte jeg lige din \"InStr(resultat,\"timeout\")<>0\", så jeg håber den er OK ;o)

Synes godt om

zeptic Nybegynder

13. september 2001 - 08:59 #10

nordclc: sgu\' ikke hvis du får alle pointene for det!! :o) .........men ok, jeg lånte jo også af dig, så jeg kan vist ikke brokke mig....

Synes godt om

nordclc Nybegynder

13. september 2001 - 09:02 #11

zeptic> Får jeg dem alle, så skal jeg nok dele i porten ;o)

Synes godt om

cybles Nybegynder

13. september 2001 - 12:40 #12

Uanset om det jeg pinger svarer eller ikke svarer så få jeg sammen resutat den ender på fejl.gif

if InStr(resultat,\"timeout\")<>0 then
Response.write \"<img border=\'0\' src=\'ok.gif\'>\"
else
Response.write \"<img border=\'0\' src=\'fejl.gif\'>\"
end if

Synes godt om

zeptic Nybegynder

13. september 2001 - 12:42 #13

hvis den ikke svarer hvad skriver Pinger.Ping så? Det er nemlig den der undersøges, hvor det antages at svaret indeholder tekststrengen timeout hvis der er problemer.

Synes godt om

cybles Nybegynder

13. september 2001 - 12:49 #14

Det svarer tilbage med denne her :

Request timed out

Synes godt om

cybles Nybegynder

13. september 2001 - 12:53 #15

Har selv løst det :-) skulle bare lige forstå hvad det var Zeptic skrev :-)

Synes godt om

cybles Nybegynder

13. september 2001 - 12:56 #16

Jeg siger mange tak for hjælpen til jer begge og deler disse point imellem jer.

Synes godt om

nordclc Nybegynder

13. september 2001 - 13:04 #17

;o) Tak for dem

Synes godt om

cybles Nybegynder

13. september 2001 - 13:09 #18

Nordclc det var sådan set dig som i første omgang havde fortjent dem, men på grund af zeptic\'s MEGET pædagoiske indlæg fortjenner han så afgjort også nogle point :-)

Synes godt om

nordclc Nybegynder

13. september 2001 - 13:11 #19

cybles> helt enig, jeg havde også lovet zeptic at dele i porten - så OK med mig ;o)

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

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