كيف اقسم الصفحات في ASP

إليك هذا الشرح بالتفصيل ...

من خلال هذا الرابط :

http://www.alnoor-world.com/asp/topicbody....=20&SectionID=5

بسم الله الرحمن الرحيم

شكراً جزيلاً لك

الفكرة أبسط ما يكون ..

كل ما عليك كتابة التالي :

<%@codepage=1256%>

<%

Set objConn = CreateObject("ADODB.Connection")

objConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _

Server.MapPath("db.mdb"))





SQL="select * from table1"



set rs=Server.CreateObject("ADODB.Recordset")

rs.open SQL,objconn,3



page=CLng(request("page"))

if page="" then  page=1

if page<1 then   page=1

rs.pagesize=10

rs.AbsolutePage=page



for ipage=0 to rs.pagesize

 response.write "
"

 response.write rs("name")

 rs.movenext

 if rs.eof then exit for

next 



path="default.asp?"

printFNBE page,path



function printFNBE(page,path)

 response.write "<center>"

 if page<>1 then 

  response.write "
"

  response.write "البداية"&VBCrlf

  response.write "للخلف"&VBCrlf

 end if

 if page<>rs.pagecount then 

  response.write "للأمام"&VBCrlf

  response.write "النهاية"&VBCrlf

 end if

  response.write "
"

  response.write "<font color=""red"">"&rs.pagecount&"/"&page&"</font>"

  response.write "</center>"

end function



%>

حظا موفقا للسائل و أهلا بكم كأعضاء جدد على قسمنا و تسرنا مشاركاتكم القيمة و ان شاء الله تتكرر المشاركات معنا (f)(f)

بسم الله الرحمن الرحيم

استاذي العزيز محمد لاأعرف كيف أشكرك وليس لدي شئ اقدمه لك سوى الشكر لأقدمه مع انك تستاهل اكثر

اخوك عبدالله المحمادي

العفو أخوي .. أنا ما سويت غير الواجب و الله يقدرني عليه :) (f)(f)(f)