لطفا كمك كنيد در مورد مشكل قبلي « تغيير صفحه اي كه از ديتابيس مي خواند »

hamidghasemi · Oct 25, 2004

با سلام و عرض ارادت خالصانه
اگر خاطر مبارك شما باشد من هفته گذشته در مورد مشكل رفتن به صفحه به در هنگتامي كه از ديتابيس ركوردهاي زيادي را مي خوانيم از شما سوال كردم
كه چطور مي شود كه مثلا هر 20 ركورد در يك صفحه بيايد و شما اين صفحه را معرفي كرديد.
<%Dim intCurrPage, intTotalPages
Const intRecPerPage = 20

If Request.QueryString("CurrPage") = "" then
intCurrPage = 1
Else
intCurrPage = CInt(Request.QueryString("CurrPage"))
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;" & _
"Data Source = E:\test.mdb"
objConn.Open

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

RecSet.CursorLocation = adUseClient
RecSet.CursorType = adOpenStatic

RecSet.CacheSize = intRecPerPage
RecSet.Open "Select * From myTable"

If Not RecSet.Eof Then
RecSet.MoveFirst
RecSet.PageSize = intRecPerPage

intTotalPages = CInt(RecSet.PageCount)
If intCurrPage >= intTotalPages Then intCurrPage = intTotalPages
If intCurrPage <= 0 Then intCurrPage = 1

RecSet.AbsolutePage = intCurrPage
Else
intCurrPage = 0
End If
%>

<%If CInt(intCurrPage) > 1 Then%>
<a Name="FirstPageButton" href="default.asp?CurrPage=<%=CStr(1)%>">First Page</a>
<a Name="PrevPageButton" href="default.asp?CurrPage=<%=CStr(intCurrPage - 1)%>">Previouse Page</a>
<%End If%>

Page <%=CStr(intCurrPage)%> Of <%=CStr(intTotalPages)%>

<%If CInt(intCurrPage) <> CInt(intTotalPages) Then%>
<a Name="NextPageButton" href="default.asp?CurrPage=<%=CStr(intCurrPage + 1)%>">Next Page</a>
<a Name="LastPageButton" href="default.asp?CurrPage=<%=CStr(intTotalPages)%>">Last Page</a>
<%End If%>

<%If CInt(intCurrPage) > 1 Then%>
<a Name="FirstPageButton" href="default.asp?CurrPage=<%=CStr(1)%>">First Page</a>
<a Name="PrevPageButton" href="default.asp?CurrPage=<%=CStr(intCurrPage - 1)%>">Previouse Page</a>
<%End If%>

Page <%=CStr(intCurrPage)%> Of <%=CStr(intTotalPages)%>

<%If CInt(intCurrPage) <> CInt(intTotalPages) Then%>
<a Name="NextPageButton" href="default.asp?CurrPage=<%=CStr(intCurrPage + 1)%>">Next Page</a>
<a Name="LastPageButton" href="default.asp?CurrPage=<%=CStr(intTotalPages)%>">Last Page</a>
<%End If%>

<%For I = 1 To CInt(intTotalPages)%>
<a Name="PageButton<%=CStr(I)%>" href="default.asp?CurrPage=<%=CStr(I)%>"><%=CStr(I)%></a>
<%Next%>

اما من نتوانستم اين صفحه را با صفحه خودم هماهنگ كنم لطفا اگر ممكن است اين صفحه را برايم درست كنيد .
صفحه من اين است كه 3 فيلد را از هر ركورد مي خواند كه 2 تاي آنها نام عكس مي باشند:

<%
cs="Provider=Microsoft.Jet.OLEDB.4.0;"
cs=cs+"Data Source="+server.MapPath("db\database.mdb")+";"
cs=cs+"Mode=ReadWrite;Persist Security Info=False"
set adodc=server.CreateObject("adodb.connection")
adodc.Open cs%>
<table border=1 cellspacing=0 width="100%" borderColor=peachpuff cellpadding="0" style="border-collapse: collapse">

<%sql1="select * from list "
set rs=adodc.Execute(sql1)%>
<%b=0%>

<tr>
<%do while not rs.eof%>
<%b=b+1%>
<td align=center> <table width="75" border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center"><a target="_blank" href="images/<%=rs.fields("namepic2")%>.jpg">
<img border="0" src="images/<%=rs.fields("namepic")%>.jpg" width="75" height="43"></a></td>
</tr>
<tr>
<td align="center" bgcolor="#A70A25"><a href="a" class="nametmp">
<%=rs.fields("size")%></a></td>
</tr>
</table>
<%if b=3 then%>
<% b=0%>
<tr>
<%end if%>

<%rs.movenext
loop%>

</tr>
</td>
من اين كدهاي شما را متوجه نشدم:
RecSet.MoveFirst
RecSet.PageSize

Mikhak · Oct 25, 2004

خداييش خودت فهميدي چي گفتي ؟
يه بار ديگه قشنگ توضيح بده؟
-----------------------
سينا

hamidghasemi · Oct 25, 2004

سينا جان
منظور من اين است كه سبك استفاده من از ديتابيس يك جورايي فرق مي كند و راحتر است
من يك حلقه مي سازم .
من 2 فايل ارسال كردم
اولي براي آقاي اكسيژن بود و بعدي براي من
مشكلم واضح است

hamidghasemi · Oct 25, 2004

آقا اصل سوال من اين است

اصل سوال من اين است كه چه كسي بلد است طوري اين فايل را تغيير دهد كه هر6 ركورد اين فايل در يك صفحه نمايش داده شود
آقا خيلي ساده كردم:
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body>

<p>SourceURL:http://aftab3/mmmmmmm/admin_list.asp
<!doctype HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<script src="http://aftab3/mmmmmmm/Persian.js" type="text/javascript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%@ Language=VBScript %>
<%
cs="Provider=Microsoft.Jet.OLEDB.4.0;"
cs=cs+"Data Source="+server.MapPath("db\database.mdb")+";"
cs=cs+"Mode=ReadWrite;Persist Security Info=False"
set adodc=server.CreateObject("adodb.connection")
adodc.Open cs%>
</p>
<div align="center">
<center>
<table border="1" cellspacing="0" width="100%" height="10%" borderColor="peachpuff" cellpadding="0" style="border-collapse: collapse">
<tr>
<td align="middle" colspan="11"><br>
<br>
<font color="#FFFFFF" face="Arial">ليست كل اعضاء سايت</font><hr color="#FF0000" width="20%">
<p><br>
<br>
&nbsp;</td>
</tr>
<tr>
<td align="middle"><font color="#F7941D" size="2">name </font></td>
<%sql1="select * from aza order by name desc"
set rs=adodc.Execute(sql1)%> <%do while not rs.eof%></font><font size="2">
</font></td>
</tr>
<tr>
<td align="middle"><font style="FONT-SIZE: 8pt"><font color="#FFFFFF">
<%=rs.fields("name")%> &nbsp;</font> </font></td>
</tr>
<%rs.movenext
loop%>
</table>
<p align="center">&nbsp;</p>
<p align="center">
<a href="http://aftab3/mmmmmmm/admin_page2.asp?a=12" target="_self" style="text-decoration: none">
<font color="#F7941D"><font size="2">بازگشت</font></p>
</font></a></center>
</div>
<font color="#F7941D">

</body>

</html>