nicht angemeldet
Counterproblem in asp
Hallo zusammen!
habe folgendes Problem: Ich möchte einen Counter programmieren, dessen Wert sich wieder auf 1 setzt, wenn sich der aktuelle Monatstag vom gespeicherten Wert in der txt-Datei unterscheidet. Im Klartext: wenn morgen der 16. ist, soll er 15 mit 16 vergleichen und den counter auf 1 setzen. Irgendwie klappt der unten stehende Code nicht ganz: Bei einem neuen Tag bleibt count permanent auf 1.
Vielen Danke für eure Hilfe,
Holger
<%
myday = DatePart("d", date) 'the current day
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("counter_daily.txt")
Set ts = fs.OpenTextFile(File, 1)
txtday = ts.ReadLine 'the day saved in count_daily.txt
count = ts.ReadLine
ts.Close
If txtday = myday Then
count = count + 1
Else
count=1
End If
Response.Write "Hits today: " & count &""
Response.Write "<br>" & txtday &""
Response.Write " " & myday &""
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(File,2, true)
a.WriteLine(myday) 'current date is saved
a.WriteLine(count) 'visitors are saved
a.Close
%>
-
Mit anderen Worten:
die folgende Bedingung: " If txtday = myday Then ..." ist nie erfüllt, auch wenn beide Variablen gleich sind.
Das ist doch die richtige Syntax in VBscript,oder?-
Hallo,
probier bitte mal den Inhalt der Variablen zu konvertieren:
if CLng(txtday) = CLng(myday) then...Vielleicht klappt es dann !
-
indem man beide nach int castet klappt es:
if CInt(txtday) = CInt(myday)
eigentlich dachte ich, dass asp eine implizite Typkonvertierung hat.
Aber warhscheinlich hatte er mit dem myday, das ja aus der Funktion date() gewonnen wird, so seine Probleme.Trotzdem danke,
Holger-
Hi, hallo
eigentlich dachte ich, dass asp eine implizite Typkonvertierung hat.
darauf würde ich nicht vertrauen :-)
Variablen in VBS sind immer vom Typ Variant und haben aber einen Untertyp und der ist Date,Long,Single,String und so weiter ... kein ganz logisches Konzept
Tschau, tschüß,
Frank
-
-
-