<%=title%>

许愿树查询：

所有林区

<% MaxPerPage=20 page=request("page") if isnumeric(page)=true then if page>0 then currentPage=int(page) else currentPage=1 end if else currentPage=1 end if set rs=server.createobject("adodb.recordset") select case request("sort") case "1","2","3","4","5" sql="select id,name,sort,hits from xg_tree where sort="&request("sort")&" order by id desc" case "0" searchkey=replace(request("searchkey")," ","") if IsNumeric(searchkey)=false then sql="select id,name,sort,hits from xg_tree where name like '%"&searchkey&"%' order by id desc" else sql="select id,name,sort,hits from xg_tree where id like '%"&searchkey&"%' order by id desc" end if case else sql="select id,name,sort,hits from xg_tree order by id desc" end select rs.open sql,conn,1,1 if rs.eof and rs.bof then response.end else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage <% do while not rs.eof if rs("hits")<20 then tree="" elseif rs("hits")>19 and rs("hits")<80 then tree="" elseif rs("hits")>79 and rs("hits")<150 then tree="" elseif rs("hits")>149 and rs("hits")<300 then tree="" else tree="" end if %> <%if row_count mod 5=0 then%> <% end if row_count=row_count+1 if i>=MaxPerPage then exit do i=i+1 rs.movenext loop end sub function showpage(totalnumber,maxperpage,filename) if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if %>

','wish','top=0,left=0,resizable=yes,menubar=yes,toolbar=yes,titlebar=yes,location=yes,scrollbars=yes,status=yes');"><%=tree%>

','wish','top=0,left=0,resizable=yes,menubar=yes,toolbar=yes,titlebar=yes,location=yes,scrollbars=yes,status=yes');"><%=rs("name")%>的许愿树

浇水量: <%=rs("hits")%>

&searchkey=<%=searchkey%>">

　 <%if CurrentPage<2 then%> 首页上一页 <%else%> ?sort=<%=request("sort")%>&searchkey=<%=searchkey%>&page=1>首页 ?sort=<%=request("sort")%>&searchkey=<%=searchkey%>&page=<%=CurrentPage-1%>>上一页 <%end if%><%if n-currentpage<1 then%> 下一页尾页 <%else%> ?sort=<%=request("sort")%>&searchkey=<%=searchkey%>&page=<%=CurrentPage+1%>>下一页 ?sort=<%=request("sort")%>&searchkey=<%=searchkey%>&page=<%=n%>>尾页 <%end if%> 页次：<%=CurrentPage%>/<%=n%>页共<%=totalnumber%>棵许愿树　转：页

<% end function set rs=nothing conn.close set conn=nothing select case request("sort") case "1","2","3","4","5" Response.Write "

" end select %>