Forum

JavaScript: document.lastModified - Από {Asteris}

Σε ένα JavaScript κώδικα που ετοίμασα, χρησιμοποιώ την ιδιότητα "document.lastModified" του αρχείου για να παίρνω την
πληροφορία του πότε αποθηκεύτηκε τελευταία φορά το αρχείο.

Δουλεύει κανονικότατα από το σκληρό μου δίσκο αλλά όταν το βάζω στο server (WIN NT), ενώ ο Internet Explorer το αναγνωρίζει
κανονικά σε κάθε περίπτωση, ο Netscape το αναγνωρίζει μόνο όταν το αρχείο έχει επέκταση .html. Όλες οι ιστοσελίδων μου έχουν επέκταση .htm ή .asp και δε γίνεται να αλλάξουν. Στις περιπτώσεις αυτές, στο script επιστρέφεται η τιμή "0" και ο Netscape εμφανίζει ως ημερομηνία τελευταίας ενημέρωσης του αρχείου την default ημερομηνία 1/1/1970.

Είναι θέμα ρυθμίσεων του server ή μπορεί να διορθωθεί ο κώδικας;

Απάντηση από:tony

3 script σχετικά document.lastModified
Βλέπε απαντήσεις με κώδικα

Απάντηση από:Asteris

Ευχαριστώ πολύ για την άμεση απάντηση αλλά δυστυχώς το πρόβλημα δε λύθηκε. Τελικά πιστεύω ότι δεν είναι θέμα κώδικα αλλά server (WIN NT) καθώς το ίδιο αρχείο με κατάληξη .html ο Netscape το διαβάζει πάντα κανονικά (δηλ. πάντα του επιστρέφεται από το server η τιμή του "document.lastModified"), με κατάληξη .asp δεν το διαβάζει ποτέ σωστά (πάντα του επιστρέφεται η τιμή 0), ενώ με κατάληξη .htm σε άλλους φακέλους του server το διαβάζει σωστά και σε άλλους όχι!

Καμιά ιδέα για το που να ψάξω; (Εκτός του administator, στον οποίο ήδη απευθύνθηκα).
Ευχαριστώ και πάλι για την προσπάθεια.

Απάντηση από:tony

Response.AddHeader "Last-Modified", DateToHTTPDate(Now()-1) Source : 'Converts date (19991022 11:08:38) 'to http form (Fri, 22 Oct 1999 12:08:38 GMT) Function DateToHTTPDate(Byval OleDATE) Const GMTdiff = #01:00:00# OleDATE = OleDATE + GMTdiff DateToHTTPDate = engWeekDayName(OleDATE) & _ ", " & Right("0" & Day(OleDATE),2) & " " & engMonthName(OleDATE) & _ " " & Year(OleDATE) & " " & Right("0" & Hour(OleDATE),2) & _ ":" & Right("0" & Minute(OleDATE),2) & ":" & Right("0" & Second(OleDATE),2) & " GMT" End Function  Function engWeekDayName(dt) Dim Out Select Case Weekday(dt,1) Case 1:Out="Sun" Case 2:Out="Mon" Case 3:Out="Tue" Case 4:Out="Wed" Case 5:Out="Thu" Case 6:Out="Fri" Case 7:Out="Sat" End Select engWeekDayName = Out End Function Function engMonthName(dt) Dim Out Select Case Month(dt) Case 1:Out="Jan" Case 2:Out="Feb" Case 3:Out="Mar" Case 4:Out="Apr" Case 5:Out="May" Case 6:Out="Jun" Case 7:Out="Jul" Case 8:Out="Aug" Case 9:Out="Sep" Case 10:Out="Oct" Case 11:Out="Nov" Case 12:Out="Dec" End Select engMonthName = Out End Function

Απάντηση από:tony

'Converts date in http form (Fri, 22 Oct 1999 12:08:38 GMT) 'to date Const GMTDiff As Date = #1:00:00 AM# Public Function DateFromHTTP(HTTPDate As String) As Date Dim Swd As String, d As String, Sm As String, y As String, h As String, m As String, s As String, g As String, Out As Date HTTPDate = LCase$(HTTPDate) If Mid$(HTTPDate, 27, 3) = "gmt" Then Swd = Left$(HTTPDate, 3) d = Mid$(HTTPDate, 6, 2) Sm = Mid$(HTTPDate, 9, 3) y = Mid$(HTTPDate, 13, 4) h = Mid$(HTTPDate, 18, 2) m = Mid$(HTTPDate, 21, 2) s = Mid$(HTTPDate, 24, 2) ' on error resume next Out = DateSerial(y, mFromSm(Sm), d) + TimeSerial(h, m, s) + GMTDiff ' on error goto 0 End If DateFromHTTP = Out End Function Function wdFromSwd(Swd As String) As Integer Dim Out As Integer Select Case LCase$(Swd) Case "sun": Out = 1: Case "mon": Out = 2: Case "tue": Out = 3: Case "wed": Out = 4: Case "thu": Out = 5: Case "fri": Out = 6: Case "sat": Out = 7 End Select wdFromSwd = Out End Function Function mFromSm(Sm As String) As Integer Dim Out As Integer Select Case LCase$(Sm) Case "jan": Out = 1: Case "feb": Out = 2: Case "mar": Out = 3: Case "apr": Out = 4 Case "may": Out = 5: Case "jun": Out = 6: Case "jul": Out = 7: Case "aug": Out = 8 Case "sep": Out = 9: Case "oct": Out = 10: Case "nov": Out = 11: Case "dec": Out = 12 End Select mFromSm = Out End Function

tip: Το βρέφος γεννιέται με σφιγμένη τη γροθιά . Ο άνθρωπος πεθαίνει με ανοιχτές παλάμες . Εσύ φίλε μου που βρίσκεσαι . * F5 για νέο tip

Πίσω στην προηγούμενη σελίδα