تبلیغات
تبلیغات متنی
محبوبترینها
ساقدوش کیست ؟ | وظیفه ساقدوش در مراسم عقد و عروسی چیست ؟
قایق‌سواری تالاب انزلی؛ تجربه‌ای متفاوت با چاشنی تخفیف
چگونه ویزای توریستی فرانسه را بگیریم؟
معرفی و فروش بوته گرافیتی ریخته گری
بهترین بروکر برای معاملات فارکس در سال 2024
تجربه رانندگی با لندکروز در جزیره قشم؛ لوکس‌ترین انتخاب
اکسپرتاپ: 10 شغل پردرآمد برای مهاجران کاری در کانادا
بهترین سایتهای خرید تیک آبی رسمی اینستاگرام در ایران
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1814781960
لطفا كمك كنيد در مورد مشكل قبلي « تغيير صفحه اي كه از ديتابيس مي خواند » -
واضح آرشیو وب فارسی:سایت ریسک: t=21651">لطفا كمك كنيد در مورد مشكل قبلي « تغيير صفحه اي كه از ديتابيس مي خواند » hamidghasemi 04 آبان 1383, 15:18با سلام و عرض ارادت خالصانه اگر خاطر مبارك شما باشد من هفته گذشته در مورد مشكل رفتن به صفحه به در هنگتامي كه از ديتابيس ركوردهاي زيادي را مي خوانيم از شما سوال كردم كه چطور مي شود كه مثلا هر 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: est.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("dbdatabase.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="#A 70A 25"><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 04 آبان 1383, 15:25خداييش خودت فهميدي چي گفتي ؟ يه بار ديگه قشنگ توضيح بده؟ ----------------------- سينا hamidghasemi 04 آبان 1383, 15:38سينا جان منظور من اين است كه سبك استفاده من از ديتابيس يك جورايي فرق مي كند و راحتر است من يك حلقه مي سازم . من 2 فايل ارسال كردم اولي براي آقاي اكسيژن بود و بعدي براي من مشكلم واضح است hamidghasemi 04 آبان 1383, 15:50اصل سوال من اين است كه چه كسي بلد است طوري اين فايل را تغيير دهد كه هر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: <!doctype HTML PUBLIC "-//W3C//DTD W3 HTML//EN"> <script src="" type="text/javascript"></script> <meta "Content-Type" content="text/html; charset=utf-8"> <%@ Language=VBScript %> <% cs="Provider=Microsoft.Jet.OLEDB.4.0;" cs=cs+"Data Source="+server.MapPath("dbdatabase.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="" target="_self" style="text-decoration: none"> <font color="#F7941D"><font size="2">بازگشت</font></p> </font></a></center> </div> <font color="#F7941D"> </body> </html>
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 113]
-
گوناگون
پربازدیدترینها