السلام عليكم ورحمة الله وبركاته
كيف أعرض في صفحة الويب عدد من السجلات
مثلا اذا كانت لدي 20 سجل أو أكثر اريد أن أعرض كل عشرة في صفحه
مع كتابة أسفل الصفحهأرقام الصفحات
مثلا اذا كان هناك 20 سجل يظهر في أسفل الصفحة 1 2 وأختار ما أريد
(لغة asp)
ولكم جزيل الشكر
أخي أهلا و سهلا بك .. هذا الموضوع تكرر الف مرة و أشرنا لخاصية البحث و أيضا و ضعتها بشكل ملحوظ في شروط الكتابة في هذا القسم .. ابحث ستجد ما تريد و زيادة
You can fly while you can touch the sky
أخي محمد خليل هدي من أعصابك الدروس منثورة وخاصية البحث ضعيفة فياليت لو تجمع الدروس في موضوع موحد لكي لا يكون لأحد حجة..
ها هو المثال :
<%@codepage=1256%>
<html dir="rtl">
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title>Pagination</title>
</head>
<body>
<%
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=1 to rs.pagesize
response.write "
"
response.write rs("name")
rs.movenext
if rs.eof then exit for
next
%>
</body>
<%
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
%>
</html>You can fly while you can touch the sky
هذا الموضوع مغلق.