<%
if page <>1 then
Response.Write "
首页 "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"
上一页"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write "
下一页 "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "
尾页"
end if
Response.Write " "&rs.RecordCount&" 条记录 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>