<%end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&clasidd&"®="®&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtyime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&">首页</a> "
response.write "<a href="&filename&"?page="¤tPage-1&"&serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&clasidd&"®="®&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&clasidd&"®="®&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&">"
response.write ">下一页</a> <a href="&filename&"?page="&n&"&serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&clasidd&"®="®&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&">尾页</a>"
end if
if int(strpage)>1 then
response.write" <a href=huiyuanxinxiindex.asp?page=1&leibieid="&request("leibieid")&"&shenfenid="&request("shenfenid")&"&selectid="&request("selectid")&">首页</a> "
response.write" <a href=huiyuanxinxiindex.asp?page="&cstr(cint(strpage)-1)&"&leibieid="&request("leibieid")&"&shenfenid="&request("shenfenid")&"&selectid="&request("selectid")&">上一页</a> "
else
response.write" 首页 上一页"
end if
if int(strpage)<select_pagecount then
response.write" <a href=huiyuanxinxiindex.asp?page="&cstr(cint(strpage)+1)&"&leibieid="&request("leibieid")&"&shenfenid="&request("shenfenid")&"&selectid="&request("selectid")&">下一页</a>"
response.write" <a href=huiyuanxinxiindex.asp?page="&cstr(select_pagecount)&"&leibieid="&request("leibieid")&"&shenfenid="&request("shenfenid")&"&selectid="&request("selectid")&">尾页</a>"
else
response.write" 下一页 尾页"
end if