Jag har ett script där jag listar upp ett antal texter med bilder. Nu e det så att jag skulle vilja att de bara var 6 stycken på varje sida och sedan så skulle det automatiskt byta sida... Är det någon som kan hjälpa mig hur man gör? Kolla in Paging, ett sätt att dela in många poster på flera sidor. Tyvärr jag kunde inte utläsa så mycket ur den artikeln...om du skulle mer vilja hjälpa mig få in det i koden lr nåt? Ett tips är ju att du skippar all formatering, tar hans kod, sen när pagingen fungerar då stoppar du in din html kod. jo jag har läst artikeln igen men alltså jag förstår inte hur o var jag ska lägga in koden...plus att jag hittar bara en liten kodsnutt....mycket tacksam för hjälp! Stackare, jag ber om ursäkt. *skäms*Hur gör man?
här kommer koden:
<%Response.Buffer = "True"%>
<!--#Include file="settings.asp"-->
<html>
<head>
<title></title>
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
head>
<body>
<div id="Layer2" style="position:absolute; left:600px; top:115px; width:158px; height:650px; z-index:2">
<!--#include file="right.asp" -->
</div>
<div id="Layer2" style="position:absolute; left:10px; top:115px; width:164px; height:702px; z-index:2">
<!--#include file="meny.asp" -->
</div>
<table width="100%" height="19" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="19"><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="1035" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10" colspan="6"><img src="bilder/transparent.gif" width="1" height="10">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%> </td>
</tr>
<tr>
<td width="169" height="96"> </td>
<td colspan="2"><div align="right">
</div>
<table width="400" border="0" align="center" cellpadding="3">
<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")
If RecSet.EOF Then%>
<%Else
Do Until RecSet.EOF
Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")
If ReS.EOF Then%>
<%Else%>
<tr>
<td width="81" valign="top" nowrap class="text"> ">" width="75" border="0"> </td>
<td width="301" valign="top"> <span class="menyrubrik"><b>" class="menyrubrik"><%=RecSet("namn")%></b> </span><span class="text"><br>
</span> <span class="text">
<%If Len(ReS("bildinfo")) > 200 Then%>
<%= Left(Replace(ReS("bildinfo"), vbCrLf, "<br>" ),200)%>...<br>
<br>
" class="text">» Mer info
<%Else%>
<%=Replace(ReS("bildinfo"), vbCrLf, "<br>" )%>
<%End If%>
</span></td>
</tr>
<tr>
<tr>
<td height="9" colspan="3"><img src="bilder/streck_400.jpg" width="390" height="3"></td>
</tr>
<%End If
RecSet.MoveNext
Loop
End If%>
</table>
</p></td><td width="330"> </td>
<td width="21"> </td>
<td width="100"> </td>
</tr>
</table>
<br>
<br>
<br>
<br>
<br>
</body>
</html>Sv: Hur gör man?
Artikel [Alternativ till traditionell paging] den tar upp detta, den kan upplevas lite krånglig, men jag tycker den är bra.
//Anna-KarinSv: Hur gör man?
Sv: Hur gör man?
Visst det är inte den enklaste artikeln, men den är ändå på svenska och den är bra.
Läs och prova igen.
//Anna-KarinSv: Hur gör man?
Sv: Hur gör man?
Jag läste själv artikeln nu och inte undra på att du inte förstår den, det fattas ju massor av kod i den.
Bla den koden som ju är för att visa bilderna.
Dim SQL, Conn, RS, noFindings, vektor, lastRecord, pageSize, intPage, intShow, intRow, i
noFindings = "False"
'Antal poster per sida
pageSize = 12
'Sidan som ska visas
intShow = request.querystring("show")
'Om ingen sida är vald visas den första sidan
if Len(intShow) = 0 then
intShow = 0
end if
Set Conn = Server.CreateObject("ADODB.Connection")
SET Conn = clematis_GetDatabaseConn()
SQL = "SELECT bildID,bildnamn,Thumbnamn FROM tblImages"
Set RS = Conn.Execute(SQL)
'Kollar om databasen är tom
if not RS.BOF and not RS.EOF then
vektor = RS.GetRows() 'vektor(0,i) = BildID; vektor(1,i) = bildnamn vektor(2,i) = Thumbnamn
lastRecord = UBound(vektor,2) 'Sista posten i vektorn
else
noFindings = "True"
end if
Den här delen hämtar från databasen och sen lägger vi in det i en array. Du ser mina förklaringar.
Sen kommer delen där vi skriver ut våra bilder:
<%
'Om databasen inte är tom visas resultatet
if not noFindings then
response.write "<div class=""big"">" & vbnewline
'Räknar ut hur många sidor det blir
intPage = lastRecord\pageSize
if lastRecord < ((intShow*pageSize)+(pageSize-1)) then
for i = intShow*pageSize to lastRecord
response.write " <div class=""inside"">" & vbnewline
response.write " " & vbnewline
response.write " <br>" & vektor(2,i) & vbnewline
response.write " </div>" & vbnewline
intRow = intRow + 1
next
else
for i = intShow*pageSize to ((intShow*pageSize)+(pageSize-1))
response.write " <div class=""inside"">" & vbnewline
response.write "
" & vbnewline
response.write " <br>" & vektor(2,i) & vbnewline
response.write " </div>" & vbnewline
intRow = intRow + 1
next
end if
response.write " </div>" & vbnewline
'Om det är fler poster än det antal poster per sida man valt
if lastRecord > (pageSize-1) then
response.write " <table border=""0"" cellspacing=""0"" cellpadding=""0""> <tr><td>Sida "
for i = 0 to intPage
if (i*pageSize) = (intShow*pageSize) then
response.write "<b>" & i+1 & "</b> "
else
response.write "" & i+1 & " "
end if
next
response.write " </td></tr>" & vbnewline
end if
response.write "</table>" & vbnewline
end if
%>
Det där är en kod som jag använder på en sida, som jag skrev ovan, strippa bort all html om du tycker att den är rörig, sen när allt fungerar, då lägger man på layouten.
//Anna-Karin