Har ett kalender-script med kod som jag inte riktigt förstår.
Kan någon översätta åt mej?
Observera att kodsnuttarna inte är sammanhängande, har försökt ta med det som jag tror har samband.
sd = DateSerial(ar, manad, 1)
sn = DatePart("w", sd, 2, 0)%>
<%For i = 1 to 7
If i >= sn Then.......
If Request.QueryString("date") = "" Then
nu = date()
Else
nu = Request.QueryString("date")
End If
...............
If Request.QueryString("date") <> "" Then%>
Hej!
Jag har tyvärr ej tid, men sök på DateSerial på Google eller kolla in på http://msdn.microsoft.com
Vad DatePart annars gör är att kolla exempelvis vilken vecka det är.
Just nu är det vecka <%=DatePart("ww",Date())%>.
Den sista koden kollar ifall om date har tagits emot från adressen i webbläsaren (via Querystring) och har den INTE det, så får nu värdet date() som är datumet för idag. Om querystringen inte är tom så blir variabeln nu querystringens värde - det vill säga ett datum.
Den sista If-satsen kollar ifall om querystringen för date är allt annat än tom, och i så fall fortsätter koden.
Det var allt för mig nu, hoppas att någon annan har tid att berätta mer för dig. :D
[blue]'sätt sd till den 1:a månad [i]manad[/i] år [i]ar[/i][/blue]
sd = DateSerial(ar, manad, 1)
[blue]'sätt sn till veckodagen för datumet sd, 1 = Måndag, 2 = Tisdag, osv..[/blue]
sn = DatePart("w", sd, 2, 0)%>
[blue]'loopa igenom en vecka[/blue]
<%For i = 1 to 7
[blue]'gör något för varje dag från och med när den 1:a inträffar i veckan...[/blue]
If i >= sn Then
[blue]'sätt nu till dagens datum om inte något skickats med querysträngen[/blue]
If Request.QueryString("date") = "" Then
nu = date()
Else
nu = Request.QueryString("date")
End If
[blue]'gör något om querysträngen inte är tom (vilket redan kollats förvisso...?)[/blue]
If Request.QueryString("date") <> "" Then%>
