 |
| 顺 序 |
单 位 |
上报数量（电子档） |
网站采用数量 |
上报团市委数量 |
总 分 |
<%
'根据江同学最新指示：在显示页面作统计，不管效率
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from procms_hdtw_jcdw"
Rs.Open SQL,Conn,3,3
Do while Not Rs.Eof
'重新计算积分 new
'通过积分来取得基层信息文章数
SQL2 = "select * from procms_hdtw_jf where jcdw_id="&Rs("id")
Set Rs2 = server.CreateObject("adodb.recordset")
Rs2.Open SQL2,Conn,1,1
temp2=Rs2.RecordCount
Rs("accept") = int(temp2)
Rs.Update()
Rs("listnum") = Rs("report")*1+Rs("accept")*1+Rs("cycnet")*1 '评分标准可以变动
Rs.Update
Rs.Movenext
Loop
'显示
Set Rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from procms_hdtw_jcdw where isdel=0 order by listnum DESC"
rs.open sql,Conn,1,1
if rs.eof and rs.bof then
response.write "| 暂时没有信息排行 | "
Else
i=0
Do Until rs.eof
i=i+1
if i mod 2 = 0 then
tempbgcolor="#d7d7d7"
else
tempbgcolor="f2f2f2"
end if
%>
| <%=i%> |
><%=rs("unitname")%> |
<%=rs("report")%> |
<%=rs("accept")%> |
<%=rs("cycnet")%> |
<%=rs("listnum")%> |
<%rs.movenext
loop
rs.movelast
end if
rs.close
%>
|
|