CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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
#####################################
<!--#include file="../Header.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"),"<","&lt;")
    GBMessage = Replace(GBMessage,">","&gt;")
    GBMessage = Replace(GBMessage,vbCrLf,"<br>")
    Else
    GBMessage = Replace(rsGB("message"),"<","&lt;")
    GBMessage = Replace(GBMessage,">","&gt;")
    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
%>
<!--#include file="../Bottom.asp"-->
#####################################
Avatar billede jannick281090 Nybegynder
06. juni 2008 - 20:55 #1
Btw.

#########
<!--#include file="../Header.asp"-->
<%
Call Log
%>

og

<!--#include file="../Bottom.asp"-->
#########

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)
Avatar billede 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.
Avatar billede 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
Avatar billede 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><!--#include file="paging.asp" --></p>
Avatar billede 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.
Avatar billede jannick281090 Nybegynder
04. marts 2009 - 19:36 #6
Lukket...
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:53 CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42 Katastrofe med Pc Af LilBe i PC
I går 09:44 Mine emails kan pluselig ikke læses af modtagerne, kun uforståelige tal og bogstaver Af gunnarb i E-mail programmer
24/1216:03 Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
23/1214:43 html <Input.. Danske bogstaver Af pjotre i Andet software
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Læs mere »
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
TV 2 indsætter tidligere specialist i Forsvarets Efterretningstjeneste og hos KMD som ny CISO
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Sikkerhed uden grænser: Cisco Hypershield
Læs mere »
Cyberangreb bliver mere kostbare: Er du forberedt?
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »