Sv:pagin modifiering.

pagin modifiering.

Postades av 2005-04-29 18:45:15 - Kristoffer Ljungqvist, i forum asp - allmänt, Tråden har 10 Kommentarer och lästs av 423 personer

<code>
<%
'Om databasen inte är tom visas resultatet
if not noFindings then
response.write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1"">" & vbnewline
response.write " <tr><td>Länk</td><td>Antal besök</td></tr>" & 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
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(3,i) & "</td>" & vbnewline
response.write " <td>" & vektor(4,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
else
for i = intShow*pageSize to ((intShow*pageSize)+(pageSize-1))
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(1,i) & "</td>" & vbnewline
response.write " <td>" & vektor(2,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
end if
%>
<%
'Om det är fler poster än det antal poster per sida man valt
if lastRecord > (pageSize-1) then
response.write " <tr><td>Sida "
for i = 0 to intPage
if (i*pageSize) = (intShow*pageSize) then
response.write "" & i+1 & "  "
else
response.write "" & i+1 & "  "
end if
next
response.write " </td></tr>" & vbnewline
end if
response.write "</table>" & vbnewline
end if
%>
</code>
Jag undrar om någon är kunnig att ut läsa vad man kan ta bort och inte ta bort.
Jag ska ha pagin koden till en gästboks funktion på sidan.
Där ska vara med.
Datum & tid,användarnamnet med länk till användare och sist men inte minst meddelandet.
Men vet inte hur jag ordna till det med den här koden.
Någon som kan modifiera den eller komma med lösningar om vilket jag kan ta bort.

Svara

Sv: pagin modifiering.

Postades av 2005-04-29 19:11:58 - Göran Andersson

Svårt att säga eftersom du bara visar halva koden.

Måste du utgå ifrån den där koden? Den är inte särskilt logiskt skriven, så den är inte lättläst även om man har hela koden.

Svara

Sv:pagin modifiering.

Postades av 2005-04-29 19:24:44 - Kristoffer Ljungqvist

Koden är hämtad från en artikel här på pellesoft.se

och koden ser ut följande.
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%

set con = server.CreateObject("Adodb.connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/../../../../../db/pluget-nu.mdb") & ";"
set rst = con.execute("select * from UserAcounts where id=" & cLng(request.QueryString("AnvId")))
if not rst.eof then

%>
<title>Välkommen till <%response.write rst("Anv")%>. Gästbok.</title>
<%
else
Response.write "<title>GÄSTBOK</title>"
end if
con.close
set con = Nothing
set rst = Nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim SQL, Conn, RS, noFindings, vektor, lastRecord, pageSize, intPage, intShow, intRow, i

noFindings = "False"

'Antal poster per sida
pageSize = 10

'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")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/../../../../../db/pluget-nu.mdb") & ";"
SQL = "SELECT * FROM Guestbook where Tuser =" & cLng(request.querystring("AnvId")) & " ORDER BY Datum"
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) = URL; vektor(1,i) = description; vektor(2,i) = totalClicks
lastRecord = UBound(vektor,2) 'Sista posten i vektorn
else
noFindings = "True"
if cLng(Session("AnvändarId")) = cLng(request.querystring("AnvId")) then
response.write "<script>"
response.write "alert('Du har visst inte fått något gästboks inlägg än!');"
response.write "</script>"
Meddelande = "Hjärtligt välkommen till communityt. Jag hoppas att communityt kommer att ge många fina och roliga stunder här /MVH Admin."
set rst = conn.execute("Insert Into Guestbook(Fuser,Tuser,messages,datum,tid)values('" & 1 & "','" & cLng(session("AnvändarId")) & "','" & Meddelande & "','" & #2005-04-24# & "','" & #23:55:00# & "')")
response.write "Du har visst inte fått några gästboks inlägg än!"
%>
<script language="javascript">
parent.self.location.href='guestbok.asp?AnvId=<%=request.querystring("AnvId")%>'
</script>
<%
set rst = Nothing
else
response.write "Den här användareen har inte fått något gästboks inlägg än visst :-) skriv 1 eller 2 rader så blir användaren glad!"
end if
end if

Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<%
'Om databasen inte är tom visas resultatet
if not noFindings then
response.write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1"">" & vbnewline
response.write " <tr><td>Länk</td><td>Antal besök</td></tr>" & 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
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(3,i) & "</td>" & vbnewline
response.write " <td>" & vektor(4,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
else
for i = intShow*pageSize to ((intShow*pageSize)+(pageSize-1))
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(1,i) & "</td>" & vbnewline
response.write " <td>" & vektor(2,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
end if
%>
<%
'Om det är fler poster än det antal poster per sida man valt
if lastRecord > (pageSize-1) then
response.write " <tr><td>Sida "
for i = 0 to intPage
if (i*pageSize) = (intShow*pageSize) then
response.write "" & i+1 & "  "
else
response.write "" & i+1 & "  "
end if
next
response.write " </td></tr>" & vbnewline
end if
response.write "</table>" & vbnewline
end if
%>

<%
response.end
'set con = server.CreateObject("adodb.connection")
'con.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/../../../../../db/pluget-nu.mdb") & ";"
'set rst = con.execute("select * from UserAcounts inner join Guestbook On UserAcounts.id = Guestbook.Tuser where id=" & cLng(request.QueryString("AnvId")))
'If not rst.eof then
'do until rst.eof
'response.write rst("Datum") & "<br>"
'response.write rst("Messages") & "<br>"
'rst.movenext
'loop
'con.close
'set con = Nothing
'set rst = Nothing
'else
'response.write "Du har visst inte fått något gästboks inlägg än"
'Meddelande = "Hjärtligt välkommen till communityt. Jag hoppas att communityt kommer att ge många fina och roliga stunder här /MVH Admin."
'set con = server.CreateObject("adodb.connection")
'con.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath("databas.mdb") & ";"
'set rst = con.execute("Insert Into Guestbook(Fuser,Tuser,messages,datum,tid)values('" & 1 & "','" & cLng(session("AnvändarId")) & "','" & Meddelande & "','" & #2005-04-24# & "','" & #23:55:00# & "')")
'end if
%>
</body>
</html>
</code>

och koden som jag inte vet hur jag ska modifiera är

<code>
<%
'Om databasen inte är tom visas resultatet
if not noFindings then
response.write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1"">" & vbnewline
response.write " <tr><td>Länk</td><td>Antal besök</td></tr>" & 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
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(3,i) & "</td>" & vbnewline
response.write " <td>" & vektor(4,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
else
for i = intShow*pageSize to ((intShow*pageSize)+(pageSize-1))
if (intRow Mod 2) then
response.write " <tr bgcolor='#cccccc'>" & vbnewline
else
response.write " <tr bgcolor='#ffffff'>" & vbnewline
end if
response.write " <td>" & vektor(1,i) & "</td>" & vbnewline
response.write " <td>" & vektor(2,i) & "</td>" & vbnewline
response.write " </tr>" & vbnewline
intRow = intRow + 1
next
end if
%>
<%
'Om det är fler poster än det antal poster per sida man valt
if lastRecord > (pageSize-1) then
response.write " <tr><td>Sida "
for i = 0 to intPage
if (i*pageSize) = (intShow*pageSize) then
response.write "" & i+1 & "  "
else
response.write "" & i+1 & "  "
end if
next
response.write " </td></tr>" & vbnewline
end if
response.write "</table>" & vbnewline
end if
%>
</code>

Svara

Sv: pagin modifiering.

Postades av 2005-04-29 19:45:12 - Göran Andersson

Måste du utgå ifrån den där koden?

Svara

Sv:pagin modifiering.

Postades av 2005-04-29 19:51:59 - Kristoffer Ljungqvist

Nä men jag kan inget om paging så prova den här, det är också en orsak att jag vänder mig till er. Efter som jag inte kan något om pagin. Därför vet jag inte var man ska ändra osv.

Svara

Sv: pagin modifiering.

Postades av 2005-04-29 21:30:06 - Göran Andersson

Utgå ifrån något mycket enklare script, då. Till exempel:
http://www.aspsidan.se/default.asp?page=readArticle&menu=2&aId=310

Där har du också en förklaring på vad allting är.

Svara

Sv:pagin modifiering.

Postades av 2005-04-29 21:36:33 - Kristoffer Ljungqvist

Tackar ;) Ska prova att ändra lite.
Men då kommer en fråga.
Hur gör jag för att ändra så det bara vissa nästa sida och inte sida 3,sida 4 osv.
Utan bara nästa sida och om så behövs även föregående sida.

Svara

Sv: pagin modifiering.

Postades av 2005-04-29 21:47:18 - Göran Andersson

Ta bort loopen som visar sidnumren. Istället gör du två if-satser, en som kollar ifall du är på första sidan eller inte, och en som kollar om du är på sista sidan eller inte. I if-satserna gör du länkar till sidan innan och sidan efter.

Svara

Sv:pagin modifiering.

Postades av 2005-04-30 23:01:06 - Kristoffer Ljungqvist

Det är lättare sakt än gjort, sen så hittar jag inte hur jag ska ändra för att veta vad jag ska skriva
den text som ska synas. Om en användare inte har någon gästboks inlägg, var den koden kommer hittar jag inte.

Svara

Sv: pagin modifiering.

Postades av 2005-05-01 20:58:21 - Göran Andersson

> Det är lättare sakt än gjort,

Knappt...

> sen så hittar jag inte hur jag ska ändra för att veta vad jag ska skriva
> den text som ska synas.

Det du vill skriva ut skriver du ut där det står "Här skrivs allting ur databasen ut."

> Om en användare inte har någon gästboks inlägg, var den koden kommer hittar jag inte.

Det finns inte med i exemplet. Exemplet tar enbart upp sidbläddringen. Den kontrollen får du lägga till.

Svara

Sv:pagin modifiering.

Postades av 2005-05-03 10:37:11 - Kristoffer Ljungqvist

Det känns bara som den pagin är att slänga, fungerar inte.
jag ladda upp en databas (uppdatering)
Uppdateringen bestod av
radera_guestbool
det var det ända uppdateringen. Men nu funkar inte pagin koden.
Och tabellen som pagin kör med har inte ändrats eller uppdaterats ändå får jag felmedelande på felmedelande på samma kod.
koden är.
<code>
RecSet.AbsolutePage = sida
</code (rad 62) får då felmedelandet:

<code>
ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/dreamweaver/1024-768/user/guestbok/guestbok.asp, line 62
</code>
Och på rad 62 är det
koden.
<code>
RecSet.AbsolutePage = sida
</code>
Någon som kan säga vad som hänt?
Varför har det funkat och nu fungera det inte alls någon?

Svara

pagin modifiering.

Sv: pagin modifiering.

Sv:pagin modifiering.

Sv: pagin modifiering.

Sv:pagin modifiering.

Sv: pagin modifiering.

Sv:pagin modifiering.

Sv: pagin modifiering.

Sv:pagin modifiering.

Sv: pagin modifiering.

Sv:pagin modifiering.

Nyligen

Sidor

Statistik

Kontakta oss