På vanligt sätt kan man ju visa om en person är inloggad på icq med <img src="http://wwp.icq.com/scripts/online.dll?icq=100988938&img=5"> som ju då visar en bild. Men kan jag med en If-sats visa en egen text eller bild geonom att använda nån annan komponent från icq?
Visa online med tex. ICQ?
27 svar · 1 190 visningar · startad av bigsky
Åsså har man klippt & klistrat...
<%
call checkICQStatus(11797197,2)
Sub checkICQStatus(uin,typ)
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://wwp.icq.com/scripts/online.dll?icq=" & uin & "&img=1", False
objHTTP.Send
Filesize = LenB(objHTTP.ResponseBody)
Set objHTTP = Nothing
Select Case Filesize
Case 446
status = "Online"
Case 475
status = "Offline"
Case 1278
status = "Disabled"
Case Else
status = "Unknown"
End Select
If typ = 1 then
Response.Write UIN & " <img src=""" & status & ".gif"">"
else
Response.Write UIN & " : " & status
End IF
End Sub
%>
Får du den koden att fungera? Inte jag...
Feltyp: (0x800C0005) verkar vara nåt med "GET"
Jag provade att byta ut 11797197 mot mitt UIN, inte för att det spelar någon roll... Inkluderade adovbs.inc tja det var som allt. Berätta hur du gör? Hur ser sidan ut i sin helhet?
Det händer inget alls. Står bara att sidan inte kan visas. Spelar ingen roll vart i sidan man klistrar in koden.
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="adovbs.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
call checkICQStatus(11797197,2)
Sub checkICQStatus(uin,typ)
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://wwp.icq.com/scripts/online.dll?icq=" & uin & "&img=1", False
objHTTP.Send
Filesize = LenB(objHTTP.ResponseBody)
Set objHTTP = Nothing
Select Case Filesize
Case 446
status = "Online"
Case 475
status = "Offline"
Case 1278
status = "Disabled"
Case Else
status = "Unknown"
End Select
If typ = 1 then
Response.Write UIN & " <img src=""" & status & ".gif"">"
else
Response.Write UIN & " : " & status
End IF
End Sub
%>
</body>
</html>
----
Sidan kunde inte visas
Det har uppstått problem med sidan du försökte nå. Den kunde inte visas.
--------------------------------------------------------------------------------
Prova att:
Klicka på knappen Uppdatera, eller försök igen senare.
öppna hemsidan localhost och titta efter länkar till informationen du söker.
HTTP 500.100 - Internt serverfel - ASP-fel
Internet Information Services
--------------------------------------------------------------------------------
Teknisk information (för supportpersonal)
Feltyp:
(0x800C0005)
/bsa/icq.asp, line 20
Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Sida:
GET /bsa/icq.asp
Tid:
den 13 maj 2002, 00:17:50
Mer information:
Microsoft Support
testade sidan jag oxå och det fungerar för mig...
ja, nu jävlar. Det funkade inte lokalt på IIS5.1, men däremot på webbhotellet och de kör ju också IIS, jaha
Bra, kul! :)
Här på Wf kanske? ;)
bigsky> Antagligen fick du det inte att fungera för att du helt enkelt inte har komponenten XMLHTTP. Vill du att det ska fungera lokalt, ladda ner MSXML SP3 från Microsoft, så bör det fungera. :)
Eller så kanske du helt enkelt inte var uppkopplad mot Internet?
Vart hos MS kan man hitta det SP3? Ser bara SP2, och om man har WinXP och/eller IE6 ska man ju inte behöva ladda ner det?
Hm, det kanske bara finns i SP2? :q
Jag har för mig att det ska finnas SP3:a... Aja, ladda ner någon version av MSXML, de flesta borde vara stabila. 4:an har ju varit ute rätt så länge. :)
Jo, MSXML3 SP2 är väl den som gäller.
http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid=28000438
Se uppe till höger, Essential info.
Mvh,
Varför inte 4:an, SP1? Är den releasen vek?
Jag brukar inte våga installera saker från Microsoft, om det inte kommit minst två service packs. ;)
Jo, version 4 lär fungera bra, men det är ingenting jag vågar installera på våra verksamhetskritiska servrar. :)
Mvh,