webForumDet fria alternativet
Logga in / Bli medlem

Ändra bakgrundsfärg beroende på tid

ASP

25 svar · 475 visningar · startad av sven

svens avatarsvenMedlem sedan aug. 2001383 inlägg
Frågan#1

Jag har finurlat på ett litet bokningssystem för datorerna på min fritidsgård. För att sen visa vilka datorer som är upptagna och när, har jag följande script:

<%
Server.ScriptTimeout=600
%>
<html>
<head>
<meta http-equiv="refresh" content="5;URL=ofentlig_copy(1).asp">
<!-- #include file="puconnection.asp" -->
<!-- #include file="text2.css" -->
<title>Databokning</title>
</head>
<body>
<%
on error resume next
DagensDatum = Date
Nu = Time 
%>
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0" height="67">
  <tr>
    <th width="714" colspan="5" height="27"><font size="6" face="Berlin Sans FB"><% = DagensDatum %>&nbsp;&nbsp;&nbsp;&nbsp;Klockan är nu <% = FormatDateTime(Nu,4) %></font></th>
  </tr>
  <tr>
    <th width="87" height="19"><font size="6" face="Berlin Sans FB">Tid</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Mia</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Monica</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Thorsten</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Ronny</font></th>
  </tr>
<%  
SQL = " SELECT ddatum, ddator, namn, ttid FROM bokning WHERE ddatum = Date() ORDER BY ddatum"
set rs = db.Execute(SQL)

Tid = #16:15#
while Tid <= #21:35#
NewTime = Tid
strMia = "&nbsp;"
strMonica = "&nbsp;"
strThorsten = "&nbsp;"
strRonny = "&nbsp;"
strBack = "FFFFFF"
strVisatid = FormatDateTime(Tid,4)

rs.movefirst
while not rs.eof

datornamn = rs("ddator")  
strNamn = rs("namn")
bokadTid = FormatDateTime(rs("ttid"),4)
jmfTid = FormatDateTime(Tid,4)
if datornamn = "Mia" AND bokadTid = jmfTid then strMia = strNamn    
if datornamn = "Monica" AND bokadTid = jmfTid then strMonica = strNamn    
if datornamn = "Thorsten" AND bokadTid = jmfTid then strThorsten = strNamn    
if datornamn = "Ronny" AND bokadTid = jmfTid then strRonny = strNamn    
rs.movenext
wend
%>  
  <tr>
    <td width="87" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strVisatid %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strMia %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strMonica %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strThorsten %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strRonny %></font></td>
  </tr>
<%
Tid = dateadd("n",30,Tid)
wend  
%>  
</table>

</body>
</html>

Funkar precis som det skall. Kan bara vara krångligt att hålla reda på vilken tid som gäller just nu. Skulle därför vilja markera aktuell tid strBack.
Men jag får inte till det... alls
Har funderat på
if strVisatid = någonting??
strBack = "FFFFCC"
end if

Någon lösning någon?

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#2

Vad vill du göra sa du? Vilken tid ska du jämföra med?

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#3

Så här ser det ut nu
http://www.uk-fjallet.se/ofentlig.asp

Vad jag vill är att aktuell tid skall markeras med annan färg.

solbulleMedlem sedan mars 20015 287 inlägg
#4

En liten reflektion, känns ganska onödigt imho att uppdarea var 5:e sek.

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#5

Kanske det... men det är ju bara att ändra om man så vill. Till 10 eller så... :)

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#6
If strVisaTid = FormatDateTime(Now, 4) Then
  strBack = "FFFFCC"
Else
  strBack = "FFFFFF"
End If
svens avatarsvenMedlem sedan aug. 2001383 inlägg
#7

ne.... det vill sig inte.... blir inte det minsta gult :)

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#8
If CDate(strVisaTid) = FormatDateTime(Now, 4) Then

Kanske?

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#9

nepp.... inte det heller....

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#10

Om jag gör så här

If strVisatid = FormatDateTime(Now, 4) OR strVisatid < FormatDateTime(Now,4) Then

så är det lite närmare lösningen. Då fär den nuvarande tiden men tyvärr alla tidigare tider, gul färg.

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#11

Givetvis... jag som är dum :r

tidNu = FormatDateTime(Now, 4)

If tidNu >= Tid And DateAdd("n", 30, (Tid)) <= Tid Then

Nu är jag lite osäker på om du måste dra bort 30 minuter från tid, eftersom det görs en DateAdd på Tid, men jag tror att paranteserna runt ska förhindra att variabeln ändras. Du kommer att märka det ;)

Palles avatarPalleMedlem sedan apr. 20003 174 inlägg
#12

Gör ett frest jag med, testa detta: :)

[RED]<%

strActualTime = FormatDateTime(Now, 4)
strInterval1 = FormatDateTime(DateAdd("n", -15, strVisaTid),4)
strInterval2 = FormatDateTime(DateAdd("n", +15, strVisaTid),4)

If strActualTime > strInterval1 AND strActualTime < strInterval2 Then strBack = "FFFFCC" Else strBack = "FFFFFF"

%>[/RED]
svens avatarsvenMedlem sedan aug. 2001383 inlägg
#13

Ahhh... Palle... du är en stjärna
nu funkar det som det skall :)

Palles avatarPalleMedlem sedan apr. 20003 174 inlägg
#14

np :bire

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#15

nepp... tiden blev inte riktigt riktig
Nu byter den på hel och inte på kvart i och kvart över som den skall... hmmm

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#16

Ändra 15 och -15 till 16 och -16

Eller sätt >= och <= i If-satsen.

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#17

ne... inte då.... :(

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#18

Testade du min variant?

dteNu = FormatDateTime(Now, 4)

If dteNu >= Tid And dteNu <= DateAdd("n", 30, (Tid)) Then
SebbeMedlem sedan jan. 20032 285 inlägg
#19

Ska det inte vara

<%

strActualTime = FormatDateTime(Now, 4)
strInterval1 = FormatDateTime(DateAdd("n", -15, strActualTime),4)
strInterval2 = FormatDateTime(DateAdd("n", +15, strActualTime),4)

If strActualTime > strInterval1 AND strActualTime < strInterval2 Then strBack = "FFFFCC" Else strBack = "FFFFFF"

%>

om du använder Palles script?

svens avatarsvenMedlem sedan aug. 2001383 inlägg
#20

jepp... den ville sig inte den heller... blev inget gult alls ....

258 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)