Notifikationer

Markér alle som læst Log ud

foralias Praktikant

13. juni 2003 - 07:33 Der er 21 kommentarer og
1 løsning

Automatisk opdatere dato.

Jag har tre .htm sider hvor forskellige personer kan gå ind og lave indlæg.
Jeg ville gerne om jeg på default.asp kunne lave en eller anden form for "ting" som opdatere datoen for redigeringen af siderne.
EKS:

Infomation fra | Opdateret
--------------------------
Direktionen | 06-06-2003
--------------------------
Salgsafdelingen| 08-06-2003
--------------------------
og lign.
Når så vores direktør går ind og redigere dokumentet "information.htm" ville jeg gerne om datoen i skemaet blev opdateret.
Jeg har prøvet med en inkluderet side (det meste er lavet i frontpage) men det gik ikke, jeg kunne ikke få den til at opdatere datoen.
200 pts til den der hjælper.
JEG ER DESPERAT HJÆLP !!!

P.s. hvorfor kan jeg ikke oprette spm. i Programmer: HTML Editorer.

Synes godt om

karsten_larsen Praktikant

13. juni 2003 - 10:19 #1

Jeg bruger følgende på alle sider. Den henter det tidspunkt og dato dokumentet er opdateret.

Ellers skal du lave side byggende på en database f.eks. asp.

<%
Dim strPhysicalPath, strPathinfo, objFSO, objFile

strPathinfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(StrPhysicalpath)

Response.Write "Denne side blev sidst opdateret " & objFile.DateLastModified & ""

Set objFSO = Nothing
Set objFile = Nothing
%>

:-) k_l

Synes godt om

foralias Praktikant

13. juni 2003 - 11:03 #2

Kan jeg få det til at virke er det dine point.
Hvordan fortæller jeg så ovenstående hvile filer det drejer sig om.

Synes godt om

foralias Praktikant

13. juni 2003 - 11:04 #3

hvilke filer, sorry stabefajl

Synes godt om

karsten_larsen Praktikant

13. juni 2003 - 12:10 #4

Du gør følgende

side1 1.htm omdøbes til 1.asp
side2 2.htm omdøbes til 2.asp
side3 3.htm omdøbes til 3.asp

Inden </Body> indsættes

<%
Dim strPhysicalPath, strPathinfo, objFSO, objFile

strPathinfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(StrPhysicalpath)

Response.Write "Denne side blev sidst opdateret " & objFile.DateLastModified & ""

Set objFSO = Nothing
Set objFile = Nothing
%>

Så burde det virke. Du skal have adgang til asp på jeres webserver.

Er det forskellige opdatering på den samme side, skal du gør brug af en database.

:-) karsten_larsen

Synes godt om

karsten_larsen Praktikant

13. juni 2003 - 12:14 #5

ups - jeg har vist misforstået dig. På forsiden skal dato for opdatering af de forskellige sider fremgå, ikk?

:-) k_l

Synes godt om

karsten_larsen Praktikant

13. juni 2003 - 12:18 #6

Så må det være sådan her

<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("1.htm"))
Response.Write("Denne side blev sidst opdateret: " & f.DateLastModified)
set f=nothing
set fs=nothing
%>

Synes godt om

foralias Praktikant

13. juni 2003 - 12:58 #7

Jeg prøver lige Karsten, så vender jeg tilbage, kan ikke lige love det bliver i dag men senest mandag, om direktøren vil ;-)
På forhånd tak.

Synes godt om

karsten_larsen Praktikant

13. juni 2003 - 15:34 #8

-> foralias

Her er al koden, har lige testet det og det virker. Side 1.htm etc er de sider som du henviser til.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="100%" border="1" bgcolor="#CCCCCC">
<tr>
<td width="22%">Information fra</td>
<td width="78%">Opdateret</td>
</tr>
<tr>
<td>Direktionen</td>
<td><a href="1.htm">Side 1 </a>
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("1.htm"))
Response.Write( f.DateLastModified)
set f=nothing
set fs=nothing
%>
</td>
</tr>
<tr>
<td>Salgsafdelingen</td>
<td><a href="1.htm">Side 2 </a>
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("2.htm"))
Response.Write(f.DateLastModified)
set f=nothing
set fs=nothing
%>
</td>
</tr>
<tr>
<td>Administrationen</td>
<td><a href="1.htm">Side 3 </a>
<%

set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("3.htm"))
Response.Write( f.DateLastModified)
set f=nothing
set fs=nothing
%>
</td>
</tr>
</table>
 

