<%
set rst=server.createobject("adodb.recordset")
sql="select * from xueshen_biao order by id desc"
rst.open sql,strConn,3,1
if Not(rst.bof and rst.eof) then'判别数据表中是否为空记录
NumRecord=rst.recordcount
rst.pagesize=10
NumPage=rst.Pagecount
page= int (request("page"))
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then
NoncePage=NumPage
end if