<style type="text/css">
<!--
.STYLE10 {
	color: #88056D;
	font-weight: bold;
	font-size: 12px;
}
.STYLE11 {font-size: 12px; color: #88056D;}
.STYLE12 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE8 {	color: #ff3399;
	font-size: 12px;
}
.STYLE9 {	color: #666666;
	font-size: 12px;
	line-height: 160%;
}
.style93 {color: #4193DD}
.style94 {	color: #474747;
	font-weight: bold;
	font-size: 13px;
}
-->
</style>
<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">
  <tr>
    <td width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
        <table width="778" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="200" align="center" valign="top"><div align="left">
                <table width="190" border="0" cellpadding="0" cellspacing="0" >
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<strong>最新加入会员</strong></td>
                  </tr>
                  <tr>
                    <td height="112" align="center" valign="middle" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><%
dim authorid				
set rs=server.CreateObject("adodb.recordset")				
sql="select top 1 count(*) as artnum,userid from article group by userid order by artnum desc"
rs.open sql,conn,1
if not rs.eof then
authorid=rs("userid")
end if
rs.close
if authorid<>"" then
sql2="select * from user_info where userid="& authorid &""
rs.open sql2,conn,1
%>
                      <TABLE height=156 cellSpacing=0 cellPadding=0 width=173 border=0>
                        <TBODY>
                          <TR>
                            <TD width=51><IMG height=111 
            src="image/200607index_45.gif" width=51></TD>
                            <TD vAlign=bottom align=center width=151><%if rs("photo")="" or isnull(rs("photo")) then%>
                                <IMG src="ima/man.gif" width=110 border=0>
                                <%else%>
                                <IMG src="uppic/photo/<%=rs("photo")%>" onload="javascript:this.width=100" border=0>
                                <%end if%>
                            </TD>
                          </TR>
                          <TR>
                            <TD height=45></TD>
                            <TD class=blue1 align=middle><span class="STYLE10"><%=rs("username")%></span>&nbsp;<span class="STYLE11"><%=GetProv(rs("prov"))%></span><BR>
                                <STRONG class="STYLE1"><a href="diary_list.asp?user_id=<%=rs("userid")%>" target="_blank"><font color="#FF3399">Ta的全部佳作&gt;</font></a></STRONG></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                    <%end if
rs.close
set rs=nothing
%></td>
                  </tr>
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<span style="font-weight: bold">时代人气会员</span></td>
                  </tr>
                  <tr>
                    <td height="509" align="center" valign="top"  style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><br>
                      <TABLE width=172 height=336 border=0 cellPadding=0 cellSpacing=0 class="STYLE11">
                        <TBODY>
                          <TR>
                            <TD width="202" height=28 class=blue1>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=7" target="_blank" class="blue">征婚专区</a></STRONG> -写出你爱的宣言</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=8" target="_blank" class="blue">佳人风采</a></STRONG> -体现当代女性魅力</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=6" target="_blank" class="blue">诗歌心情</a></STRONG> -以诗会友的文雅阁</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=3" target="_blank" class="blue">人生感悟</a></STRONG> -体味人生感悟生活</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=5" target="_blank" class="blue">心情随笔</a></STRONG> -闲暇一天心情散记</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=1" target="_blank" class="blue">爱情故事</a></STRONG> -共同分享爱的故事</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=4" target="_blank" class="blue">精彩生活</a></STRONG> -精彩生活五彩梦</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=9" target="_blank" class="blue">自主活动</a></STRONG> -活动发布专区</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=10" target="_blank" class="blue">球迷专区</a></STRONG> -以球会友寻找知己</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=11" target="_blank" class="blue">家有爱宠</a></STRONG> -以宠会友架爱的桥梁</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=12" target="_blank" class="blue">股市专区</a></STRONG> -洞察走向以股会友</TD>
                          </TR>
                          <TR>
                            <TD class=blue1 height=28>　<IMG height=9 
            src="image/ds.gif" width=6> <STRONG class="STYLE10"><a href="xqnews.asp?c_id=13" target="_blank" class="blue">交友杂谈</a></STRONG> -天南海北交友杂谈</TD>
                          </TR>
                        </TBODY>
                      </TABLE></td>
                  </tr>
                </table>
            </div></td>
            <td align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><table width="565" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="577" align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                      <TBODY>
                        <TR>
                          <TD align=center width="2%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                          <TD width="45%" align=center background="image/tiao_4.gif"><table width="145" height="25" border="0" align="left" cellpadding="0" cellspacing="0">
                              <tr>
                                <td width="145" align="center" class="pgd">红嫂视屏交友心情日记</td>
                              </tr>
                          </table></TD>
                          <TD width="10%" height="20" align="center" background="image/tiao_4.gif"><!--
		<script language=javascript src="/js/chkRegister.js"></script>
		//-->
                              <div align="left">&nbsp;</div></TD>
                          <TD width="1%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                          <TD width="31%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                          <TD width="9%" align="center" background="image/tiao_4.gif"><div align="left"></div></TD>
                          <TD width="2%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                        </TR>
                      </TBODY>
                  </TABLE></td>
                </tr>
                <tr>
                  <td height="7"></td>
                </tr>
                <tr>
                  <td height="72"><table width="536" border="0" align="center" cellpadding="0" cellspacing="0" class="STYLE4">
                    <tr>
                      <td height="10"></td>
                    </tr>
                    <tr>
                      <td height="30" align="center" valign="middle" bgcolor="#FFFFFF"><table width="80%" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                          <form name="form1" method="post" action="searchnews.asp">
                            <tr>
                              <td width="53%" align="right"><span class="black1">查看日记：</span>
                                  <input name="keys" type="text" id="keys" style="width:130px; height:19px;"></td>
                              <td width="47%" align="left">&nbsp;
                                  <input type="image" name="imageField" src="image/s.jpg"></td>
                            </tr>
                          </form>
                      </table></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"><TABLE height=250 cellSpacing=8 cellPadding=0 width=536 bgColor=#ffffff 
      border=0>
                          <TBODY>
                            <TR>
                              <TD vAlign=top align=right width=270><!-- 热门日记 开始 -->
                                  <TABLE height=195 cellSpacing=0 cellPadding=0 width=268 border=0>
                                    <TBODY>
                                      <TR vAlign=center background="image/tiao_4.gif">
                                        <TD height=26 colSpan=3><span class="pgd">&nbsp;热门日记</span> 最火暴的日记排行 </TD>
                                      </TR>
                                      <TR vAlign=bottom bgcolor="#EDF8FE">
                                        <TD width=132 
                height=19 align=left class=STYLE4>&nbsp;日记标题</TD>
                                        <TD width=68 align=left class=STYLE4>&nbsp;作 者</TD>
                                        <TD width=68 align=left class=STYLE4>人气</TD>
                                      </TR>
                                      <TR>
                                        <TD colSpan=3 height=6><IMG height=1 width=1></TD>
                                      <TR vAlign=top>
                                        <TD colSpan=3 height=144><TABLE width=252 border=0 
                  align=center cellPadding=0 cellSpacing=0 class="STYLE11">
                                            <TBODY>
                                              <%
									set rs=server.CreateObject("adodb.recordset")
									sql="select top 5 id,title,username,lcount from article order by lcount desc"
									rs.open sql,conn,1
									do while not rs.eof
									%>
                                              <TR>
                                                <TD align=left width=126 height=28><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a3">
                                                  <%if len(rs("title"))>10 then
										 response.Write left(rs("title"),9)&".."
										else
										 response.Write rs("title")
										end if
										%>
                                                </a></TD>
                                                <TD width=67><%=rs("username")%></TD>
                                                <TD class=gray width=59><%=rs("lcount")%></TD>
                                              </TR>
                                              <%
									  rs.movenext
									  loop
									  rs.close
									  set rs=nothing
									  %>
                                            </TBODY>
                                        </TABLE></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE>
                                  <!-- 热门日记 结束 -->
                                  <a href="diary_hot.asp" target="_blank"><IMG height=18 alt=查看更多 
            src="image/200607index_53.gif" width=60 
            border=0></a><BR></TD>
                              <TD vAlign=top align=right width=242><!-- 新鲜日记 开始 -->
                                  <TABLE height=195 cellSpacing=0 cellPadding=0 width=237 border=0>
                                    <TBODY>
                                      <TR vAlign=center background="image/tiao_4.gif">
                                        <TD height=26 colSpan=2><span class="pgd">&nbsp;新鲜日记</span> 最新鲜的味道 </TD>
                                      </TR>
                                      <TR vAlign=bottom align=middle>
                                        <TD width=146 
                height=19 align="left" 
                background=image/200607index_48.gif class=STYLE4>&nbsp;日记标题</TD>
                                        <TD width=91 align="center" 
                background=image/200607index_48.gif class=STYLE4>作 者</TD>
                                      </TR>
                                      <TR>
                                        <TD colSpan=2 height=6><IMG height=1 width=1></TD>
                                      </TR>
                                      <TR vAlign=top align=left>
                                        <TD colSpan=2 height=144><TABLE width=221 border=0 align=center cellPadding=0 cellSpacing=0 
                  bgColor=#ffffff class="STYLE11">
                                            <TBODY>
                                              <%
									set rs=server.CreateObject("adodb.recordset")
									sql="select top 5 id,title,username from article order by dtime desc"
									rs.open sql,conn,1
									do while not rs.eof
									%>
                                              <TR>
                                                <TD align=left width=141 height=28><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a3">
                                                  <%if len(rs("title"))>11then
										 response.Write left(rs("title"),10)&".."
										else
										 response.Write rs("title")
										end if
										%>
                                                </a></TD>
                                                <TD align=right width=84><%=rs("username")%></TD>
                                              </TR>
                                              <%
									  rs.movenext
									  loop
									  rs.close
									  set rs=nothing
									  %>
                                            </TBODY>
                                        </TABLE></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE>
                                  <!-- 新鲜日记 结束-->
                                  <a href="diary_new.asp" target="_blank"><IMG height=18 alt=查看更多 
            src="image/200607index_53.gif" width=60 
        border=0></a></TD>
                            </TR>
                          </TBODY>
                      </TABLE></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"><TABLE height=250 cellSpacing=8 cellPadding=0 width=536 bgColor=#ffffff 
      border=0>
                          <TBODY>
                            <TR>
                              <TD vAlign=top align=right width=270><!-- 精品日记 开始-->
                                  <TABLE height=195 cellSpacing=0 cellPadding=0 width=268 border=0>
                                    <TBODY>
                                      <TR vAlign=center background="image/tiao_4.gif">
                                        <TD height=26 colSpan=3><span class="pgd">&nbsp;精品日记</span> 精彩日记，不容错过</TD>
                                      </TR>
                                      <TR vAlign=bottom>
                                        <TD class=STYLE4 align=left width=166 
                background=image/200607index_48.gif 
                height=19>&nbsp;日记标题</TD>
                                        <TD class=STYLE4 align=left width=102 
                background=image/200607index_48.gif>作 者</TD>
                                        <!-- <td width="68" align="center" background="http://image2.sina.com.cn/yh/06images/index/200607index_48.gif" class="gray">人气/评论</td> -->
                                      </TR>
                                      <TR>
                                        <TD colSpan=3 height=6><IMG height=1 width=1></TD>
                                      <TR vAlign=top>
                                        <TD colSpan=3 height=144><TABLE width=252 border=0 
                  align=center cellPadding=0 cellSpacing=0 class="STYLE11">
                                            <TBODY>
                                              <%
									set rs=server.CreateObject("adodb.recordset")
									sql="select top 5 id,title,username from article where jp=1 order by id desc"
									rs.open sql,conn,1
									do while not rs.eof
									%>
                                              <TR>
                                                <TD align=left width=141 height=28><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a3">
                                                  <%if len(rs("title"))>11then
										 response.Write left(rs("title"),10)&".."
										else
										 response.Write rs("title")
										end if
										%>
                                                </a></TD>
                                                <TD align=right width=84><%=rs("username")%></TD>
                                              </TR>
                                              <%
									  rs.movenext
									  loop
									  rs.close
									  set rs=nothing
									  %>
                                            </TBODY>
                                        </TABLE></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE>
                                  <!-- 精品日记 结束-->
                                  <a href="diary_jp.asp" target="_blank"><IMG height=18 alt=查看更多 
            src="image/200607index_53.gif" width=60 
            border=0></a><BR></TD>
                              <TD vAlign=top align=right width=242><!-- 自荐日记 开始-->
                                  <TABLE height=195 cellSpacing=0 cellPadding=0 width=237 border=0>
                                    <TBODY>
                                      <TR vAlign=center background="image/tiao_4.gif">
                                        <TD height=26 colSpan=2><span class="pgd">&nbsp;自荐日记</span> 与大家一同分享 </TD>
                                      </TR>
                                      <TR vAlign=bottom align=middle>
                                        <TD width=146 
                height=19 align="left" 
                background=image/200607index_48.gif class=STYLE4>&nbsp;日记标题</TD>
                                        <TD width=91 align="left" 
                background=image/200607index_48.gif class=STYLE4>作 者</TD>
                                      </TR>
                                      <TR>
                                        <TD colSpan=2 height=6><IMG height=1 width=1></TD>
                                      </TR>
                                      <TR vAlign=top align=left>
                                        <TD colSpan=2 height=144><TABLE width=221 border=0 align=center cellPadding=0 cellSpacing=0 
                  bgColor=#ffffff class="STYLE11">
                                            <TBODY>
                                              <%
									set rs=server.CreateObject("adodb.recordset")
									sql="select top 5 id,title,username from article where tj=1 order by id desc"
									rs.open sql,conn,1
									do while not rs.eof
									%>
                                              <TR>
                                                <TD align=left width=141 height=28><a href="showdiary.asp?id=<%=rs("id")%>" target="_blank" class="a3">
                                                  <%if len(rs("title"))>11then
										 response.Write left(rs("title"),10)&".."
										else
										 response.Write rs("title")
										end if
										%>
                                                </a></TD>
                                                <TD align=right width=84><%=rs("username")%></TD>
                                              </TR>
                                              <%
									  rs.movenext
									  loop
									  rs.close
									  set rs=nothing
									  %>
                                            </TBODY>
                                        </TABLE></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE>
                                  <!-- 自荐日记 结束-->
                                  <a href="diary_zj.asp" target="_blank"><IMG height=18 alt=查看更多 
            src="image/200607index_53.gif" width=60 
        border=0></a></TD>
                            </TR>
                          </TBODY>
                      </TABLE></td>
                    </tr>
                  </table></td>
                </tr>
                <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_yuehui where 1=1"
if prov<>0 then
   sql=sql+" and prov="&prov&""
   if city<>0 then
    sql=sql+" and city="&city&""
   end if
end if
if mudi<>"" then
  sql=sql+" and faim='"&mudi&"'"
end if
sql=sql+" order by id desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无同城约会信息！<br><br></p>"
else
               rs.pagesize=5
			   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
%>
                <%	do while not rs.eof and rowcount>0%>
                <tr>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
                <%
rs.movenext
rowcount=rowcount-1
loop
end if
%>
            </table></td>
          </tr>
        </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td valign="top" ></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
<map name="Map356">
<area shape="rect" coords="582,13,664,38" href="diary_zj.asp" target="_blank">
<area shape="rect" coords="666,11,745,34" href="xqnews.asp?c_id=7" target="_blank">
<area shape="rect" coords="499,13,578,39" href="diary_new.asp" target="_blank">
<area shape="rect" coords="412,13,497,38" href="diary_hot.asp" target="_blank">
</map>
