<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/safe.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();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
}
-->
</style>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="219" height="168" align="center" valign="top"><div align="left">
        <!--#include file="sousuo2.asp"-->
    </div></td>
    <td width="731" align="center" valign="top"><div align="left"></div>
        <table width="730" border="0" align="left" cellpadding="0" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid  ">
          <tr>
            <td height="28" colspan="3" background="images/lg_1.gif">&nbsp;&nbsp;<strong>热门文章写手</strong></td>
          </tr>
          <tr>
            <td width="32" height="202">&nbsp;</td>
            <td width="659"><table width="720" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr>
                <td align="center">&nbsp;</td>
              </tr>
              <tr>
                <td align="center"><table width="724" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="724" height="160" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <%
						set rs=server.CreateObject("adodb.recordset")
						sql="select top 5 username,photo,userid from user_info where photo<>'' and photo is not null order by artnum desc"
						rs.open sql,conn,1
						for j=1 to 5
						%>
                            <td width="140" align="center" valign="top" background="image/zzz.gif"><%if not rs.eof then%>
                                <table width="125" height="130" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td height="13" colspan="2"></td>
                                  </tr>
                                  <tr>
                                    <td width="5">&nbsp;</td>
                                    <td width="120" height="105" align="center"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank"><img src="uppic/photo/<%=rs("photo")%>" width="110" height="95" border="0"></a></td>
                                  </tr>
                                  <tr>
                                    <td height="29">&nbsp;</td>
                                    <td height="42" align="center"><U class="STYLE1">
                                      <%response.write "<a href=""userinfo.asp?user_id="&rs("userid")&""" target=""_blank"" class=""a1"">"&rs("username")&"</a>"%>
                                    </U></td>
                                  </tr>
                                </table>
                                <%
						  rs.movenext
						  else
						   response.Write "&nbsp;"
						  end if 						
			%>
                            </td>
                            <%if j<>5 then%>
                            <td width="6"></td>
                            <%end if			
			next
		  rs.close
		  set rs=nothing
						  %>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td height="8">&nbsp;</td>
              </tr>
              <tr>
                <td height="8"><table width="480" border="0" align="center" cellpadding="0" cellspacing="0" class="STYLE1">
                    <form name="form1" method="post" action="searchnews.asp">
                      <input type="hidden" name="c_id" value="<%=classid%>">
                      <tr>
                        <td width="63">文章搜索：</td>
                        <td width="180"><input name="keys" type="text" id="keys" style=" height:19px; width:180px;"></td>
                        <td width="97"><select name="classid" id="classid">
                            <option value="">全部文章</option>
                            <%
					  set rst=server.CreateObject("adodb.recordset")
					  sql="select * from art_class"
					  rst.open sql,conn,1
					  do while not rst.eof
					   response.Write "<option value="""& rst("classid") &""">"& rst("classname") &"</option>"
					  rst.movenext
					  loop
					  rst.close
					  set rst=nothing
					  %>
                          </select>
                        </td>
                        <td width="77" align="left"><input type="image" name="imageField" src="image/s.jpg"></td>
                      </tr>
                    </form>
                </table></td>
              </tr>
              <tr>
                <td height="8"></td>
              </tr>
              <tr>
                <td align="center"><TABLE cellSpacing=6 cellPadding=0 width="724" 
            border=0>
                    <TBODY>
                      <TR>
                        <TD align="center" valign="top"><table width="708" height="238" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="172" align="center" valign="top"><table width="172" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="31" background="image/tiao_4.gif">&nbsp;&nbsp;<strong class="pgd">热门文章</strong></td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article order by lcount desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td height="22" align="right"><a href="diary_hot.asp" target="_blank" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="182" align="center" valign="top"><table width="172" border="0" cellspacing="0" cellpadding="0" >
                                  <tr>
                                    <td height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>精品文章</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where jp=1 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td height="22" align="right"><a href="diary_jp.asp" target="_blank" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="172" align="center" valign="top"><table width="172" border="0" cellspacing="0" cellpadding="0" >
                                  <tr>
                                    <td width="175" height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>诗歌心情</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=6 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td height="22" align="right"><a href="xqnews.asp?c_id=6" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="174" align="center" valign="top"><table width="172" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>新年征婚</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=7 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td height="22" align="right"><a href="xqnews.asp?c_id=7" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="10" align="left" valign="top" bgcolor="#EDEEF0"><img height="238" 
                        src="ima/xqrjsy_03_09.gif" 
                        width="8" /></td>
                            </tr>
                        </table></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
              <tr>
                <td height="10"></td>
              </tr>
              <tr>
                <td align="center"><TABLE cellSpacing=6 cellPadding=0 width="724" 
            border=0>
                    <TBODY>
                      <TR>
                        <TD align="center" valign="top"><table width="711" height="238" border="0" align="left" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="172" align="center" valign="top"><table width="173" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td width="173" height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>精彩生活</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=4 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td height="22" align="right"><a href="xqnews.asp?c_id=4" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="172" align="center" valign="top"><table width="173" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td width="173" height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>爱情故事</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE8">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=1 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td align="right"><a href="xqnews.asp?c_id=1" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="172" align="center" valign="top"><table width="172" border="0" cellspacing="0" cellpadding="0" >
                                  <tr>
                                    <td height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>人生感悟</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE88">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=3 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td align="right"><a href="xqnews.asp?c_id=3" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="169" align="center" valign="top"><table width="169" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="31" background="image/tiao_4.gif" class="pgd">&nbsp;&nbsp;<strong class="pgd"></strong>心情随笔</td>
                                  </tr>
                                  <tr>
                                    <td height="200" align="center" valign="top" bgcolor="#FDFDFD"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="STYLE88">
                                        <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from article where classid=5 order by id desc"
rs.open sql,conn,1
do while not rs.eof
%>
                                        <tr>
                                          <td width="16%" height="22" align="center"><img src="ima/dian.jpg" width="6" height="6"></td>
                                          <td width="84%" height="22" align="left"><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a1" title="<%=rs("title")%>">
                                            <%
if len(rs("title"))>11 then
  response.Write left(rs("title"),10)&".."
else
  response.Write rs("title")  
end if
					  %>
                                          </a></td>
                                        </tr>
                                        <%
rs.movenext
loop
rs.close
set rs=nothing
%>
                                        <tr>
                                          <td height="22" align="center">&nbsp;</td>
                                          <td align="right"><a href="xqnews.asp?c_id=5" class="a1">更多&gt;&gt;</a>&nbsp; </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="12" align="left" valign="top" bgcolor="#EDEEF0"><img height="238" 
                        src="ima/xqrjsy_03_09.gif" 
                        width="8" /></td>
                            </tr>
                        </table></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
            </table>
              <font color="#006600"><br>
              </font></td><td width="37">&nbsp;</td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
