5 svar · 193 visningar · startad av johang
Hur gör jag så att jag kan få bara visar 20 inlägg per sida i mitt forum koden ser ut så här vilka ändringar behövs göras?
Jag menar så att det också kommer länkar där nere ungefär som här på Webforum??
Tacksam för svar!
Om du tar en titt i den eminenta faq som finns för asp/vbscript så finns en ganska bra förklaring om paging.
Artikeln här
och sen har vi PatrikBs inlägg om ämnet här
Oh just det. Välkommen hit ;)
------------------
When people have problems using a design, it's not because they are stupid. It's because the design is too difficult. (Jakob Nielsen)
den som söker finner:
http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging http://cgi.webforum.nu/wf/Forum11/HTML/003221.html http://cgi.webforum.nu/wf/Forum11/HTML/003237.html
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
respect my authoritaah!</A>
Skulle någon kunna vara snäll och fixa till den här koden så att det funkar??
<!--#include file="adovbs.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>GamersVision Forum</title>
</head>
<!--Copyright 2001 Johan Gustafsson-->
<!--Skriptet är fritt att använda om dessa rader finns kvar.-->
<%
If Session("Username")="" THEN
%>
<%
'***** Skapar Connection-objektet *****'
Set Databas = Server.CreateObject("ADODB.Connection")
'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("forum.mdb")
'***** öppnar databasen *****'
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>
<% Set rs=Databas.Execute("Select * From Meddelanden Order by Datum DESC")
%>
<body text="#FFFFFF" bgcolor="#1056BE" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan -->
<p align="center"><font color="#000000">[<a href="../default.asp">INDEX</a>] [<a href="../artiklar.asp">ARTIKLAR</a>]
[<a href="forum.asp">FORUM]</a> [<a href="http://redaktionen.asp">REDAKTIONEN</a>]</font></p>
<!--webbot bot="Include" endspan i-checksum="47740" -->
<div align="center">
<center>
<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"><font color="#000000"><img border="0" src="../images/gv_logo_def.jpg" align="left"></font>
<form method="POST" action="login.asp">
<p><input type="text" name="Username" size="13" value="ANVÄNDARNAMN"><font color="#000000"><input type="password" name="Password" size="13" value="LÖSENORD"></font><br>
<input type="submit" value="Logga in" name="Login"></p>
</form>
</td>
</tr>
<tr>
<td width="901" height="19" colspan="5" bgcolor="#1056BE"><font size="2"> <a href="create.asp">BLI
MEDLEM</a></font></td>
</tr>
<tr>
<td width="20" height="18" bgcolor="#003366"> </td>
<td width="172" height="18" bgcolor="#003366"><font color="#FFFFFF">Rubrik:</font></td>
<td width="271" height="18" bgcolor="#003366"><font color="#FFFFFF">Postat av:</font></td>
<td width="114" height="18" bgcolor="#003366"><font color="#FFFFFF">Antal svar:</font></td>
<td width="258" height="18" bgcolor="#003366"><font color="#FFFFFF">Senaste
svar:</font></td>
</tr>
<% Do Until rs.eof %>
<tr>
<td width="20" height="12" bgcolor="#006699"><img border="0" src="<%=rs("Ikon")%>.gif"></td>
<td width="172" height="12" bgcolor="#006699"><a href="vforum.asp?id=<%=rs("ID")%>"><%=rs("Rubrik")%></td>
<td width="271" height="12" bgcolor="#006699"><%=rs("Namn")%></td>
<td width="114" height="12" bgcolor="#006699"><%=rs("Antalsvar")%></td>
<td width="258" height="12" bgcolor="#006699"><%=rs("Datum")%></td>
</tr>
<% rs.movenext
Loop
RS.Close
%>
<tr>
<td width="865" height="26" colspan="5" bgcolor="#336699"><font color="#000000">Copyright
© 2001-2002 GamersVision</font></td>
</tr>
</table>
</center>
</div>
<% Elseif Session("Username")>"" THEN %>
<%
'***** Skapar Connection-objektet *****'
Set Databas = Server.CreateObject("ADODB.Connection")
'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("forum.mdb")
'***** öppnar databasen *****'
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>
<% Set rs=Databas.Execute("Select * From Meddelanden Order by Datum DESC")
%>
<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan -->
<p align="center"><font color="#000000">[<a href="../default.asp">INDEX</a>] [<a href="../artiklar.asp">ARTIKLAR</a>]
[<a href="forum.asp">FORUM]</a> [<a href="http://redaktionen.asp">REDAKTIONEN</a>]</font></p>
<!--webbot bot="Include" endspan i-checksum="47740" -->
<div align="center">
<center>
<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"><font color="#000000"><img border="0" src="../images/gv_logo_def.jpg" align="left"></font>
</td>
</tr>
<tr>
<td width="901" height="19" colspan="5" bgcolor="#1056BE"><img border="0" src="post.gif"><font size="2"><a href="post.asp">POSTA
INLÄGG</a> <a href="loggout.asp">LOGGA
UT</a></font></td>
</tr>
<tr>
<td width="20" height="18" bgcolor="#003366"> </td>
<td width="172" height="18" bgcolor="#003366"><font color="#FFFFFF">Rubrik:</font></td>
<td width="271" height="18" bgcolor="#003366"><font color="#FFFFFF">Postat av:</font></td>
<td width="114" height="18" bgcolor="#003366"><font color="#FFFFFF">Antal svar:</font></td>
<td width="258" height="18" bgcolor="#003366"><font color="#FFFFFF">Senaste
svar:</font></td>
</tr>
<% Do Until rs.eof %>
<tr>
<td width="20" height="12" bgcolor="#006699"><img border="0" src="<%=rs("Ikon")%>.gif"></td>
<td width="172" height="12" bgcolor="#006699"><a href="vforum.asp?id=<%=rs("ID")%>"><%=rs("Rubrik")%></td>
<td width="271" height="12" bgcolor="#006699"><%=rs("Namn")%></td>
<td width="114" height="12" bgcolor="#006699"><%=rs("Antalsvar")%></td>
<td width="258" height="12" bgcolor="#006699"><%=rs("Datum")%></td>
</tr>
<% rs.movenext
Loop
RS.Close
%>
<tr>
<td width="865" height="26" colspan="5" bgcolor="#336699"><font color="#000000">Copyright
© 2001-2002 GamersVision</font></td>
</tr>
</table>
</center>
</div>
<% End If %>
</body>
</html>
<% Databas.close%>
om du läser ovan länkar klarar du av det själv.
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
respect my authoritaah!</A>
Om man inte gör det själv så lär man sig ju inte.
------------------
"Brott kanske inte lönar sig, men det är kul"
