<!--#include file="../Include/Conno.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
 filepath="../Member/Photo/"  '个人照片的图片位置 
 m_ID = Session("CurUserID")
 m_username= Session("CurUserName")
 m_Sql = "SELECT F_LoginCount,F_Integral,F_MyImage,F_Grade,F_LastLoginTime,F_RegTime,F_Friend_sex,F_Friend_age,F_Friend_height,F_Friend_weight,F_Friend_edu,F_Friend_marry,F_Friend_area 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
%>
<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>
<!--
function formsub(i){
if (i==1){
if (confirm('确定删除个人照片吗？')==1){
   Del.action="photomanagedel.asp";
   Del.submit();
}
}
}
//-->
</script>
<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" -->
<!--#include file="Top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="183" align="center" valign="top"><!--#include file="left.asp" --></td>
    <td width="597" align="center" valign="top"><table width="96%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100%" height="40" align="right" valign="bottom"><img src="../Images/member/jl_03.gif" width="180" height="65"></td>
        </tr>
        <tr> 
          <td height="1" bgcolor="#c7c7c7"></td>
        </tr>
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width=96% border=0>
        <TBODY>
          <TR> 
            <TD width=100% height=35><table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="77%">&nbsp;</td>
                  <td width="23%" align="center">&lt;&lt; <a href="photomanage.asp">上传个人照片</a></td>
                </tr>
              </table></TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE cellSpacing=1 cellPadding=0 width=96% bgColor=#b4b4b4 border=0>
        <TBODY>
        <TR> 
          <TD vAlign=top align=middle width=100% bgColor=#ffffff> 
            <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
                <TBODY>
                <form name="Del" method="post">  <TR align=middle> 
                    <TD width="100%" height=150 align="center"> 
                      <%
					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_id,f_photo,f_title from T_member_photo where f_username='"&m_username&"' and f_ischeck=1 order by f_index desc"
					rs_c.open sql_c,conn,1,1
					'flag="尚未处理"
                    PerPage=9
				
                   '假如没有数据时
                 ' 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					
				%>
                      您总共有 <FONT 
      color=#ff0000><B><%=Cstr(rs_c.RecordCount)%></B></FONT> 张个人照片, 共 <FONT color=#ff0000><B><%=Cstr(rs_c.pagecount)%></B></FONT> 
      页，每页 <FONT color=#ff0000><B><%=PerPage%></B></FONT> 张 
                      <table width="100%" border="0" cellpadding="0" cellspacing="0">
                         <tr>
     <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
	<td>
	<table width="100%" border="0">
                      <tr> 
                          <td align="center"><a href="../member/photo/<%=Server.URLEncode(rs_c("f_photo"))%>" target="_blank"><img src="../Member/Photo/<%=Server.URLEncode(rs_c("f_photo"))%>" width="140" height="140" border="0"></a></td>
                        </tr>
                        <tr> 
                                <td align="center">
                                    <input name='ArticleID' type='checkbox' id="ArticleID" value="<%=rs_c("f_id")%>"><%=rs_c("f_title")%>
                                  </td>
                        </tr>
						
                      </table>
	</td>
<%
i=i+1
if i mod 3=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">
<input type="submit" name="Submit" value="点击删除个人照片"  onclick="formsub(1)">
                                  </td>
                                </tr>
                              </table> 
                      <% If currentpage > 1 Then  %>
                      &nbsp;<a href='photomanagelist.asp?page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a> 
                      &nbsp;<a href='photomanagelist.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='photomanagelist.asp?page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a> 
                      <%
			  next
			 %>
                      <% If currentpage < Rs_c.PageCount Then %>
                      &nbsp;<a href='photomanagelist.asp?page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a> 
                      &nbsp;<a href='photomanagelist.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> </form>
                <FORM name=upphoto action=photoManage.asp method=post 
              enctype="multipart/form-data">
                </FORM>
              </TABLE></TD>
        </TR></TBODY>
      </TABLE> </td>
  </tr>
</table>
</BODY></HTML>
