detta funkade utmärkt partikb...
jag undrar om nån annan kan hjälpa mig men en sak eftersom PartikB ser på tv nu :e
hur jag ska bygga upp det så att jag scriptet ska visa flera olika webcams status? (alla webcam-sidorna ligger på min server)
Se om webcam är aktiv
22 svar · 595 visningar · startad av Sico · sida 2 av 2
Frågan, av Sico
På min sida så har jag länkat min webcam. Tänkte då att det skulle va en grön/röd ikon bakom längen för att besökarna lätt ska se om den är igång eller ej.. hur gör man detta på lättaste vis? skulle man på nåt sätt kunna göra såhär: Min bild som läggs till när jag går offline är på 50kb medan när webcamen är onlie så är bilderna på 11-14kb.. Skulle man kunna göra en IF-sats på nåt sätt att I
Läs frågan i sin helhet →beror ju på hur du visar bilderna, eller vill visa bilderna?
testa detta ... som sagt, otestat :OO
<%
Dim varWebcamImg(2)
Dim strRootPath, strFilePath, strImgPath
Dim dteFileDate, dteMinuteDiff
Dim objFSO, objFile
'## -- fysiska sökvägen till wwwroot --
strRootPath = Server.MapPath("/")
'## -- array med alla sökvägar till webcamerabilderna från wwwroot --
varWebcamImg(0) = "/webcam1/webcamimg1.gif"
varWebcamImg(1) = "/webcam2/webcamimg2.gif"
varWebcamImg(2) = "/webcam3/webcamimg3.gif"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
For N = 0 TO UBound(varWebcamImg)
strImgPath = varWebcamImg(N)
'## -- hämta filen för att kontrollera senast ändrat datum --
Set objFile = objFSO.GetFile(strRootPath & strImgPath)
'## -- datum när filen senast uppdaterades --
dteFileDate = objFile.DateLastModified
'## -- hur många minuter sedan filen uppdaterades --
dteMinuteDiff = DateDiff("n", dteFileDate, Now())
'## -- kolla om filen är yngre än 1 minut.
'## om, webcameran online. annan uppdaterings frekven
'## på webcameran/webcamerorna så ändras 1:an till
'## webcamerornas uppdaterings frekvens --
If dteMinuteDiff < 1 Then
Response.Write "<IMG src=""" & strImagePath & """><BR>Online<BR><BR>"
Else
Response.Write "Offline<BR><BR>"
End If
Set objFile = Nothing
Next
Set objFSO = Nothing
%>
cya,
PatrikB ...... som nu ska gå och krama kudden .....
jag har fortfarande problem med sökvägarna :(