مشکل در ایجاد صفحه اتوماتیک

[mjanbazi]

من یک سایت اخبار درست کردم که کاملا پویا می باشد
فقط می خواهم در هر صفحه 10 خبر نمایش داده شود و اگر خبر یازدهم اضافه شد بدون هیچ نوشتن کد جدید برای صفحه ، صفحه جدید ایجاد شود و این خبر در این صفحه وارد شود
این عمل باید کاملا پویا باشد یعنی برای خبر بیست یکم نیز باید صفجه سوم ایجاد شود و هیچ نیازی به برنامه نویس سایت نباشد که بیاید و صفحه سوم را ایجاد کند و کد را در این صفحه بنویسد
با زیاد شدن رکورد ، تعداد صفحات زیاد شود

لطفا توضیح ندهید که این کارو بکن
با کد لطفا توضیح دهید
یا اگر کد آماده ای دارید متشکرم در اختیار من قرار دهید
با تشکر
mj_professional@yahoo.com

[mehr_80]

سلام
منم همین مشکلو دارم. اگه دوستان راهنمایی کنن ممنون میشم

[samispeed]

<%
pageNum = trim(request.querystring("pageNum"))
If pageNum = "" Then
pageNum = 1
else
pageNum = cint(pageNum)
End If
DisplayNum = 0
rs.PageSize =20
rs.CursorLocation = 3
Shaut = Now()
sql="select * from news order by id desc"
rs.open sql,sqlconn
if rs.EOF OR rs.BOF Then
else
ipage = rs.PageCount
if pageNum = 0 or pageNum > ipage Then
rs.AbsolutePage = ipage
else
rs.AbsolutePage = pageNum
end if
while not rs.eof and i < 20
%>

در این قسمت کد نمایش اطلاعات را قرار می دهید



<%
rs.movenext
i=i+1
wend
%>




<tr><td colspan =2 style="font-family: Tahoma; font-size: 11px; text-align: rtl; direction: rtl; padding: 3px">
<%If ipage > 1 Then%>
شماره صفحات : &nbsp;
<%
end if
If ipage > 1 Then
For z = 1 to ipage
If z = pageNum then
showpages = showpages & pageNum
Else
showpages = showpages & " <a href=News.asp?pageNum=" & z &" >" & z & "</a>" & " &nbsp;"
End If
Next
response.write showpages & "&nbsp;&nbsp;"
End If
%>
</td></tr>
<%
End if

[samispeed]

دقت کنید قسمت rs.pagesize=20 و i<20 مربوط به تعداد رکوردهای نمایش داده شده در هر صفحه می باشد که می توان آن را کم و زیاد کرد

[mjanbazi]

با سلام و تشکر از کاربر قبلی که کمک کردند
من هم فایل ایجاد صفحه را برای شما قرار می دهم
با تشکر
لینک دانلود
http://mikaeil.persiangig.ir/newss.zip