آقا بي زحمت كدش رو برام بنويسalireza26 گفت:شما مي توانيد با راه ساده زير اين كار را انجام بدهيد:
اول يك حلقه درست كنيد كه 5 با دستور objrs.moveprevious را اجرا كنه .
وقتي اين كار را كرديد مكان نما در پايگاه داده ات در 5 ركورد به آخر قرار مي گيرد.
بعد به راحتي با يك حلقه While 5 ركورد آخرت را چاپ كن.
<!--#include file="adovbs.inc"-->
<%
Dim objconn,objrs
set objconn = server.createobject("ADODB.connection")
objconn.connectionstring = "DSN=yourDSNname"
objconn.open
set objrs = server.createobject ("ADODB.recordset")
objrs.open "userinformation" , objconn, adopendynamic, , adcmdtable
objrs.movelast
dim strname
for a=1 to 4
objrs.moveprevious
next
Do while not (objrs.eof)
response.write ( objrs("username") & "<BR>")
objrs.movenext
loop
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>
rahincom گفت:ممنون عليرضا جان
كارم راه افتاد.
در ضمن ميتوني اين كد رو برام كاملتر كني و كدي بنويسي كه اگه مثلا 100 ركورد تو ديتابيس وجود داشت بياد با كليد Next و Back همرو بياره.
اميدوارم بتونم جبران كنم
<!--#include file="adovbs.inc"-->
<%
Dim objconn,objrs
set objconn = server.createobject("ADODB.connection")
objconn.connectionstring = "DSN=yourDSNname"
objconn.open
set objrs = server.createobject ("ADODB.recordset")
objrs.open "userinformation" , objconn, adopendynamic, , adcmdtable
if request.querystring("numberpage") => 20 then
dim numberpage
numberpage = request.querystring("numberpage")
objrs.move numberpage
i = 1
Do while not (objrs.eof) AND Not (i = 21 )
response.write ( i & objrs("username") & "<BR>")
i = i + 1
objrs.movenext
loop
numberpage1 = numberpage - 20
response.write ("<a href=page1.asp?numberpage=" & numberpage1 & ">preview</a>")
response.write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
if i > 20 then
numberpage = numberpage + 20
response.write ("<a href=page1.asp?numberpage=" & numberpage & ">Next</a>")
end if
else
dim i
i = 1
Do while not (objrs.eof) AND Not (i = 21 )
response.write ( i & objrs("username") & "<BR>")
i = i + 1
objrs.movenext
loop
if i > 20 then
response.write ("<a href=page1.asp?numberpage=20>Next</a>")
end if
end if
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>