Notifikationer

Markér alle som læst Log ud

ghostweb Nybegynder

04. december 2004 - 23:27 Der er 24 kommentarer og
2 løsninger

Paging i news system..

Hejsa Eksperten.dk

Nogle der kan sætte paging ind i mit script her??
håber at nogen gider er vel ikke så meget mere at skrive om det hvis der er over 10 nyheder på første side skal den lave en side 2 og hvis der er over 20 nyheder skal den lave en side 3 til de sidste 10 nyheder :) håber i forstår ellers kan jeg lige forklare lidt bedere..

default.asp:

<body bgcolor="#787474">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>

<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr><td><a href="java script:history.go(-1)"></td></tr>
<%
else

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)

%>

<%
i=0
Do While not rs.eof
%>
<table border="0" width="100%">
<tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
%>
</tr>

</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
%>
<%
rs.Movenext
loop
end if
%>

Synes godt om

tjaz Nybegynder

04. december 2004 - 23:50 #1

Hej, prøv det her ... (DET ER IKKE TESTET PÅ MIN EGEN SERVER SÅ VIL IKKE LOVE AT DET VIRKER SÅ LAV DEN I EN ANDEN FIL END DEN DU HAR I FORVEJEN BARE FOR AT TESTE!)... fik jeg det sagt tydeligt nok :D

---- here we go -----

<body bgcolor="#787474">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>
<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr><td><a href="java script:history.go(-1)"></td></tr>
<%
else

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
i=0
Do While not rs.eof
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
<tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
%>
</tr>

</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
%>
<%
intRecCount = intRecCount - 1
rs.Movenext
loop
end if

rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If

%>

Synes godt om

kalp Novice

04. december 2004 - 23:57 #2

eller prøv

<body bgcolor="#787474">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Page " & intPage & " of " & intPageCount & "</b></p>"
%>

<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr><td><a href="java script:history.go(-1)"></td></tr>
<%
else

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)

%>

<%
i=0
Do While not rs.eof And intRecCount > 0
%>
<table border="0" width="100%">
<tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
%>
</tr>

</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">

<%

intRecCount = intRecCount - 1
rs.Movenext
loop
end if
%>

Response.Write "<p>Go to page "
alfa = request.querystring("alfa")
For intNum = 1 To intPageCount
Response.Write "<a href=default.asp?page=" & intNum & "&alfa=" & alfa & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=default.asp?page=" & intPage - 1 & "&alfa=" & alfa & ">" & "<<" & "</a> "
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & "&alfa=" & alfa & ">" & ">>" & "</a> "
Else
Response.Write ">>"
End If
%>

Synes godt om

kalp Novice

04. december 2004 - 23:59 #3

<%
End If
rs.Close
Set rs = Nothing

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=downloads.asp?page=" & intPage - 1 & "&alfa=" & alfa & ">" & "<<" & "</a> "
Else

Response.Write "<p>Go to page "
alfa = request.querystring("alfa")
For intNum = 1 To intPageCount
Response.Write "<a href=default.asp?page=" & intNum & "&alfa=" & alfa & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=default.asp?page=" & intPage - 1 & "&alfa=" & alfa & ">" & "<<" & "</a> "
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & "&alfa=" & alfa & ">" & ">>" & "</a> "
Else
Response.Write ">>"
End If
%>

manglede lige det i den sidste del
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=downloads.asp?page=" & intPage + 1 & "&alfa=" & alfa & ">" & ">>" & "</a> "
Else
Response.Write ">>"
End If
%>

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:02 #4

kalp ... jeg går ikke ud fra at han skal have lavet paging på siden hvor man læser hele nyheden ... men der hvor man ser hvor mange nyheder der er i alt :D!

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:29 #5

Microsoft VBScript compilation error '800a0400'

Expected statement

/ghostweb/hotnews/News/index2.asp, line 64

end if
^

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:32 #6

den var til tjaz :)

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:33 #7

kan du ikke sende din fil index2.asp til mig ?? ...

tjaz [a] tjaz . dk

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:40 #8