<a href="1.htm"> 
</a> 
<a href="1.htm"> 
</a>
</body>
</html>

:-) karsten_larsen

Synes godt om

karsten_larsen Praktikant

18. juni 2003 - 06:10 #9

-> foralias

Kan du få det til at virke??

:-) k_l

Synes godt om

foralias Praktikant

18. juni 2003 - 21:58 #10

Jeg er endnu ikke nået at tjekke det karsten.
Jeg fik lige besøg af to tømrer her i går og de skulle lige have mig til at flytte krydsfeltet, så de kunne brandisolere vækken i mit serverrum.
Det tog kun 4 timer og jeg skal på det i mogen igen. kl. 5:30

Synes godt om

foralias Praktikant

25. juni 2003 - 11:26 #11

Hej Karsten, når jeg forsøger at indsætte

<% dim fs, f set
fs=Server.CreateObject("Scripting.FileSystemObject") set
f=fs.GetFile(Server.MapPath("1.htm")) Response.Write("Denne side blev sidst
opdateret: " & f.DateLastModified) set f=nothing set
fs=nothing %>

Så flytter den automatisk teksten ned under <body/>, hvad gør jeg forkert.

Synes godt om

karsten_larsen Praktikant

25. juni 2003 - 14:16 #12

Koden skal være omgivet af <% koden %> ligesom resten af din default.asp side.

:-) k_l

Synes godt om

karsten_larsen Praktikant

25. juni 2003 - 14:24 #13

Du skal sætte det ind i selve koden!!

:-) karsten_larsen

Synes godt om

foralias Praktikant

25. juni 2003 - 14:55 #14

Ok så hvis jeg har forstået det ret skal
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("1.htm"))
Response.Write("Denne side blev sidst opdateret: " & f.DateLastModified)
set f=nothing
set fs=nothing
%>
ind og stå før body på side1.htm

og den lange kode som du gav mig skal så ind før body på index siden.
Er det korrekt?

Synes godt om

karsten_larsen Praktikant

25. juni 2003 - 19:09 #15

Nej og nej.

Koden nedenunder skal stå de steder, hvor du ønsker at datoen skal stå. Det vil sige i en tabel eller noget tilsvarende. Din side skal være en asp side.

<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("1.htm"))
Response.Write("Denne side blev sidst opdateret: " & f.DateLastModified)
set f=nothing
set fs=nothing
%>

Den lange kode fra den 13/06 er helt eksempel, som du kan se her http://www.dyring-larsen.dk/testdato.asp

:-) k_l

Synes godt om

foralias Praktikant

26. juni 2003 - 08:28 #16

Ok så tror jeg at jeg har fattet det, prøver det lige.

Synes godt om

karsten_larsen Praktikant

30. juni 2003 - 10:23 #17

Lykkes det?

Synes godt om

foralias Praktikant

30. juni 2003 - 10:38 #18

10-4 og en skumbanan.
Du er en helt Karsten tusind tak !!!

Synes godt om

foralias Praktikant

30. juni 2003 - 10:41 #19

Kan jeg lave fonten om til verdana?

Synes godt om

foralias Praktikant

30. juni 2003 - 11:08 #20

p.s. datoen kommer ud som mm-dd-yyyy med am og pm.
Men på serveren står det som dd-mm-yyyy med 24 timers angivelse.
Kan jeg få det til at ligne serverens angivelser?
Hvis smider jeg 75 pts. i et nyt spm.

Synes godt om

karsten_larsen Praktikant

01. juli 2003 - 09:15 #21

Vedr font, så kan du gøre det sådan her:
Response.Write "" & "Denne side blev sidst opdateret: " & f.DateLastModified & ""

Men jeg vil foreslår dig at bruge CSS til det. (prøv en turial på www.html.dk)

Vedr. tidsangivelser burde dette løse problemet skal stå som det første på din default.asp side.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

:-) k_l

Synes godt om

foralias Praktikant

01. juli 2003 - 11:14 #22

Karsten se points til karsten.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Programmeringsværktøjer kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Capcha problemer Af Asky i Programmeringsværktøjer	0	02/03/202517:21	-
senior Af Uroda i Programmeringsværktøjer	1	22/06/202418:29	23/06/202413:17
Sort Skærm Af Kaj Sondrup i Programmeringsværktøjer	5	25/02/202421:45	27/02/202420:17
DATA (D) Af rene1111 i Programmeringsværktøjer	3	21/02/202415:03	22/02/202409:08
Power Automate, åben en fil der er delt med mig Af KATM i Programmeringsværktøjer	1	16/02/202409:07	19/02/202409:10

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS