分页程序做好后 最后一页无法显示
if Request.QueryString("type")<>"" then
sql_string=session(Request.QueryString("type"))
end if
if Request.QueryString("page")="" then
sql="from repair_list "& sql_string
session("sql")=sql
page=1
else
sql=session("sql")
page=Request.QueryString("page")
end if
page_num=1
rs.Open "select count(*) as ss " & sql,session("connection_string"),3,3
ss=rs(0)
allpage=int(rs(0)/page_num+0.9999999999)
rs.Close
sql1="select top " & page_num & " * " & sql & "and id > (SELECT MAX(id) FROM(select top " & page_num*(page) & " id " & sql & " order by id" & ") as t)" & " order by id"
rs.Open sql1,session("connection_string"),3,3