sqlstr = Request.Querystring("sqlstr")
pagenumber = request.QueryString("pagenumber")
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open ConString'ConString是前面定义的连接字符串
set Rs_FaultInfo = server.createobject("adodb.recordset")
Set Rs_FaultInfo=DBConn.Execute(sqlstr)
rcount=RS_FaultInfo.RecordCount
if not isempty(pagenumber) then
displaypage=cint(pagenumber)
else
displaypage=1
end if
perpage=20 '每页行数
if Rs_FaultInfo.bof and Rs_FaultInfo.eof then
response.write "没有记录"
table 'table是函数,将结果显示列表
elseif displaypage=1 then
selectpage
table
elseif (displaypage-1)*perpage < rcount then
'response.write pagenumber & "page"
Rs_FaultInfo.move (displaypage-1)*perpage
selectpage
table
else
displaypage=1
table
end if
sub selectpage()
dim pagenum
dim prepage, nextpage
dim tmp
'统计页数
if (rcount mod PerPage) = 0 then
pagenum = rcount \ PerPage
else
pagenum = rcount \ PerPage + 1
end if
'if pagenum = 1 then exit sub
prepage = displaypage - 1
nextpage = displaypage + 1