<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="../Include/upload_club.inc"-->
<!--#include file="IsLogin.asp" -->
<%
 dim rs,m_Sql
 dim m_ID
 dim m_count

 m_ID = Session("CurUserID")
 m_username= Session("CurUsername")
 m_Sql = "SELECT F_LoginCount,F_Integral,F_MyImage,F_Grade,F_LastLoginTime,F_RegTime FROM T_Member WHERE F_ID=" & m_ID
 set rs=server.createobject("adodb.recordset")
 rs.open m_sql,conn
 'Set rs = conn.Execute(m_Sql)
 if rs.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if
 
   '更新兴趣爱好信息
 Session("m_Integral") = rs("F_Integral")
 m_MyImage = rs("F_MyImage")
 if m_MyImage = "" then m_MyImage = "DefaultMyImage.jpg"
 session("m_MyImage") = m_MyImage
rs.close
set rs=nothing
 'set rs=server.createobject("adodb.recordset")
 'sql="select f_id from T_member_photo where f_username='"&m_username&"' and f_ischeck=1"
 'rs.open sql,conn
 'if rs.eof then
 ' Call Msgbox("对不起，您还没有上传个人照片，所以您还不能查看其它会员照片！！","PhotoManage.asp")
  '  Response.end
 'end if
 'rs.close
 'set rs=nothing
%>
<HTML><HEAD><TITLE>会员俱乐部交友标准</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link href="../css/member.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../Include/function.js"></script>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!--#include file="../include/top.asp" -->
<!--#include file="../Include/member_Top.asp" -->
<!--#include file="club_top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/lz_01.gif" width="780" height="51"></td>
  </tr>
  <tr>
    <td><img src="images/lz_02.gif" width="780" height="75"></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="23" valign="top" background="images/lz_07.gif"><img src="images/lz_03.gif" width="23" height="157"></td>
    <td width="751" bgcolor="#FFFFFF">
	        <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
					'sql_c="select f_id,f_username,f_content,f_regtime from t_club_board where f_club_id="&rs_a("f_id")&"  order by f_regtime desc"
					sql_c="select f_photo,f_username from T_member_photo where f_ischeck=1 order by f_index desc"
					rs_c.open sql_c,conn,1,3
					'flag="尚未处理"
                    PerPage=20
				
                   '假如没有数据时
                 ' 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					
				%>
	<table width="100%"  border="0" cellspacing="3" cellpadding="0">
      <tr>
	  <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
        <td width="20%" align="center"><table width="130" border="0" cellpadding="0" cellspacing="5" background="images/X_bg.gif">
          <tr>
                <td height="120" bgcolor="#FFFFFF"><a href="club_member_photo.asp?username=<%=rs_c("f_username")%>" target="_blank"><img src="Photo/<%=Server.URLEncode(rs_c("f_photo"))%>" width="120" height="120" border="0"></a></td>
          </tr>
        </table>
            <table width="130" border="0">
              <tr>
                <td align="center"><a href="club_member_photo.asp?username=<%=rs_c("f_username")%>" target="_blank"><%=rs_c("f_username")%></a></td>
              </tr>
            </table></td>
		<%
i=i+1
if i mod 5=0 then
response.write "</tr><tr>"
end if
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>         
      </tr>
    </table>
      
      <table width="100%" border="0">
        <tr>
          <td align="center"> 
            <% If currentpage > 1 Then  %>
            &nbsp;<a href='photo.asp?page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a> 
            &nbsp;<a href='photo.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='photo.asp?page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a> 
            <%
			  next
			 %>
            <% If currentpage < Rs_c.PageCount Then %>
            &nbsp;<a href='photo.asp?page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a> 
            &nbsp;<a href='photo.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>
        </tr>
      </table></td>
    <td width="6" valign="top" background="images/lz_06.gif"><img src="images/lz_05.gif" width="6" height="156"></td>
  </tr>
  <tr>
    <td colspan="3" valign="top"><img src="images/lz_09.gif" width="780" height="3"></td>
  </tr>
</table>
<!--#include file="../Include/Bottom.asp" -->
</BODY></HTML>
