blackeve
سه شنبه 04 مهر 1385, 12:13 عصر
اول شرمنده که دیر جواب میدم، یه مدتیه گرفتارم و این حرفا
نمونه کد رو همینجا براتون میزارم اگه موردی بود بگید تا توضیح بدم مجدد،
نمونه کد :
'نام صفحه جاری
ScriptName = Request.ServerVariables("SCRIPT_NAME")
'ایجاد ارتباط با جدول بانک اطلاعاتی
Set rs = Server.CreateObject("ADODB.Recordset")
'نمایش تعداد رکورد ها در هر صفحه
if Request.QueryString("resNum") = "" then
NumPerPage = 20
'در صورتی که این عدد در نوار آدرس در متغیر خود آمده باشد جایگزین می شود
Else
NumPerPage = Cint(Request.QueryString("resNum"))
End If
'مشخص کننده صفحه ای ما اکنون در آن هستیم
If Request.QueryString("page") = "" then
' درصورتی که مقدار تهی باشد صفحه اول مشخص می گردد
CurrentPage = 1
Else
'در غیر این صورت صفحه جاری از نوار آدرس دریافت می شود
CurrentPage = CInt(Request.QueryString("page"))
End If
'دریافت لیست رکوردهای مورد نیاز از بانک اطلاعاتی
strSQL = "SELECT * FROM [TblName]"
'بازکردن بانک اطلاعاتی با ارتباط بانک اطلاعاتی adoConn
rs.Open strSQL, adoCon, 1, 1 'ارتباط فقط دریافت را پشتیبانی کی کند و نه تغییر یا حذف
'در صورتی که که رکوردهای برگشتی غیر تهی یا صفر باشد
If Not rs.EOF Then
' به اولین رکورد برگشتی حرکت می کنیم
rs.MoveFirst
' اندازه صفحه رکوردها را برابر عدد مورد نظر قرار می دهیم
rs.PageSize = NumPerPage
'تعداد صفحات ممکن را در متغیر ذخیره می کنیم
TotalPages = rs.PageCount
'نمایش رکوردهای صفحه مورد نظر را با قرار دادن متغیر مشخص می کنیم
rs.AbsolutePage = CurrentPage
End If
Dim Count
' مرورگر صفحات را در این بخش بصورت زیر ایجاد می کنیم
For pageNum = 1 to TotalPages
If pageNum = CurrentPage Then
%>
<span id="PagingNum"><b><% = pageNum %></b></span>
<% Else %>
<span id="PagingNum"><a href="?page=<% = pageNum %>"><% = pageNum %></a></span>
<%
End If
Next
%>
'لینک صفحه قبل را بصورت زیر ایجاد می کنیم
If Not CurrentPage = 1 Then
Response.Write "<a style='text-decoration: none' href='" & ScriptName & "?page=" & CurrentPage - 1 & "'>صفحه قبل</a> | "
Else
Response.Write "اولین صفحه | "
End If
'لینک صفحه بعد را بصورت زیر ایجاد می کنیم
If Not CurrentPage = TotalPages Then
Response.Write "<a style='text-decoration: none; font-size: 11px' href='" & ScriptName & "?page=" & CurrentPage + 1 & "'>صفحه بعد</a>"
Else
Response.Write "آخرین صفحه"
End If
Count = 1
'ایجاد حلقه نمایش رکورد
While Not rs.EOF and Count =< rs.PageSize
%>
[read record set and show information here]
<%
rs.MoveNext
Count = Count + 1
Wend
rs.Close
%>
موفق باشید -
--------------------
آقا یه سوال کردی روفتی دیگه پیدات نشد .
چی کار کردی درست شد یا نه بالا خره .
blackeve جان چیزی که گفتی رو میشه با نرم افزار ASPMAKER به راحتی و سر سه سوت درست کرد خودش همه کار ها رو میکنه .
مثلاً تنظیم میکنی که در هر صفحه 25 تا رکورد رو نمایش بده . بعد از اتمام کار و باز کردن صفحه بهت میگه که چند تا صفحه داری و برای رفتن به هر صفحه میتونی با وارد کردن شماره صفحه مستقیماً همون صفحه با رکورد های مربوطه رو لود کنی . یه چیزی بیه گوگل
من با این نرم افزار کار نکردم.
ولی فکر کنم حتی اگه این برنامه هم این کار رو انجام بده باز باید اصول رو یاد بگیریم تا بتونیم برنامه رو تغییر بدیم.