Gerne sammen med din database

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:42 #9

okay :) prøver lige fra en anden email det der b-one lort stinker :)

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:45 #10

tror faktisk jeg har løsningen her (men send lige alligevel):

<body bgcolor="#787474">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>
<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr><td><a href="java script:history.go(-1)">Tilbage</a></td></tr>
<%
else
strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
i=0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
<tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
%>
</tr>
</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
intRecCount = intRecCount - 1
rs.Movenext
loop
end if

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:45 #11

Hvis det altså ikke virker :D

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:48 #12

http://frip.dk/ghostweb/hotnews/News/index2.asp

min søster downloader et eller andet lorte program så mit net er lidt fucked langsomt lige nu..

tjae får en mærkelig fejl jeg aldig har set før :S

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:50 #13

hmm ... intet :(

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:52 #14

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/ghostweb/hotnews/News/index2.asp, line 34

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:53 #15

så har jeg sendt filerne til din mail..

Synes godt om

tjaz Nybegynder

05. december 2004 - 00:54 #16

prøver igen

<body bgcolor="#787474">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>
<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr><td><a href="java script:history.go(-1)">Tilbage</a></td></tr>
<%
else
strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
i=0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
<tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
%>
</tr>
</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
intRecCount = intRecCount - 1
rs.Movenext
loop
end if
End If

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

Synes godt om

ghostweb Nybegynder

05. december 2004 - 00:58 #17

samme fejl :S ??

kan det ikke have noget at gøre med jeg ikke har paging.asp :) ??

Synes godt om

tjaz Nybegynder

05. december 2004 - 01:01 #18

er den database du har sendt mig tom ?

Synes godt om

ghostweb Nybegynder

05. december 2004 - 01:02 #19

hmm tror jeg :S har ik Ms Access.. ?

Synes godt om

tjaz Nybegynder

05. december 2004 - 01:06 #20

Nej det har jeg ikke, men:

Test af db indhold:
http://www.vinspecialisten-nyborg.dk/test/index.asp
og scriptet som jeg har rettet til:
http://www.vinspecialisten-nyborg.dk/test/index2.asp

Har du ikke en database med indhold ? :D

Synes godt om

ghostweb Nybegynder

05. december 2004 - 01:09 #21

sender dig en database med indhold..

Synes godt om

ghostweb Nybegynder

05. december 2004 - 01:25 #22

filer er sendt..

Synes godt om

tjaz Nybegynder

05. december 2004 - 01:54 #23

så ledes
http://www.vinspecialisten-nyborg.dk/test/index2.asp

Der er bare et par ting du skal rette til med dine tables, som du lige skal rette til igen men det går jo nemt ... sender det lige til dig det jeg har lavet og så vil jeg ellers smutte i seng.

Synes godt om

tjaz Nybegynder

05. december 2004 - 15:16 #24

<html><head>
<title>Din side</title>
</head><body>

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")

if request.querystring("id") <> "" then
strSQL = "SELECT * FROM news where ID = " & CInt(request.querystring("id"))
rs.Open strSQL, strDSN, 1
%>

<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
<tr>
<td><a href="java script:history.go(-1)">Tilbage</a></td>
</tr>
</table>
<%
else

strSQL = "SELECT * FROM news"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Response.Write("<table>")
i=0
Do While Not rs.EOF And intRecCount > 0
Response.Write("<tr>")
str1 = "<td><a href=""?id="& rs("id") &""">" & rs("overskrift") & "</a></td>"
str2 = "<td>" & rs("billede") & "</td>"
i=i+1
if i mod 2 = 0 then
Response.Write str1 & str2
else
Response.Write str2 & str1
end if
Response.Write("</tr>")
intRecCount = intRecCount - 1
rs.MoveNext
Loop
%>
</table>
<%
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If

End If
%>

</body></html>

Synes godt om

tjaz Nybegynder

10. december 2004 - 02:57 #25

hva ... var det noget der kunne bruges ?

Synes godt om

kalp Novice

03. januar 2005 - 23:23 #26

Husk at lukke spørgsmålet

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS