CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jannick281090 Nybegynder

06. juni 2008 - 20:52 Der er 5 kommentarer og
1 løsning

Paging af Gæstebog, kan ikke overskue det selv

Hej allesammen.

Nu har jeg kodet en gæstebog til min hjemmeside men som sædvanligt tænker jeg først på paging til sidst... dum dummere dummest

Så jeg smider 200 point til den der kan skrue et paging system ind i siden.

Her er koden (jeg ved den er lang :D)

Guestbook.asp
#####################################

<%
Call Log
%>
<body>
<%
If Request.Querystring("uid") <> "" Then

Set rsProfile = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM accounts WHERE acct = '" & Request.Querystring("uid") & "'"
rsProfile.Open strSQL, Conn, 1, 3

Set rsProfileInfo = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM accounts_info WHERE acct = '" & Request.Querystring("uid") & "'"
rsProfileInfo.Open strSQL, Conn, 1, 3

Set rsProfileShow = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM accounts_info_show WHERE acct = '" & Request.Querystring("uid") & "'"
rsProfileShow.Open strSQL, Conn, 1, 3

Set rsGB = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM website_guestbooks WHERE acct = '" & Request.Querystring("uid") & "' ORDER BY id DESC"
rsGB.Open strSQL, Conn, 1, 3

If rsProfileInfo("tag") <> "" Then
Tag = " <b>[" & rsProfileInfo("tag") & "]</b>"
Else
Tag = ""
End If

StatusCalc = DateDiff("n", rsProfileInfo("last_activity"), Now())

If rsProfileInfo("status") = "Online" Then
OStatusPic = "<img src='../images/Online.png'>"
Else
OStatusPic = "<img src='../images/Offline.png'>"
End If

If CInt(StatusCalc) >= 10 AND rsProfileInfo("status") = "Online" Then
OStatusPic = "<img src='../images/Offline.png'>"
strSQL = "UPDATE accounts_info SET status = 'Offline' WHERE acct = '" & Request.Querystring("uid") & "'"
Conn.Execute(strSQL)
End If

If Session("Username") <> "" Then
%>
<form method="post" action="PostGuestbook.asp?uid=<%=Request.Querystring("uid")%>">
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td style="border-bottom: thin dashed #000000;" height="20" colspan="2">Guestbook for <%=OStatusPic%><a href="Profile.asp?UID=<%=Request.Querystring("uid")%>"><b><%=rsProfile("login")%></b></a><%=Tag%></td>
</tr>
<tr bgcolor="#474747">
<td style="border-bottom: thin dashed #000000;" colspan="2" align="center"><textarea name="Message" cols="61" rows="6" style="background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;"></textarea></td>
</tr>
<tr bgcolor="#272727">
<td height="20"><input type="submit" value="Send!" style="background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;"> <input type="checkbox" name="PrivMsg"> Private Message</td>
<td align="right">Smileys</td>
</tr>
</table>
</form>
<%
End If

If rsGB.EOF Then
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td>This user doesn't have any guestbook messages.</td>
</tr>
</table>
<%
Else
%>
<form method="post" action="GuestbookAction.asp" name="gbForm" id="gbForm">
<%
If Session("Username") <> "" Then
If CInt(Request.Querystring("uid")) = CInt(Session("uid")) Then
If rsSAP("delete_gb_msg") = 1 Then
Buttons = "<table width='100%' border='0' cellpadding='0' cellspacing='0' align='center'><tr><td><input type='button' value='Mark All' onclick='checkedAll();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Make Private' onclick='ChangeActionMp(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Delete' onclick='ChangeActionDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Complete Deletion' onclick='ChangeActionCDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'></td></tr></table><br>"
Else
Buttons = "<table width='100%' border='0' cellpadding='0' cellspacing='0' align='center'><tr><td><input type='button' value='Mark All' onclick='checkedAll();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Make Private' onclick='ChangeActionMp(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Delete' onclick='ChangeActionDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'></td></tr></table><br>"
End If
ElseIf rsSAP("delete_gb_msg") = 1 AND rsSAP("private_gb_msg") = 1 Then
Buttons = "<table width='100%' border='0' cellpadding='0' cellspacing='0' align='center'><tr><td><input type='button' value='Mark All' onclick='checkedAll();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Make Private' onclick='ChangeActionMp(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Delete' onclick='ChangeActionDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Complete Deletion' onclick='ChangeActionCDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'></td></tr></table><br>"
ElseIf rsSAP("delete_gb_msg") = 1 Then
Buttons = "<table width='100%' border='0' cellpadding='0' cellspacing='0' align='center'><tr><td><input type='button' value='Mark All' onclick='checkedAll();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Delete' onclick='ChangeActionDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Complete Deletion' onclick='ChangeActionCDel(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'></td></tr></table><br>"
ElseIf rsSAP("private_gb_msg") = 1 Then
Buttons = "<table width='100%' border='0' cellpadding='0' cellspacing='0' align='center'><tr><td><input type='button' value='Mark All' onclick='checkedAll();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'> <input type='button' value='Make Private' onclick='ChangeActionMp(); document.gbForm.submit();' style='background-color: transparent; border: thin dashed #FFFFFF; color: #FFFFFF;'></td></tr></table><br>"
Else
Buttons = ""
End If
Else
Buttons = ""
End If

Response.Write Buttons
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<%
Do until rsGB.EOF

Set rsPP = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM accounts WHERE acct = '" & rsGB("p_acct") & "'"
rsPP.Open strSQL, Conn, 1, 3

Set rsPPI = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM accounts_info WHERE acct = '" & rsGB("p_acct") & "'"
rsPPI.Open strSQL, Conn, 1, 3

Set rsSmileys = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM website_smileys ORDER BY id DESC"
rsSmileys.Open strSQL, Conn, 1, 3

If rsPPI("tag") <> "" Then
TagP = " <b>[" & Left(rsPPI("tag"),1) & "]</b>"
Else
TagP = ""
End If

StatusCalcP = DateDiff("n", rsPPI("last_activity"), Now())

If rsPPI("status") = "Online" Then
OStatusPic = "<img src='../images/Online.png'>"
Else
OStatusPic = "<img src='../images/Offline.png'>"
End If

If CInt(StatusCalcP) >= 10 Then
OStatusPic = "<img src='../images/Offline.png'>"
strSQL = "UPDATE accounts_info SET status = 'Offline' WHERE acct = '" & rsGB("p_acct") & "'"
Conn.Execute(strSQL)
End If

If rsGB("private") = 1 Then
Priv = "<b>PRIVATE</b> - "
Else
Priv = ""
End If

If rsGB("deleted") = 1 Then
Del = "<center><b>" & _
"##############################<br>" & _
"## THIS MESSAGE HAS BEEN DELETED ##<br>" & _
"##############################" & _
"</b></center><br>"
Else
Del = ""
End If

If CD(Date(),2) = CD(DatePart("d",rsGB("datetime")) & "-" & DatePart("m",rsGB("datetime"))& "-" & DatePart("yyyy",rsGB("datetime")),2) Then
PostDate = "Today, " & Z(DatePart("h",rsGB("datetime"))) & ":" & Z(DatePart("n",rsGB("datetime"))) & ":" & Z(DatePart("s",rsGB("datetime")))
ElseIf CD(DateAdd("d",-1,Now()),2) = CD(rsGB("datetime"),2) Then
PostDate = "Yesterday, " & Z(DatePart("h",rsGB("datetime"))) & ":" & Z(DatePart("n",rsGB("datetime"))) & ":" & Z(DatePart("s",rsGB("datetime")))
Else
PostDate = ProperDate(rsGB("datetime"),1)
End If

Answer = "<a href='Guestbook.asp?uid=" & rsGB("p_acct") & "'><b>See Guestbook</b></a>"

If rsSmileys.EOF Then
GBMessage = Replace(rsGB("message"),"<","<")
GBMessage = Replace(GBMessage,">",">")
GBMessage = Replace(GBMessage,vbCrLf,"<br>")
Else
GBMessage = Replace(rsGB("message"),"<","<")
GBMessage = Replace(GBMessage,">",">")
GBMessage = Replace(GBMessage,vbCrLf,"<br>")
Do until rsSmileys.EOF
GBMessage = Replace(GBMessage,rsSmileys("smiley"),"<img src='http://flexwow.servegame.com/images/smileys/" & rsSmileys("image") & "' border='0'>")
rsSmileys.MoveNext
Loop
End If

If Session("Username") <> "" Then
If CInt(Request.Querystring("uid")) = CInt(Session("uid")) Then
DelMsg = " <a onclick='check(" & rsGB("id") & ");ChangeActionDel();document.gbForm.submit();'><img src='../images/Delete.png' border='0' height='10' width='10'></a> <input type='checkbox' name='GBMark' id='" & rsGB("id") & "' value='" & rsGB("id") & "'>"
ElseIf rsSAP("delete_gb_msg") = 1 Then
DelMsg = " <a onclick='check(" & rsGB("id") & ");ChangeActionDel();document.gbForm.submit();'><img src='../images/Delete.png' border='0' height='10' width='10'></a> <input type='checkbox' name='GBMark' id='" & rsGB("id") & "' value='" & rsGB("id") & "'>"
Else
DelMsg = ""
End If
If rsGB("deleted") = 0 Then
If rsGB("private") = 0 Then
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td style="border-bottom: thin dashed #000000;"><%=Priv%><%=PostDate%> <%=OStatusPic%><b><a href="Profile.asp?uid=<%=rsPP("acct")%>"><%=rsPP("login")%></a></b><%=TagP%></td>
<td style="border-bottom: thin dashed #000000;" align="right"><%=Answer%><%=DelMsg%></td>
</tr>
<tr bgcolor="#474747">
<td colspan="2"><%=Del%><%=GBMessage%></td>
</tr>
</table>
<br>
<%
Else
If CInt(rsGB("acct")) = CInt(Session("uid")) OR CInt(rsGB("p_acct")) = CInt(Session("uid")) Then
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td style="border-bottom: thin dashed #000000;"><%=Priv%><%=PostDate%> <%=OStatusPic%><b><a href="Profile.asp?uid=<%=rsPP("acct")%>"><%=rsPP("login")%></a></b><%=TagP%></td>
<td style="border-bottom: thin dashed #000000;" align="right"><%=Answer%><%=DelMsg%></td>
</tr>
<tr bgcolor="#474747">
<td colspan="2"><%=Del%><%=GBMessage%></td>
</tr>
</table>
<br>
<%
End If
End If
Else
If Session("uid") = "1" Then
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td style="border-bottom: thin dashed #000000;"><%=Priv%><%=PostDate%> <%=OStatusPic%><b><a href="Profile.asp?uid=<%=rsPP("acct")%>"><%=rsPP("login")%></a></b><%=TagP%></td>
<td style="border-bottom: thin dashed #000000;" align="right"><%=Answer%><%=DelMsg%></td>
</tr>
<tr bgcolor="#474747">
<td colspan="2"><%=Del%><%=GBMessage%></td>
</tr>
</table>
<br>
<%
End If
End If
Else
If rsGB("deleted") = 0 Then
If rsGB("private") = 0 Then
%>
<table width="100%" border="0" style="border: thin dashed #000000;" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#2d3f03">
<td style="border-bottom: thin dashed #000000;"><%=Priv%><%=PostDate%> <%=OStatusPic%><b><a href="Profile.asp?uid=<%=rsPP("acct")%>"><%=rsPP("login")%></a></b><%=TagP%></td>
<td style="border-bottom: thin dashed #000000;" align="right"><%=Answer%></td>
</tr>
<tr bgcolor="#474747">
<td colspan="2"><%=Del%><%=GBMessage%></td>
</tr>
</table>
<br>
<%
End If
End If
End If
rsSmileys.Close
Set rsSmileys = Nothing
rsPP.Close
Set rsPP = Nothing
rsPPI.Close
Set rsPPI = Nothing

rsGB.MoveNext
Loop
%>
</table>
</form>
<%
Response.Write Buttons
End If

rsGB.Close
Set rsGB = Nothing
rsProfileShow.Close
Set rsProfileShow = Nothing
rsProfile.Close
Set rsProfile = Nothing
rsProfileInfo.Close
Set rsProfileInfo = Nothing
Else
Response.Write "The information given was incorrect"
End If
%>

#####################################

Synes godt om

jannick281090 Nybegynder

06. juni 2008 - 20:55 #1

Btw.

#########

<%
Call Log
%>

og


#########

Har ikke så meget med koden at gøre, da Header hovedsagligt indeholder Connection til MySQL Databasen(Conn) og en masse functions til konvertering af strings, date og time og lignende. Og så et par Session Connections til databasen som er inkluderet i alle filer.

Og Bottom.asp afslutter bare (Conn)

Synes godt om

beddet Nybegynder

06. juni 2008 - 21:12 #2

Det du egentligt skal gøre er at have et "id" parameter i din querystring. Som viser hvilken side du er på.

Dernæst skal du i den sql sætning hvor du henter alt ud hente fx. 20 ud.

SELECT TOP 20 * FROM table

Og så skal du på næste side hente de 20 næste.

dim side
if request.querystring("side") = "" then
side = 1
else
side = request.querystring("side")

dim [VAR_side]
[VAR_side] = side*20-20

SELECT TOP 20 * FROM table WHERE postId > [VAR_side] ORDER BY postId DESC

Så når du er på din side "index.asp?side=1" så bliver de 20 første vist her, når du er på "index.asp?side=2" så bliver post nummer 21-41 vist.

Så skal du bare have lavet en liste med links til de næste sider.

Synes godt om

beddet Nybegynder

06. juni 2008 - 21:23 #3

Det er godt nok ikke lige testet, og da jeg ikke er den store asp haj endnu (har arbejdet med php for længe :( )

Men det er ca. sådan du skal gøre det i hvert fald

Synes godt om

jansangill Nybegynder

07. juni 2008 - 21:11 #4

Dette er jo lidt en fusker metode beddet:>

http://activedeveloper.dk/articles/31/ kan du læse lidt om det jannick

Vil ikke sætte det ind i din kode dog, da det er rimelig uigennemskueligt med 500 kald frem og tilbage.

men kan dog give dig en eksremt simpelt eksempel, uden tilhørende bladring frem og tilbage. Den kan du tage fra eksemplet i linket eller du kan sammenstrikke noget der ligner google mere, og er smartere.

SQL = "SELECT * from gastebog"
RS.Open SQL, Conn, 1, 3
if not rs.eof then
rs.PageSize = 10
page_antal = rs.PageCount
page = request.querystring("side")
if page < 1 or page > page_antal then page = 1
page_rakker = rs.PageSize
rs.AbsolutePage = page

Do while not rs.eof and page_rakker > 0
%>INDHOLD<%
page_rakker = page_rakker - 1
rs.movenext
Loop
end if

<p></p>

Synes godt om

beddet Nybegynder

07. juni 2008 - 22:18 #5

Ja ok fair nok...har heller ikke arbejdet med asp så længe endnu. Men det er en ret simpel metode som jeg og mange andre bruger i php verdenen. Så skrev det lige om hvis det kunne bruges til noget.

Synes godt om

jannick281090 Nybegynder

04. marts 2009 - 19:36 #6

Lukket...

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Envafors A/S

Leder af digitalisering og compliance

Politi

Senior udvikler med kompetencer inden for .NET og interesse for AI søges til Rigspolitiet

DEIF A/S

DevOps Engineer

Sydbank

Senior Data Specialist til Data & Business Enablement

Netcompany A/S

IT Consultant

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling