<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友情缘网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url(image/0511bg.jpg);
}
-->
</style>
</head>
<body>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr> 
  <tr>
    <td height="5"></td>
  </tr>
  <tr>
    <td><table width="750" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="150" align="center" valign="top" bgcolor="#FFE3F0"><!--#include file="lefta.asp"--></td>
        <td align="center" valign="top"><table width="590" border="0" cellspacing="0" cellpadding="0">
          
          <tr>
            <td align="center"><table width="590" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="40" align="center" background="image/zc.gif"><table width="96%" height="100%" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td width="22%" rowspan="2" class="STYLE6">热门投票</td>
                          <td width="78%" align="right">&nbsp;</td>
                        </tr>
                        <tr>
                          <td>&nbsp;</td>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td height="620" align="center" valign="top" background="image/zg.jpg"><table width="560" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                        <tr>
                          <td width="560" height="8" align="left"></td>
                        </tr>                       
                      </table>
					  <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from vote_lanmu order by id desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<br><br><center>暂无投票信息！</center>"
else
               rs.pagesize=3
			   msg_per_page=rs.pagesize
			   page=request("page")
			   if page<1 or page="" then page=1
			   if clng(page)>clng(rs.pagecount) then page=clng(rs.pagecount)
			   page=clng(page)
			   rs.absolutepage=page
			   rowcount=rs.pagesize
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
%>
                        <table width="560" height="595" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                          <tr>
                            <td height="569" align="left" valign="top">
<%			   
dim i
i=0
	do while not rs.eof and rowcount>0
	  names=rs("names")
set rs1=server.createobject("adodb.recordset")
sql="select * from vote_body where lanmu_id="&rs("id")
rs1.open sql,conn,3,1 
	%>						
						 							
							<table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#FF99CC" class="STYLE1">
	<form name="form2<%=i%>" method="post" action="vote_votes.asp">						
                              <tr align="middle">
                                <td height="25" colspan="2"><div align="left">&nbsp;&nbsp;<%=rs("names")%>&nbsp;&nbsp;&nbsp;&nbsp;(共有<%=rs1.recordcount%>人参加了投票)<input name="lanmu_id" type="hidden" id="lanmu_id" value="<%=rs("id")%>"></div></td>
                              </tr>
                              <tr align="middle">
                                <td width="103" height="50"><div align="center">&nbsp; </div></td>
                                <td width="447" align="left"><table width="300" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
								<%do while not rs1.eof%>
                                    <tr>
                                      <td width="31"><%if rs1("types")=1 then	%>
                              <input type="radio" name="id" value="<%=rs1("id")%>">
                              <%else%>
                              <input name="id" type="checkbox" id="id" value="<%=rs1("id")%>">
                              <%end if
							  types=rs1("types")
lanmu_id=rs1("lanmu_id")
							  %></td>
                                      <td width="269"><%= rs1("bodys") %></td>
                                    </tr>
								<%
								rs1.movenext
								loop
								rs1.close
								set rs1=nothing
								%>	
                                </table></td>
                              </tr>
                              <tr align="middle">
                                <td height="25">&nbsp;</td>
                                <td align="left"><input type="submit" name="Submit" value="提交">
                                  &nbsp;&nbsp;&nbsp;&nbsp;&gt;&gt;&gt;<a href="vote_view.asp?id=<%=lanmu_id%>&names=<%=names%>" target="_blank" class="a2">查看投票结果</a>
                                  <input name="types" type="hidden" id="types" value="<%=types%>"></td>
                              </tr>
							  </form>
                            </table>
                            <table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td height="10">&nbsp;</td>
                              </tr>
                            </table>
                            <%
  rs.movenext
  i=i+1
  rowcount=rowcount-1
loop
%>							
							</td>
                          </tr>
                          <tr>
                            <td height="25" align="center"><div align="right">
                              <%
			  response.Write "当前页次:<font color='#FF0000'>"& page &"/"& pcount &"</font>&nbsp;共<font color='#FF0000'>"& pcount &"</font>页  共<font color='#FF0000'>"& precordcount &"</font>条&nbsp;每页<font color='#FF0000'>"& msg_per_page &"</font>条&nbsp;"
			  if page>1 then
			    response.Write "<a href='vote.asp?page=1' class='a1'>[首页]</a>&nbsp;"
				response.Write "<a href='vote.asp?page="& page-1 &"' class='a1'>[上一页]</a>&nbsp;"
			  else
			    response.Write "[首页]&nbsp;[上一页]&nbsp;"
			  end if
			  if page<pcount then
			    response.Write "<a href='vote.asp?page="& page+1 &"' class='a1'>[下一页]</a>&nbsp;"
				response.Write "<a href='vote.asp?page="& pcount &"' class='a1'>[尾页]</a>&nbsp;"
			  else
			    response.Write "[下一页]&nbsp;[尾页]&nbsp;"
			  end if
			  %>
                                                  <SELECT onChange="javascript:window.open('vote.asp?page='+this.options[this.selectedIndex].value,'_self')" name="jump">
                                                    <%for i=1 to pcount
			   response.Write "<option value='"& i &"'>"& i &"</option>"
			  next
			  %>
                                                                    </SELECT>
  &nbsp;&nbsp;
  </div></td>
                          </tr>						  
                      </table>
<%end if%>					  
					  </td>
                  </tr>
            </table></td>
          </tr>          
        </table></td>
        <td align="right">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
