<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!--#include file="wxzfunction.asp"-->
<!-- #include file="cnntop.asp"-->
<!--#include file="xgcity_community_head.asp" -->
<%
dim Assort_id
Assort_id=0
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
  <tr>
    <td height="100%" align="left" vAlign="top" noWrap id="frmTitle">
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="no" src="../../left.asp?Assort_id=<%=Assort_id%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 92px; Z-INDEX: 2">
    </iframe>    </td>
    <td style="WIDTH: 9pt" >
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
	<tbody>
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()" background="../../images/left/bg.gif" style=CURSOR:hand; title=开启/关闭左边导航栏>
<font style=COLOR:#ffffff;CURSOR:hand;FONT-FAMILY:Webdings;FONT-SIZE:9pt;>
<SPAN id=switchPoint>3</SPAN></font></td>
      </tr>
	  </tbody>
    </table>
    </td>
    <td align="left" valign="top" style="WIDTH: 100%">


<%
WPD_html()
WPD_Getconfig
WPD_ScriptSrc(WPD_pluspath&"visual/wxzmain.js")
WPD_checkplususer
WPD_isshowtop=1
%>
<!--#include file="z_Visual_const.asp"-->
<%
WPD_stats="形象大赛"
WPD_header "时尚秀","visual","index.asp"

dim prs,vpid,srs,totalrec,PageCount,curcount,CurPage,lst,cougif,mypid,curcount2,a,curcount3
curPage=request("page") '页数
if curpage="" or not WPD_isInteger(curpage) then
	curpage=1
	
else
	curpage=clng(curpage)
	
end if


response.write "<table cellpadding=0 cellspacing=1 align=center class=tableborder1 width="""&DEF_BBS_ScreenWidth&""">" 
response.write "<tr height=25 valign=middle align=center>"

response.write "<td class=TBHead valign=middle colspan=2 width=""100%"">"
response.write "[<a href=z_top_photo.asp?act=3&lst=1>最新加入</a>]&nbsp;&nbsp;&nbsp;[<a href=z_top_photo.asp>社区形象秀TOP20排名</a>]"

response.write "</td></tr>"

set srs=server.createobject("ADODB.Recordset")
		sql="select top 20 id,book,date,cou,photoname from [Visual_photo3] where pok=1 and vopen=0 and lb=1 order by cou desc"
		srs.open sql,conntop,1,1
                        if srs.eof and srs.bof then
		               response.write "<tr bgcolor="&DEF_BBS_LightDarkColor&" ><br>暂时还没有任何社员数据</td></tr>"
                        else

					totalrec=srs.recordcount
                                        if totalrec mod 12=0 then
						pagecount=totalrec \ 12
						
					else
						pagecount=totalrec \ 12+1
						
					end if
					curcount=0
					dim iic
					iic=0
					if curpage > pagecount then curpage = pagecount
						if curpage < 1 then curpage=1
						srs.PageSize=12
						srs.AbsolutePage=CurPage
					do while not srs.eof and curcount<12
					mypid=srs("id")
					
					curcount3=curPage*12
					curcount2=curcount3+curcount+1-12
				   
                    


					cougif=srs("cou")*4
					response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9 valign=middle>"
					response.write "<td  align=""center"" width=""20%"" rowspan=""2"">"
					call photosee(mypid,"")
					response.write "</td>"
					response.write "<td  align=""left"" width=""80%"" height=""1"">"
                    response.write "&nbsp;<font color=#008000>得票数</font>"
					response.write "<img src=pic/bar1.gif  width="&srs("cou")&" height=8> <b>"&srs("cou")&"票</b>"
					response.write "</td></tr><tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
                    response.write "<td  align=""left"" width=""80%"">"
                    response.write "&nbsp;暂时排名：第<font color="&WPD_spcolor&">"&curcount2&"</font>"
                    response.write "</td></tr>"

					curcount=curcount+1
                                        iic=iic+1
                                        if iic mod 1=0 then
                                        iic=0
end if
srs.movenext
loop
end if
srs.close
set srs=nothing

                                        %>

					<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9 height=20  valign=middle>
						<td colspan=2 valign=middle >&nbsp;&nbsp;页次：<b><%=curPage%></b> / <b><%=pagecount%></b> 页 每页：<b>12</b> 共计：<b><%=totalrec%></b> 人参加评比&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_top_photo.asp?act=0&app=3&lst=2><b><font color=red>我要参赛</font></b></a>
						
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;分页： 
          <%
							call DispPageNum(curpage,pagecount,"?act=3&lst="&lst&"&page=","#VisualTop")
						%>
          &nbsp;&nbsp;</td>
					</tr>
			</table>
			
			<!--#include file="top_photo2_top.asp" -->
			
<%
WPD_footer()
%>
 </td>
  </tr>
  </tbody>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
