Paging.

4 svar · 207 visningar · startad av sudden 12 nov. 2004

suddenMedlem sedan okt. 2002341 inlägg

12 nov. 2004 22:23#1

Kan någon vänlig själ kompletera denna kod så att jag får sidvisningar...dvs antal sidor, framåt, bakåt och så :)

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css">
<title>Boklager</title>
<script language="javascript">
function launchpopup()
{
window.open ("addnew.asp", "test", "width=500, height=200, location=0, menubar=0, resizable=0, scrollbars=yes, status=1, titlebar=1, toolbar=0");
}
</script>
</head>
<body leftmargin="20">
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=boklager;USER=root;PASSWORD=;OPTION=3;"
SQL = "SELECT * FROM bestallningar ORDER BY efternamn ASC"
Set rs = conn.execute(SQL)%>
<table width="100%" height="100%" border="0">
  <tr>
    <td width="13%" align="left" valign="top">
	<table width="94" border="0">
  <tr>
    <td width="88" height="70">
	  <a href="#">Start</a><br>
	  <a href="#">Beställningar</a><br>
	  <a href="#">Leveranser</a>
    </td>
  </tr>
</table>
   </td>
   <td width="87%" valign="top">
    <table width="670" border="0" cellspacing="2" cellpadding="0">
  <tr>
    <td width="109" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Datum</b></font></td>
    <td width="110" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Beställt åt</b></font></td>
    <td width="235" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Artikel</b></font></td>
    <td width="70" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Antal</b></font></td>
    <td width="77" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Språk</b></font></td>
	<td width="55" bgcoolor="#ffffff" align="center"><a href="javascript:launchpopup();"><img src="new.gif" border="0"></a></td><td><a href="delete.asp?do=all"><img src="deleteall.gif" border="0"></a></td>
	<td></td>
  </tr>
  <tr>
<%Do while not rs.eof%>
  <tr>
    <td align="center" bgcolor="#999999"><%=rs("datum")%></td>
    <td align="center" bgcolor="#999999"><%=rs("fornamn") & "&nbsp;" & rs("efternamn")%></td>
    <td align="center" bgcolor="#999999"><%=rs("artikel")%></td>
    <td align="center" bgcolor="#999999"><%If rs("antal") > 10 then%><font color=red><%=rs("antal")%></font><%else%><%=rs("antal")%><%end if%></td>
    <td align="center"bgcolor="#999999"><%if not rs("sprak") = "Svenska(z)" then%>
	<font color="blue"><%=rs("sprak")%></font>
	<%else%>
	<%=rs("sprak")%>
	<%end if%></td>
	<td align="center"><a href="delete.asp?id=<%=rs("id")%>"><img src="trash.gif" border="0"></a></td>
</tr>
<%rs.MoveNext
Loop
set conn = nothing
set rs = nothing
%>
</table>
   </td>
  </tr>
</table>
</body>
</html>

joel_joel88Medlem sedan nov. 20021 222 inlägg

12 nov. 2004 22:56#2

Det här använder jag mig av när jag gör paging..

<%
sida = Trim(Request.QueryString("page"))
If sida = "" Then
sida = 1
End If

rs.PageSize = 10
rs.AbsolutePage = sida

rad = 0
While Not RecSet.rs and rad < rsPageSize
rad = rad + 1
%>
Det du ska loopa ut
<%
rs.Movenext
wend

Response.write "<font style='font-family:tahoma;font-size:11px;color:#000000'>"
Response.write "Totalt"
Response.write "&nbsp;"
Response.write rs("summa")
Response.write "&nbsp;"
Response.write "inlägg"
Response.write "&nbsp;"
Response.write "/"
Response.write "&nbsp;"
Response.write "Varav"
Response.write "&nbsp;"
Response.write rspagecount
Response.write "&nbsp;"
Response.write "sidor"
Response.write "</font>"
Response.write "<br>"

