Paging

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

BiasseMedlem sedan aug. 2003480 inlägg

3 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.. :q 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