| 传媒人网首页 | 传媒人论坛 | 许愿林 | 点击鼠标看绚烂焰火 | 加入收藏 | 设为首页 |
   许愿树查询:
  所有林区 爱情林区 学业林区 事业林区 生活林区 梦想林区    
 
<% 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 %>
Copyright © 2007 <%=url%>  Inc. All Rights Reserved迷恋她女性网    逛中国旅游网