strShowPage=25
Sql="Select * from DancingPad order by TeamID DESC"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.cursorlocation=3
rs.pageSize=strShowPage
rs.Open sql,Cn,1,3
if not rs.eof then rs.AbsolutePage = pageno
total = RS.recordCount
totalpage = rs.pagecount