Avatar billede popstar Nybegynder
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?
Avatar billede thaufer Nybegynder
05. oktober 2001 - 14:54 #1
det ville klart være nemmere hvis du brugte en database m/ en primærnøgle
Avatar billede cool_casper Nybegynder
05. oktober 2001 - 14:56 #2
Ja, det tror jeg også... Brug f.eks. en Access database istedetfor!
Avatar billede thaufer Nybegynder
05. oktober 2001 - 14:57 #3
så er det så nemt som at klø\' sig i røven:
SQL: ORDER BY \'ID\'
Avatar billede popstar Nybegynder
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!
Avatar billede prof2 Nybegynder
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
Avatar billede thaufer Nybegynder
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!
Avatar billede thaufer Nybegynder
05. oktober 2001 - 15:06 #7
hvis ID kolonnen er en autonummerering...
Avatar billede stig3 Mester
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....
Avatar billede popstar Nybegynder
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
%>
Avatar billede stig3 Mester
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.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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