
<!--#include file="../Include/Conn.jsp" -->
<!--#include file="../Include/const.jsp" -->
<!--#include file="../Include/char.jsp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=site_info(0)%> - 真情告白</title>
<link href="CSS/friend_index.css" rel="stylesheet" type="text/css" />
<STYLE>#contain TABLE {
	BORDER-RIGHT: #c086d3 1px solid; BORDER-TOP: #c086d3 1px solid; BORDER-LEFT: #c086d3 1px solid; COLOR: #666; BORDER-BOTTOM: #c086d3 1px solid
}
#contain TD {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; BACKGROUND: #fef2fd; PADDING-BOTTOM: 5px; MARGIN: 5px auto; PADDING-TOP: 5px; BORDER-BOTTOM: #c086d3 1px dashed
}
#contain TH {
	BACKGROUND: #9160b9; COLOR: #fff; LINE-HEIGHT: 26px
}
</STYLE>
</head>

<body>
<div id="logo">
		<a href="#" title="运城地带-交友"><b>运城地带-交友</b></a>
</div>
<!--Main start-->
<div id="main">
	<!--导航 start-->
	<DIV id=nav><A href="../">首页</A> | <A 
href="QQ_default.jsp">运城地带</A> | <A 
href="QQ_index.jsp">小圈子</A> | <A 
href="../blog/">运城博客</A> | <A 
href="photo_default.jsp">网络相册</A> | <A 
href="QQ_ployall.jsp">精彩活动</A> | <A 
href="friend_index.jsp">交友频道</A> | <A 
href="../bbs/" target=_blank>运城社区</A> </DIV>
	<!--导航 end-->
	<!--内容contain start-->
	<div id="contain">
		<h2><IMG style="LEFT: 0px; POSITION: absolute; TOP: 0px" 
src="img/friend_index_title.gif">运城地带- 小圈子 - 真心告白</h2>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
  <TBODY>
  <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
					sql_c="select * from t_say order by f_regtime desc"
					rs_c.open sql_c,conn,1,1
					'flag="尚未处理"
                    PerPage=15
				
                   '假如没有数据时
                 ' If rs_c.eof and rs_c.bof then
                  ' response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
                 ' response.end
                 ' End if
					'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
                    text="0123456789"
                    Rs_c.PageSize=PerPage
					
                    for i=1 to len(request("page"))
                    checkpage=instr(1,text,mid(request("page"),i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next

                  If checkpage<>0 then
                  If NOT IsEmpty(request("page")) Then
                  CurrentPage=Cint(request("page"))
                  If CurrentPage < 1 Then CurrentPage = 1
                  If CurrentPage > Rs_c.PageCount Then CurrentPage = Rs_c.PageCount
                  Else
                  CurrentPage= 1
                  End If
                 If not Rs_c.eof Then Rs_c.AbsolutePage = CurrentPage end if
                 Else
                 CurrentPage=1
                 End if					
				%>
  <TR>
    <TH width="10%">会员名</TH>
    <TH>内容</TH>
    <TH width="15%">所在地</TH>
    <TH width="20%">告白时间</TH></TR>
	
		  <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
  <TR>
    <TD><A href="club_member.jsp?username=<%=rs_c("f_username")%>" 
                  target=blank><U><%=rs_c("f_username")%></U></A><% if rs_c("f_grade")=1 then%> <IMG title=运城聚宝卡会员 src="img/lycard.gif" align=absMiddle border=0> 
                    <% end if%></TD>
    <TD><%=rs_c("f_content")%></TD>
    <TD><%=rs_c("f_area")%></TD>
    <TD><%=rs_c("f_regtime")%></TD></TR>
  <%
i=i+1
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>
</TBODY></TABLE>
<DIV class=page> <% If currentpage > 1 Then  %>					  
					  &nbsp;<a href='friend_lovelist.jsp?page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a>
					  &nbsp;<a href='friend_lovelist.jsp?page=<%=Cstr(currentpage-1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN></a>
					  &nbsp;<% Else  %>
					  &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN>
					  &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN>
					 <% end if %>
					  <%
			  if rs_c.pagecount>8 then
			  n_star=currentpage
			  n_end=currentpage+7
			  else
			  n_star=1
			  n_end=rs_c.pagecount			  
			  end if
			  %>
              <% FOR n=n_star to n_end %>			
					 <% if n>rs_c.pagecount then  exit for  end if%>
					  &nbsp;<a href='friend_lovelist.jsp?page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a>
					  <%
					  next
					  %>
					  <% If currentpage < Rs_c.PageCount Then %>					 
					  &nbsp;<a href='friend_lovelist.jsp?page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a>
					  &nbsp;<a href='friend_lovelist.jsp?page=<%=Cstr(Rs_c.PageCount)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN></a>
					  <% else %>
					  &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN>
					  &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN>
			  		  <% end if %>  </DIV><!--foot start--><%
rs_c.close

set rs=nothing
%>
<DIV id=foot><A class=list href="../about/?Para=Intro" target=_blank>关于我们</A> ┊ <A class=list href="../about/?Para=Contact" target=_blank>联系方式</A> ┊ <A class=list href="../about/?Para=Job" target=_blank>招贤纳士</A> ┊ <A class=list href="../about/?Para=AdService" target=_blank>广告服务</A> ┊ <A class=list href="../about/?Para=Cooperate" target=_blank>合作伙伴</A> ┊ <A class=list href="../so/Suggestion.jsp" target=_blank> 留言/投诉</A> ┊ <A class=list href="../about/?Para=Job" target=_blank></A><BR><%=Site_info(5)%>  </DIV><!--foot end--></DIV>
	<!--内容contain end-->
	<!--左导航 start-->
	<div id="leftlist">
		<h3>交友频道</h3>
		<DL>
  <DT>靓妹推荐 <%
	  set rs_c=server.createobject("adodb.recordset")
	  sql_c="select top 1 F_id,F_username,F_MyImage from T_Member where F_Sex=0 order by F_LoginCount desc"
	  rs_c.open sql_c,conn
	  %>
  <DD><IMG src="<%=rs_c("F_MyImage")%>"> <A 
  href="club_member.jsp?username=<%=rs_c("f_username")%>" target=_blank><%=rs_c("F_username")%></A> <%
		
		rs_c.close
		set rs_c=nothing
		%>
  <DT>帅哥推荐 <%
	  set rs_c=server.createobject("adodb.recordset")
	  sql_c="select top 1 F_id,F_username,F_MyImage from T_Member where F_Sex=1 order by F_LoginCount desc"
	  rs_c.open sql_c,conn
	  %>
  <DD><IMG src="<%=rs_c("F_MyImage")%>"> <A 
  href="club_member.jsp?username=<%=rs_c("f_username")%>" target=_blank><%=rs_c("F_username")%></A> <%
		rs_c.close
		set rs_c=nothing
		%>
</DD></DL>
	</div>
	<!--左导航 end-->
</div>
<!--Main end-->
</body>
</html>
