واضح آرشیو وب فارسی:سایت ریسک: t=29477">نمايش 10 ركورد در هر صفحه crazy-eskelet 06 فروردين 1384, 13:52با سلام اگر بخوام تو يك صفحه اي اس پي كه در اون از ado استفاده كردم 10 ركورد تو هر صفحه نوشته شه و بقيه بره توي يك صفحه ديگه بايد چه كنم. چه كنم من چه كنم؟؟؟ :shock: Ealireza 06 فروردين 1384, 14:04select top 10 from tabel ... موفق باشيد crazy-eskelet 06 فروردين 1384, 21:06دمت گرم... به خدا 2 هفته بود دنبال اين دو تا كلمه بودم... خوب حالا اگه بخواهم كه ركورد 11 به بعد توي يك صفحه ديگه نمايش داده بشن بايد چه كرد!!!؟؟ ضمناْ اگه يه سايت درباره نمونه يك صفحه آرشيو كه بوسيله اي اس پي نوشته شده معرفي كنيد ممنون مي شم . . . . :oops: Ealireza 07 فروردين 1384, 11:24با Sql كار ميكني يا Access ؟ crazy-eskelet 07 فروردين 1384, 13:12فعلاْ access كار مي كنم. access2000 Jaf@r 12 فروردين 1384, 12:30سلام از اين كد استفاده كن ولي از كانكشنش و نام صفحت فراموش نكن و اونو غيير بده-ضمنا اگه ميخواي هميشه از اين روش استفاده كني سعي كن ساختار اين كد رو بفهمي <table> <!--#INCLUDE VIRTUAL="/includes/connection.asp" --> <% DIM mySQL, objRS mySQL = "SELECT * FROM tblCustomerInfo" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorType = 1 objRS.Open mySQL, objConn DIM intPageRecords, intRecords, intRecordCount, intCurrentPage DIM intNumberOfPages, intDisplayPage intPageRecords = Request.Querystring("page") IF intPageRecords = "" THEN intPageRecords = 1 : intRecords = 1 intRecords = intPageRecords intPageRecords = ((intPageRecords - 1) * 10) +1 intRecordCount = 0 IF NOT objRS.EOF THEN objRS.Move (intPageRecords - 1) DO WHILE intRecordCount < 10 and NOT objRS.EOF %> <tr><td><%=objRS("Email")%> - <%=objRS("Name")%></td></tr> <% objRS.MoveNext intRecordCount = intRecordCount +1 Loop END IF %> </table> <%=intPageRecords%> - <%=intPageRecords+(intRecordCount-1)%> of <%=(objRS.RecordCount)%> customers <p>Scroll Through More Customers <% intCurrentPage = Request.Querystring("page") IF intCurrentPage = "" THEN intCurrentPage = 1 intNumberOfPages = int(objRS.RecordCount 10) IF objRS.RecordCount MOD 10<> 0 THEN intNumberOfPages = intNumberOfPages + 1 Response.Write("Pages: [") FOR intDisplayPage = 1 TO intNumberOfPages IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN Response.Write " <b>" & intDisplayPage & "</b> " ELSE Response.Write " <a href=""news.asp?page=" & intDisplayPage & """>" & intDisplayPage &_ "</a> " END IF NEXT Response.Write ("]") %>
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 2405]