Online chat program SQLite database for each page 10 pages after the default sorting is according to the latest ID the bigger the top are arranged in the front but online chat need latest 10 reorder (shown opposite) and then the next page also want to solve in this order

 
<% set RSL=server. The CreateObject (" adodb. You ") 
SQLL="select * from MSG order by rowid DESC, rowid limit 0, 10," 
RSL. Open SQLL connLite, 1, 1 

If RSL. Eof then 
Response. Write "" "
The response. The End () 
The else 
RSL. PageSize=10 
ICount=RSL. RecordCount 
IPageSize=RSL. PageSize 
Maxpage=RSL. PageCount 
Page=request form (" page ") 
If Not IsNumeric (page) or page="" then 
Page=1 
Nextpages=0 
The else 
Page=cint (page) 
Nextpages=cint (page) 
End the if 
If page<1 then 
Page=1 
Nextpages=0 
Elseif page> Maxpage then 
Page=maxpage 
Nextpages=0 
End the if 

Nextpages=page + 1 
If nextpages> Maxpage then 
Nextpages=0 
The else 
Nextpage=page + 1 
End the if 

Nextpage=page + 1 
If nextpage> Maxpage then 
Nextpage=0 
The else 
Nextpage=page + 1 
End the if 

RSL. AbsolutePage=Page 
If the page=maxpage then 
X=iCount - (maxpage - 1) * iPageSize 
The else 
X=iPageSize 
End the if 
End the if 


For I=1 To x 

Response. Write "" "

RSL. Movenext 
Next 
RSL. Close 
The set RSL=nothing 


% & gt; 

CodePudding user response:

Under the great god help [face] emoji: 014 PNG [/face]