12 svar · 307 visningar · startad av aleborg
Har ett klotterplank som ser ut så här:
<%
SQL="Select Rubrik, Mess, KlotterID, Ip, User, Datum From Klotter Order By Datum DESC"
Set rs=Conn.Execute(SQL)
Do Until rs.EOF
%>
'Poster
<%
rs.MoveNext
Loop
rs.Close
End If
%>
hur gör jag för att visa dom senaste 15 posterna och sedan länkar till "16-30, 31-45, osv"
Vet att jag sätt inlägg om det men hittade det inte!
sök efter paging
------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.
Använder du mySQL löser du det väldigt enkelt med LIMIT.
Annars maila mig så kan skicka över en kod för access.
använder MySQL :)
men hur får jag fram länk till efterföljande 15?
pagingen verkar onödigt krånglig, mycket kod för lite action...
[Redigerat av aleborg den 11 apr 2001]
eller så kanske man kan göra något sånthär :q
<%
Dim counter
counter = 0
SQL="Select Rubrik, Mess, KlotterID, Ip, User, Datum From Klotter Order By Datum DESC"
Set rs=Conn.Execute(SQL)
Do Until rs.EOF
counter = counter + 1
If NOT counter > 15 Then
'skriv ut inläget
Else
'skriv ut länken
End If
rs.MoveNext
Loop
rs.Close
End If
%>
------------------
// David - Probably the best guy in the world
SELECT kolumner FROM tabeller WHERE blaha_blaha LIMIT 0, 15
... ger de första femton posterna. Ponera att man har sidan i en querystringvariabel vid namn sida:
Dim antalPerSida, sida, sql
antalPerSida = 15
sida = 0
If (Request.QueryString("sida") <> "") and (CInt(Request.QueryString("sida")) >= 1) Then
sida = CInt(Request.QueryString("sida")) - 1
End If
sql = "SELECT blaha FROM yak WHERE parp ORDER BY something LIMIT " & (sida * antalPerSida) & ", " & ((sida * antalPerSida)+antalPerSida)
------------------
Life feeds on life feeds on life feeds on life feeds on life...
Hänger inte riktigt med dig där Spango :(
Min kod ser ut så här:
<% Else %>
<%
SQL="Select Rubrik, Mess, KlotterID, Ip, User, Datum From Klotter Order By Datum DESC Limit 0, 10"
Set rs=Conn.Execute(SQL)
Do Until rs.EOF
%>
<tr valign="top">
<td class="iebla" width="407" height="2"><b><%=koder(smilie(to_html(rs("Rubrik"))))%></b>
- [<%=rs("Datum")%>]</td>
<td class="ie" height="2">
<div align="right">Av: <a href="medlemmar.asp?ID=<%=rs("User")%>" class="mark"><%=rs("User")%></a>
<% If Session("svAccessgroup")= "Master" Then %>
<a href="klotter.asp?del=<%=rs("KlotterID")%>"><%=rs("Ip")%></a>
<% Else %>
<% End If %>
</div>
</td>
</tr>
<tr>
<td class="ie"><%=koder(smilie(to_html(rs("Mess"))))%></td>
<td class="ie"> </td>
</tr>
<tr>
<td class="ie" colspan="2"><img src="pics/lineh.gif" width="100%" height="3"></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
End If
%>
Hur hade du tänkt att man ska få ut automatisk länkning?
Någon som vet hur man gör med den här koden för att den ska passa MySQL? http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging
Fick hjälp av en polare men får ett litet fel,
Unexpected 'Next'
/klotter.asp, line 207
Han hade skrivit:
response.write rs(klotter) & "<br>"
next
men det är för mycket kod för att göra så, så jag bröt av och nu tycker den inte om mitt lilla tilltag! Någon som har ett förslag på hur jag kan få in all kod?
<%
page=request.querystring("page")
query="Select Rubrik, Mess, KlotterID, Ip, User, Datum From Klotter Order By Datum DESC"
set rs=conn.execute(query)
' HOPPA TILL RÄTT INLÄGG (page*15)
for t=1 to page*15
if not rs.eof then rs.movenext
next
' SKRIV UT NÄSTA 15 INLÄGG
for t=1 to 15
if not rs.eof then %>
<tr valign="top">
<td class="iebla" width="407" height="2"><b><%=koder(smilie(to_html(rs("Rubrik"))))%></b>
- [<%=rs("Datum")%>]</td>
<td class="ie" height="2">
<div align="right">Av: <a href="medlemmar.asp?ID=<%=rs("User")%>" class="mark"><%=rs("User")%></a>
<% If Session("svAccessgroup")= "Master" Then %>
<a href="klotter.asp?del=<%=rs("KlotterID")%>"><%=rs("Ip")%></a>
<% Else %>
<% End If %>
</div>
</td>
</tr>
<tr>
<td class="ie"><%=koder(smilie(to_html(rs("Mess"))))%></td>
<td class="ie"> </td>
</tr>
<tr>
<td class="ie" colspan="2"><img src="pics/lineh.gif" width="100%" height="3"></td>
</tr>
<%
next
'SKRIV UT LÄNKKNAPPARNA
%>
<tr>
<td class="ie" colspan="2">
<a href="inlägg.asp?page=0">1</a>
<a href="inlägg.asp?page=1">2</a>
<a href="inlägg.asp?page=2">3</a>
<a href="inlägg.asp?page=3">4</a>
</td>
</tr></table>
någon???? please...
Det saknas en end if som borde ligga precis innan next.
Sen så ser jag ingen rs.movenext i den andra loopen.
Det är också onödigt att skriva en tom else som du gör
<%ELSE
END IF%>
------------------
essentitia preter non sans multiplicandum
Jag har olika if och elseif satser tidigare i dokumentet därav else taggen, får det fortfarande inte att funka :(
Fick igång det :)