<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->

<%Call head()
Call saycarda("爱心排行")%>


<% 
  dim bz,objgbrs
  bz=request("bz")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select top 10 * from users order by love desc"
  objgbrs.open ssql,conn
Response.write "<br/>社区学校爱心排行前十：<br/>------------<br/>"
if objgbrs.eof then
Response.write "暂时空缺<br/>"
 Else
For k=1 to 10
bihaocont=bihaocont+1
Response.write bihaocont & "." & "<a href='/bbs/show.asp?id=" & objgbrs("id") & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>" & objgbrs("name") & "ID:" & objgbrs("id") & "</a><br/>爱心：(" & objgbrs("love") & ")<br/>"
Response.write "当前年级:"
if objgbrs("nianji")=1 then
Response.write "小学一年级<br/>"
end if
if objgbrs("nianji")=2 then
Response.write "小学二年级<br/>"
end if
if objgbrs("nianji")=3 then
Response.write "小学三年级<br/>"
end if
if objgbrs("nianji")=4 then
Response.write "小学四年级<br/>"
end if
if objgbrs("nianji")=5 then
Response.write "小学五年级<br/>"
end if
if objgbrs("nianji")=6 then
Response.write "小学六年级<br/>"
end if
if objgbrs("nianji")=7 then
Response.write "初中一年级<br/>"
end if
if objgbrs("nianji")=8 then
Response.write "初中二年级<br/>"
end if
if objgbrs("nianji")=9 then
Response.write "初中三年级<br/>"
end if
if objgbrs("nianji")=10 then
Response.write "高中一年级<br/>"
end if
if objgbrs("nianji")=11 then
Response.write "高中二年级<br/>"
end if
if objgbrs("nianji")=12 then
Response.write "高中三年级<br/>"
end if
if objgbrs("nianji")=13 then
Response.write "大学一年级<br/>"
end if
if objgbrs("nianji")=14 then
Response.write "大学二年级<br/>"
end if
if objgbrs("nianji")=15 then
Response.write "大学三年级<br/>"
end if
if objgbrs("nianji")=16 then
Response.write "大学四年级<br/>"
end if
if objgbrs("nianji")=17 then
Response.write "硕士生<br/>"
end if
if objgbrs("nianji")=18 then
Response.write "博士生<br/>"
end if
objgbrs.Movenext
if objgbrs.EOF then Exit for
 Next
End if
Response.write "<a href='/bbs/school/ph.asp?sid="&sid&"&amp;saytk="&saytk&"'>排行</a>-<a href='/bbs/school/school.asp?sid="&sid&"&amp;saytk="&saytk&"'>红叶学校</a>"
Response.write "<br/><a href='/bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&"'>地盘</a>-<a href='/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区首页</a><br/>"&now&"</p></card></wml>"
conn.close
set objgbrs=nothing
set conn=nothing
%>



