<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>真情告白</title>
<link href="../css/member.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css"></style>
</head>

<body onLoad="MM_preloadImages('images/hy_b_1b.gif','images/hy_b_3b.gif')">
<!--#include file="../include/top.asp" -->
<!--#include file="../Include/member_Top.asp" -->
<!--#include file="club_top.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center 
background=images/club_telltop.gif border=0>
  <TBODY>
    <TR> 
      <TD colSpan=3 height=45>&nbsp;</TD>
    </TR>
    <TR> 
      <TD width=154 height=52>&nbsp;</TD>
      <TD style="LINE-HEIGHT: 140%" vAlign=top width=497 
      height=52>　　茫茫人海中，我在找寻着你，冥冥中我在感觉着你，准备好了吗？缘或许就在你的面前……真情告白为您提供一个引人瞩目、展示自我风采的舞台，写上对自我、对人生、对梦想中的他(她)的真情告白，让缘分撒满天空，让知己遍及天下……赶紧行动吧！</TD>
      <TD width=129 height=52>&nbsp;</TD>
    </TR>
    <TR> 
      <TD height=25>&nbsp;</TD>
      <TD align=right height=25> <A href="club_say.asp"><IMG height=25 
      src="images/club_addtellbutton1.gif" width=92 border=0></A> </TD>
      <TD height=25>&nbsp;</TD>
    </TR>
    <TR> 
      <TD colSpan=3 height=28>&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE><TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<%
					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					
				%>
  <TBODY>
    <TR> 
      <TD bgColor=#ffffff height=25>&nbsp;</TD>
      <TD bgColor=#ff9900 height=25></TD>
      <TD vAlign=top align=middle bgColor=#ffffff 
      height=25>总共有&nbsp;<B><%=Cstr(rs_c.RecordCount)%></B>&nbsp;条告白信息，每页&nbsp;<B><%=PerPage%></B>&nbsp;条，共&nbsp;<B><%=Cstr(rs_c.pagecount)%></B>&nbsp;页，当前是第&nbsp;<B><%=CurrentPage%></B>&nbsp;页</TD>
      <TD bgColor=#ff9900 height=25></TD>
      <TD bgColor=#ffffff height=25>&nbsp;</TD>
    </TR>
    <TR> 
      <TD width=32 bgColor=#ffffff height=100>&nbsp;</TD>
      <TD width=5 bgColor=#ff9900 height=100></TD>
      <TD vAlign=top align=middle width=714 bgColor=#ffffff height=100>
	  <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
	   <TABLE style="TABLE-LAYOUT: fixed" cellSpacing=1 cellPadding=0 width=650 
      bgColor=#608000 border=0>
          <TBODY>
            <TR align=middle> 
              <TD width=60 bgColor=#e4fd82 height=25>会员名</TD>
              <TD width=130 bgColor=#f4fecf><A 
                  href="club_member.asp?username=<%=rs_c("f_username")%>" 
                  target=blank><U><%=rs_c("f_username")%></U></A></TD>
              <TD width=60 bgColor=#e4fd82>性别</TD>
              <TD width=70 bgColor=#f4fecf><%=rs_c("f_sex")%></TD>
              <TD width=60 bgColor=#e4fd82>年龄</TD>
              <TD width=71 bgColor=#f4fecf><%=rs_c("f_age")%>岁</TD>
              <TD width=60 bgColor=#e4fd82>告白时间</TD>
              <TD width=130 bgColor=#f4fecf><%=rs_c("f_regtime")%></TD>
            </TR>
            <TR align=middle> 
              <TD bgColor=#e4fd82 height=25>现所在地</TD>
              <TD height=25 colSpan=7 align="left" bgColor=#f4fecf>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs_c("f_area")%></TD>
            </TR>
            <TR vAlign=top bgColor=#ffffff> 
              <TD 
          style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; WORD-BREAK: break-all; LINE-HEIGHT: 140%; PADDING-TOP: 5px" 
          colSpan=8><%=rs_c("f_content")%></TD>
            </TR>
          </TBODY>
        </TABLE>
		<br>
          <%
i=i+1
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>
        </p></TD>
      <TD width=6 bgColor=#ff9900 height=100></TD>
      <TD width=23 bgColor=#ffffff height=100>&nbsp;</TD>
    </TR>
    <TR> 
      <TD bgColor=#ffffff height=25>&nbsp;</TD>
      <TD bgColor=#ff9900 height=25></TD>
      <TD vAlign=bottom align=middle bgColor=#ffffff height=25>  <% If currentpage > 1 Then  %>					  
					  &nbsp;<a href='club_saylist.asp?page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a>
					  &nbsp;<a href='club_saylist.asp?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='club_saylist.asp?page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a>
					  <%
					  next
					  %>
					  <% If currentpage < Rs_c.PageCount Then %>					 
					  &nbsp;<a href='club_saylist.asp?page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a>
					  &nbsp;<a href='club_saylist.asp?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 %> 
      </TD>
      <TD bgColor=#ff9900 height=25></TD>
      <TD bgColor=#ffffff height=25>&nbsp;</TD>
    </TR>
    <TR> 
      <TD bgColor=#ffffff colSpan=5 height=29><IMG height=29 
      src="images/club_tellbottem.gif" width=780></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="../Include/Bottom.asp" -->
<%
rs_c.close

set rs=nothing
%>
</body>
</html>
