webForumDet fria alternativet
Logga in / Bli medlem

10 per sida

5 svar · 174 visningar · startad av jboy_87

jboy_87Medlem sedan aug. 20011 099 inlägg
#1

Hur får jag det här och delas till 10 användare per sida???
asså << 1 2 3 4 >> osv....


<!-- #include file="adovbs.inc" -->
<!-- #include file="style.css" -->
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members ORDER BY datum"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RS = Server.CreateObject("ADODB.Recordset")
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000" background="start(1)-filer/contentbck.gif">
<table width="442" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF" style="border: 1 solid #000000">
  <tr> 
    <td bgcolor="#999999" width="500"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">S&ouml;k 
      bland medlemmarna</font></b></td>
  </tr>
  <tr> 
    <td bgcolor="#CCCCCC" width="500"> 
      <table width="468" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
        <tr> 
          <td><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Lägg
            till</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">?</font></b></font></td>
          <td bgcolor="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">Användarnamn:</font></b></font></td>
          <td><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Kön:</b></font></td>
          <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Status:</b></font></td>
          <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Senast
            inloggad:</b></font></td>
        </tr>
<%
X = 0
DO Until RecSet.EOF OR X = 50
X=X+1
%>
        <tr> 
          <td><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="add_friend.asp?id2=<%=RecSet("id")%>" target="main1">Bli
            kompis</a></font></td>
          <td><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="whois.asp?checkid=<%=RecSet("id")%>"><%=RecSet("username")%></a></font></td>
          <td><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("kunskap")%></font></td>
          <td><font size="1" <%if recset("status") = "offline" then%> color="#FF0000" <%else%>color="#00CC00" <%end if%>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("status")%></font></td>
          <td><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("datum")%></font></td>
        </tr>

<%
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

      </table>
    </td>
  </tr>
</table>
<br>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a>
&#0124; <a href="admin.asp">Sök efter användare</a></font></p>
</body>
</html>

------------------
ASP är bäst

jboy_87Medlem sedan aug. 20011 099 inlägg
#2

gjorde så här men det funkade inte !!

<%@ LANGUAGE=VBScript%> 
<!-- #include file="adovbs.inc" -->
<!-- #include file="style.css" -->

<% 
' Scriptet är nerladdat från [url="http://www.fatmilk.nu/"]http://www.fatmilk.nu/[/url]  
' Skrivet av Ludvig "geek" Lindblom 
' geek@fatmilk.nu 

Dim Con 
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "DBQ=" & Server.MapPath("database/members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 
%>

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"

Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members ORDER BY datum"
RecSet2.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RS = Server.CreateObject("ADODB.Recordset")
%>

<html> 
<head> 
<title>TITTEL PÅ SIDAN</title> 
</head> 

<body bgcolor="#FFFFFF" text="#000000" background="Bilder/Bakgrund_rutig.gif"> 

<table width="500" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#999999"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">S&ouml;k 
      bland medlemmarna</font></b></td>
  </tr>
  <tr> 
    <td bgcolor="#CCCCCC"> 
      <table width="494" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
        <tr> 
          <td width="74"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Lägg
            till</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">?</font></b></font></td>
          <td width="120" bgcolor="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">Användarnamn:</font></b></font></td>
          <td width="64"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Kön:</b></font></td>
          <td width="57"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Status:</b></font></td>
          <td width="149"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Senast
            inloggad:</b></font></td>
        </tr>
<%
X = 0
DO Until RecSet2.EOF OR X = 50
X=X+1
%>
        <tr> 
          <td width="74"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="add_friend.asp?id2=<%=RecSet2("id")%>" target="rightFrame">Bli
            kompis</a></font></td>
          <td width="120"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="whois.asp?checkid=<%=RecSet2("id")%>"><%=RecSet2("username")%></a></font></td>
          <td width="64"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("kunskap")%></font></td>
          <td width="57"><font size="1" <%if recset2("status") = "offline" then%> color="#FF0000" <%else%>color="#00CC00" <%end if%>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("status")%></font></td>
          <td width="149"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("datum")%></font></td>
        </tr>

<%
RecSet2.MoveNext
Loop

RecSet2.Close
Connect.Close
Set RecSet2 = nothing
Set Connect = nothing
%>

      </table>
    </td>
  </tr>
</table>
<br>

<font face="verdana" size="1"> 

<% 
If TotalPages <> 1 Then
If (Int(onPage)) <> 1 Then
%>
<a href="onPage.asp?onPage=<%=(Int(onPage)-1)%>"><< föregående</a>
<%Else%>
 << föregående
<%End If%>
<%
Dim Pages 
For Pages = 1 To TotalPages 
%> 
<%If (Int(Pages)) = (Int(onPage)) Then%><b><%=Pages%></b> <%Else%><a href="onPage.asp?onPage=<%=Pages%>"><%=Pages%></a> <%End If%><%Next%> 
<%End If%> 

<%
If (Int(onPage)) <> (Int(TotalPages)) Then
%>
<a href="onPage.asp?onPage=<%=(Int(onPage)+1)%>">nästa >></a>
<%Else%>
 nästa >>
<%End If%>

</font>

<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a>
&#0124; <a href="admin.asp">Sök efter användare</a></font></p>

</body> 
</html> 

<% 
Con.Close 
Set Con = Nothing 
%>

------------------
ASP är bäst fuck the rest!!!

voigtann1Medlem sedan juni 20019 519 inlägg
#3

jag kör något i stil med:

<U>Sida:</U><B><% For Upprepa = 1 To Antal Step 10 %>
<a href="guest.asp?sida=<% = (Upprepa+9)/10 %>"><% = (Upprepa+9)/10 %></a><% Next%></span></B><hr>
<%
If Request.QueryString("Sida") <> "" Then
RecSet.Move((Request.QueryString("Sida")-1)*10)
End If

Dim Upprepa

For Upprepa = 1 To 10
If RecSet.EOF Then
Exit For
End If %>

kan ha glömnt något :)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

jboy_87Medlem sedan aug. 20011 099 inlägg
#4

hallå hjälp nån

------------------
ASP är bäst fuck the rest!!!

LarsGMedlem sedan dec. 200012 464 inlägg
#5

Har du tittat på det exempel som finns i FAQ för ASP?
http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging

Som det är nu så visar du alltid de 50 första posterna.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 01 nov 2001]

jboy_87Medlem sedan aug. 20011 099 inlägg
#6

snälla kan ingen skriva in koden färdigt

------------------
ASP är bäst fuck the rest!!!

144 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
140 ms — hämta tråd, inlägg och bilagor (db)