05. oktober 2001 - 14:51
Der er
7 kommentarer og 3 løsninger
Sortering efter nyeste indlæg
Hej! Jeg har følgende: <% Filen = Server.MapPath(\"book.dat\") Set fs = CreateObject(\"Scripting.FileSystemObject\") Set a = fs.OpenTextFile(Filen, 1) do while not a.AtEndOfStream tmpStr = a.ReadLine tekstArray = Split(tmpStr, \",\", -1, 1) navn = tekstArray(0) email = tekstArray(1) besked = tekstArray(2) pris = tekstArray(3) datoen = tekstArray(4) response.write \"<a href=\"\"mailto:\" & email & \"\"\">\" & navn & \"</a> skrev (\" & datoen & \"): <br><b>\" & besked & \"</b><br><p>\" & \"</a> Prisen er: \" & pris & \" kroner<br><br>\" loop a.Close set a = nothing set fs = nothing %> Hvordan kan jeg få det nyeste indlæg til at stå øverst på siden?
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
05. oktober 2001 - 14:54
#1
det ville klart være nemmere hvis du brugte en database m/ en primærnøgle
05. oktober 2001 - 14:56
#2
Ja, det tror jeg også... Brug f.eks. en Access database istedetfor!
05. oktober 2001 - 14:57
#3
så er det så nemt som at klø\' sig i røven: SQL: ORDER BY \'ID\'
05. oktober 2001 - 14:59
#4
Hmm... så skal jeg til at lærer det... øv! - Jeg tror der var en nem lille kode man kunne sætte ind!
05. oktober 2001 - 15:03
#5
thaufer> Det du har skrevet i dit andet indlæg er forkert... Så det er vel ikke så nemt, vel! SQL: ORDER BY ID DESC
05. oktober 2001 - 15:05
#6
rolich...rolich... ORDER BY \'ID\' virker også, hvis man har en accessdb! Det gør det underligt nok hjemme hos mig!
05. oktober 2001 - 15:06
#7
hvis ID kolonnen er en autonummerering...
05. oktober 2001 - 15:09
#8
Hvor er koden til at sætte en ny besked ind i tekstfilen ?? Du kunne jo her sikre dig at du indsatte en ny besked øverst i tekstfilen. Så vil det jo komme omvendt ud....
05. oktober 2001 - 15:13
#9
Hvis det kan hjælpe er dette indtastningskoden: <% if Request.Servervariables(\"REQUEST_METHOD\") = \"POST\" then navn = Request.Form(\"navn\") email = Request.Form(\"email\") besked = Request.Form(\"besked\") pris = Request.Form(\"pris\") if navn <> \"\" then navn = replace(navn, \",\", \".\") navn = replace(navn, vbcrlf, \"\") else navn = \"ingen navn\" end if if email <> \"\" then email = replace(email, \",\", \".\") email = replace(email, vbcrlf, \"\") else email = \"ingen email\" end if if besked <> \"\" then besked = replace(besked, \",\", \".\") besked = replace(besked, vbcrlf, \"<br>\") else besked = \"ingen besked\" end if if pris <> \"\" then pris = replace(pris, \",\", \".\") pris = replace(pris, vbcrlf, \"<br>\") else pris = \"kom med et forslag til prisen i\" end if Dataen = navn & \",\" & email & \",\" & besked & \",\" & pris & \",\" & date Filen = Server.MapPath(\"book.dat\") Set fs = CreateObject(\"Scripting.FileSystemObject\") Set a = fs.OpenTextFile(Filen, 8, True) a.Writeline(Dataen) a.Close set a = nothing set fs = nothing response.redirect \"readbook.asp\" else %>
05. oktober 2001 - 15:23
#10
Det kan godt være at det ikke er den smarteste måde at sætte den ind øverst. Der ser ikke lige ud til at være en metode på filesystemobject til at gøre det. I stedet kunne man måske sætte alle linierne ind i et array når man læser dem og så skrive dem ud bagfra.
Kurser inden for grundlæggende programmering