webForumDet fria alternativet

Senaste inlägget överst

ASP

6 svar · 276 visningar · startad av berntg

Medlem sedan feb. 200187 inlägg
Frågan#1

Har ett chatscript som jag vill modifiera, men inte lyckas riktigt.

Jag vill ha att senaste inlägget hamnar överst, men var i koden skriver jag det?

Vidare vill jag att allt äldre än ex. 2 timmar gammalt raderas.

Koden:
set RSMessages = conn.Execute("select ChatID, Message from Chat where " _
& "ChatID > " & Session("LastEntry"))
do until RSMessages.EOF
Session("Thread") = Session("Thread") & RSMessages("Message") & chr(13)
Session("LastEntry") = RSMessages("ChatID")
RSMessages.MoveNext
Loop

Medlem sedan dec. 200012 464 inlägg
#2
set RSMessages = conn.Execute("select ChatID, Message from Chat where " _ 
& "ChatID > " & Session("LastEntry") & " order by ChatID desc")
Medlem sedan feb. 200187 inlägg
#3

Tack, men det gjorde ingen skillnad.

Medlem sedan nov. 20017 144 inlägg
#4
databas.execute "delete from Chat where datediff('h',Date,now()) > 2",,128

Detta kanske du kan sätta innan selectsatsen för att ta bort de gamla inläggen. Vad gäller sorteringen så skall DESC sortera det senaste inlägget först och ASC åt det andra hållet. Har du tänkt att radera inlägg äldre än två timmar borde du ha en kolumn som heter datum eller så och då kan du ju sortera efter datum istället.

MVH Jesper T

:h

Medlem sedan aug. 2002218 inlägg
#5

Sortera efter Datum?

Hej!
Jag vill att senaste inlägget hamnar överst hur gör man?
Nuvarande kod:
<%
dim connect, classifieds, query, category
category = trim(request("category"))
if ("category") = "" then
Response.write "Ingen categori vald.<p>"
else
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
query = "select id,item,price,stad,datecreated from items "
query = query & "where category='" & category & "'"
set classifieds = connect.execute(query)
%>
<font size="4"><b>
<% if category="categori1" then %>
<% elseif category="categori2" then %>
<%=categori2%>
<% elseif category="categori3" then %>
<%=categori3%>
<% elseif category="categori4" then %>
<%=categori4%>
<% elseif category="categori5" then %>
<%=categori5%>
<% end if %>
</b></font>
<table border=0 bgcolor=#FFFFFF width=100% cellspacing=0 cellpadding=0 bordercolor=#FFFFFF align="center">
<tr bgcolor="#CCCCCC">
<th align=left width="35%">Föremål</th>
<th align=left width="18%">Pris</th>
<th align=left width="24%">Stad</th>
<th align=left width="23%">Datum</th
</tr>
<% do while not classifieds.EOF %>
<tr>
<td width="35%"> <a href=detail.asp?item=<%=classifieds("id")%>>
<%=classifieds("item")%></a></td>
<td width="18%"><%=classifieds("price")%></td>
<td width="24%"><%=classifieds("stad")%></td>
<td width="23%"><%=classifieds("datecreated")%></td>
</tr>
<% classifieds.movenext
loop
end if
%>

Medlem sedan nov. 20017 144 inlägg
#6

Order by datum i din sql-sats kanske.

query = "select id,item,price,stad,datecreated from items " 
query = query & "where category='" & category & "' Order by datum DESC"

förutsätter att du har en datumkolumn.

Använd [ kod ]-taggarna tack!

Medlem sedan aug. 2002218 inlägg
#7

Tack Jespe T funkar bra.

261 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)