If rs.PageCount > 1 Then
For i = 1 to rs.PageCount
If i = CLng(sida) Then
Response.write "<font style='font-family:tahoma;font-size:13px;color:#000000'>"
Response.write "<b>"
Response.Write "[" & i & "]&nbsp;"
Response.write "</b>"
Response.write "</font>"
Else
Response.write "<b>"
Response.Write "<a href=""sidan.asp?page=" & i & " "">" & i & " </a>&nbsp;"
Response.write "</b>"
End If
Next
End If
%>

joel_joel88Medlem sedan nov. 20021 222 inlägg

12 nov. 2004 22:59#3

Nu är det ju inte så att du kan bläddra bakåt och framåt med t.ex en > som i webforum. men det blir siffror som man trycker på så motsvarar sidorna..

suddenMedlem sedan okt. 2002341 inlägg

12 nov. 2004 23:09#4

Har nu koden:

<%Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=boklager;USER=root;PASSWORD=;OPTION=3;"
SQL = "SELECT * FROM bestallningar ORDER BY efternamn ASC"
Set rs = server.CreateObject("adodb.recordset")
rs.cursorlocation = 3
rs.open SQL, conn%>
<table width="100%" height="100%" border="0">
  <tr>
    <td width="13%" align="left" valign="top">
	<table width="94" border="0">
  <tr>
    <td width="88" height="70">
	  <a href="#">Start</a><br>
	  <a href="#">Beställningar</a><br>
	  <a href="#">Leveranser</a>
    </td>
  </tr>
</table>
   </td>
   <td width="87%" valign="top">
    <table width="670" border="0" cellspacing="2" cellpadding="0">
  <tr>
    <td width="109" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Datum</b></font></td>
    <td width="110" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Beställt åt</b></font></td>
    <td width="235" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Artikel</b></font></td>
    <td width="70" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Antal</b></font></td>
    <td width="77" bgcolor="#666666" align="center"><font color="#ffffff" size="1" face="Verdana"><b>Språk</b></font></td>
	<td width="55" bgcoolor="#ffffff" align="center"><a href="javascript:launchpopup();"><img src="new.gif" border="0"></a></td><td><a href="delete.asp?do=all"><img src="deleteall.gif" border="0"></a></td>
	<td></td>
  </tr>
  <tr>
<%
sida = Trim(Request.QueryString("page"))
If sida = "" Then
sida = 1
End If

rs.PageSize = 10
rs.AbsolutePage = sida

rad = 0
do while not rs.eof and rad < rs.PageSize
rad = rad + 1%>
  <tr>
    <td align="center" bgcolor="#999999"><%=rs("datum")%></td>
    <td align="center" bgcolor="#999999"><%=rs("fornamn") & "&nbsp;" & rs("efternamn")%></td>
    <td align="center" bgcolor="#999999"><%=rs("artikel")%></td>
    [B]<td align="center" bgcolor="#999999"><%If rs("antal") > 10 then%><font color=red><%=rs("antal")%></font><%else%><%=rs("antal")%><%end if%></td>[/B]
    <td align="center"bgcolor="#999999"><%if not rs("sprak") = "Svenska(z)" then%>
	<font color="blue"><%=rs("sprak")%></font>
	<%else%>
	<%=rs("sprak")%>
	<%end if%></td>
	<td align="center"><a href="delete.asp?id=<%=rs("id")%>"><img src="trash.gif" border="0"></a></td>
</tr>
<%rs.MoveNext
Loop
set conn = nothing
set rs = nothing
%>
</table>
<table width="200" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
	<%
	If rs.PageCount > 1 Then
For i = 1 to rs.PageCount
If i = CLng(sida) Then
Response.write "<font style='font-family:tahoma;font-size:13px;color:#000000'>"
Response.write "<b>"
Response.Write "[" & i & "] "
Response.write "</b>"
Response.write "</font>"
Else
Response.write "<b>"
Response.Write "<a href=""index.asp?page=" & i & " "">" & i & " </a> "
Response.write "</b>"
End If
Next
End If
%>

Men får felmeddelandet:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer
/boklager/index.asp, line 62

joel_joel88Medlem sedan nov. 20021 222 inlägg

13 nov. 2004 10:47#5

ta bort loop under rs.movenext och sätt dit wend i stället...