<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
	font-family: "宋体"; font-size: 9pt;
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.style91 {color: #60A7E5}
-->
</style>
<script type="text/javascript" src="js/tips.js"></script>
</head>
<body>
<%
dim person_name,u_id
u_id=request.QueryString("user_id")
if not isnumeric(u_id) or u_id="" then
  response.Write "操作错误！"
  response.end
end if
set rst=server.CreateObject("adodb.recordset")
sql1="select username from user_info where userid="& u_id &""
rst.open sql1,conn,1
if not(rst.eof or rst.bof) then
 person_name=rst("username")
end if
rst.close
set rst=nothing
%>
<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="200" height="328" valign="top"><!--#include file="sousuo2.asp"-->
    </td>
    <td width="11" valign="top">&nbsp;</td>
    <td width="739" valign="top"><table width="730" border="0" align="left" cellpadding="0" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid  ">
        <tr>
          <td height="28" colspan="3" background="images/lg_1.gif">&nbsp;&nbsp;<span class="STYLE8"><%=person_name%> </span><span class="pgd">的个人影集</span></td>
        </tr>
        <tr>
          <td width="23" height="202">&nbsp;</td>
          <td valign="top"><table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr>
              <td align="center" height="10"></td>
            </tr>
            <tr>
              <td align="center"></td>
            </tr>
            <tr>
              <td height="408" align="center"><table width="701" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="701" align="center"><table width="98%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FEE2F5" class="STYLE4" bordercolordark="#FFFFFF">
                        <tr>
                          <td height="580" valign="top"><br>
                              <%
dim rcount,pmcount,pageno,mpage
set rs=server.CreateObject("adodb.recordset")
sql="select id,photo,title from photo_info where userid="& u_id &""
rs.open sql,conn,1,1

rcount=rs.recordcount
pmcount=1
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=clng(request("pageno"))
	
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if

if rs.bof and rs.eof then
	response.write "<table><tr><td width='525' class='style30'><div align='center'>"& person_name &"还没有上传相片</div></td></tr></table>"
else
	rs.absolutepage=pageno	'将指针移至指定页的第一条记录
	loopno=pmcount	
	do while not rs.eof and loopno>0
%>
                              <table width="160" height="124" border="0" align="center" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td height="97" bgcolor="#ECECEC" style="border-left:#FFB5E1 1px solid;border-right:#FFB5E1 1px solid;border-top:#FFB5E1 1px solid;border-bottom:#FFB5E1 1px solid"><div align="center"><a href="uppic/photo/<%=rs("photo")%>" target="_blank"><img src="Uppic/photo/<%=rs("photo")%>" hspace="5" vspace="5" border="0" onload="javascript:if(this.width>440)this.width=440;"></a></div></td>
                                </tr>
                                <tr>
                                  <td height="37" valign="middle"><div align="center"><span class="STYLE88"><%=rs("title")%></span></div></td>
                                </tr>
                              </table>
                              <%
	rs.movenext
	loopno=loopno-1
	loop			
				end if%>
                          </td>
                        </tr>
                        <tr>
                          <form name="pageform" method=get action="photo_list.asp">
                            <td height="30" bgcolor="E8E6E7"><div align="center">
                                  <%if mpage>1 then%>
                                  <input type=text size=2 name="pageno" value="<%=pageno%>" class="button1">
                                  <input type="hidden" name="user_id" value="<%=u_id%>">
                                  <input type="submit" name="Submit" value="GO">
&nbsp;
                        <%if cint(pageno)>1 then%>
                        [<a href='photo_list.asp?pageno=<%=pageno-1%>&user_id=<%=u_id%>' class="a5">上一页</a>]
                        <%end if
			if cint(pageno)<cint(mpage) then
			%>
                        [<a href='photo_list.asp?pageno=<%=pageno+1%>&user_id=<%=u_id%>' class="a5">下一页</a>]
                        <%end if%>
                        共<%=cstr(pageno)&"/"&cstr(mpage)&"页 "&cstr(rcount)%>张图片
                        <%end if%>
                            </div></td>
                          </form>
                        </tr>
                    </table></td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td align="center">&nbsp;</td>
            </tr>
          </table>
            <br>
          </td>
          <td width="36">&nbsp;</td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
