Paging

3 svar · 173 visningar · startad av Biasse 3 nov. 2003

BiasseMedlem sedan aug. 2003480 inlägg

Trådstart3 nov. 2003 10:33#1

Jag har en sida som visar 40 sista inloggade men skulle vilja ha bläddring (paging) så jag kan se på alla inloggade. typ..

1 2 3 [4] 5 under de första 40 visade. Har naturligtvis provat men klarar det inte själv har jag förstått. Hoppas nån av er kan ge mig ett handtag.

mvh Biasse.. Scriptet ser ut så här idag:
_________________________________________________
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title>GB</title>

</head>

<body bgcolor="#55BEFD" style="border: 1 solid #000000">
 
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("look.mdb")&";pwd=missplace"

IF Request.Querystring("action") = "delete" Then
SQL = "DELETE * FROM iplogg WHERE ID=" & Request.Querystring("id")
Connect.Execute(SQL)
Response.Redirect "iplogg.asp"
ELSE

SQL = "SELECT * From iplogg ORDER BY tid DESC"
Set RecSet = Connect.Execute(SQL)
%>check:

<div align="center">
<table width="400" border="0" style="border: 1px solid #000000">
<tr>
<td width="75">Name:</td>
<td width="149">Ip:</td>
<td width="94">Status:</td>
<td width="316">Tid:</td>

</tr>

<%
X=0
DO UNTIL RecSet.EOF OR X=30
%>
<tr>
<td width="74"> <%=RecSet("username")%></td>
<td width="149"><%=RecSet("ip")%> </td>
<td width="94"><%=RecSet("loginstatus")%> </td>
<td width="316"><%=RecSet("tid")%> </td>
</tr>
<%
X=X+1
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>

</table>
</div>
<% END IF %>
_________________________________________________

BiasseMedlem sedan aug. 2003480 inlägg

3 nov. 2003 12:58#2

Måste väl vara knäpp???

Har gått igenom denna topic men kommer inte rätt: http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=13551&highlight=paging

SebbeMedlem sedan jan. 20032 285 inlägg

3 nov. 2003 13:17#3

<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title>GB</title>

</head>

<body bgcolor="#55BEFD" style="border: 1 solid #000000">
<p align="center"> </p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF"><%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("look.mdb")&";pwd=missplace"

IF Request.Querystring("action") = "delete" Then 
  SQL = "DELETE * FROM iplogg WHERE ID=" & Request.Querystring("id")
  Connect.Execute(SQL)
  Response.Redirect "iplogg.asp"
ELSE
  SQL = "SELECT * From iplogg ORDER BY tid DESC"
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  RecSet.Open SQL, Connect, 1, 3
  RecSet.PageSize = 40
%></font><font face="Times New Roman" color="#FF0000" size="4">check:</font>
</p>
<div align="center">
<table width="400" border="0" style="border: 1px solid #000000">
<tr> 
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Ip:</font></u></b></td>
<td width="94"><b><u><font face="Verdana" size="1" color="#FF0000">Status:</font></u></b></td>
<td width="316"><b><u><font face="Verdana" size="1" color="#FF0000">Tid:</font></u></b></td>

</tr>

<%
  X=0

  If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
    intPage = 1
  Else
    intPage = CInt(Request.QueryString("page"))
  End If

  RecSet.AbsolutePage = intPage

  DO UNTIL RecSet.EOF OR X = RecSet.PageSize
%>
<tr> 
<td width="74"><font face="Verdana" color="#000000" size="1"> <%=RecSet("username")%></font></td>
<td width="149"><font face="Verdana" color="#000000" size="1"><%=RecSet("ip")%> </font></td>
<td width="94"><font face="Verdana" color="#000000" size="1"><%=RecSet("loginstatus")%> </font></td>
<td width="316"><font face="Verdana" color="#000000" size="1"><%=RecSet("tid")%> </font></td>
</tr>
<%
    X=X+1
    RecSet.MOVENEXT
  LOOP

  If RecSet.PageCount > 1 Then
    For i = 1 To RecSet.PageCount
      If i <> intPage Then
        Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
      Else
        Response.Write("[" & i & "] ")
      End If
    Next
  End If

  RecSet.CLOSE
  Connect.CLOSE
  Set RecSet = nothing
  Set Connect = nothing
%>
</table>
</div>
<%
END IF
%>

BiasseMedlem sedan aug. 2003480 inlägg

3 nov. 2003 13:38#4

Den är helt klockren :-) Tackar, Tackar

mvh Biasse