sub listpage()

if allpages <= 1 then exit sub
if page = 1 then
response.write "<br><font color=#878787>首页 上页</font>"
else
response.write "<br> <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
end if
if page = allpages then
response.write "<font color=#878787>下页 末页</font>"
else
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page+1&"'>下页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
end if

response.write " 第"&page&"页 共"&allpages&"页 商品总数："&totalrec& " 每页商品数："& per_page_num

end sub