<!--#include file="user.asp"-->
<!--#include file="../../inc/ListPager.asp"-->
<%
' 用户ID:Uid
' 用户名：ucuser
' 用户性别：Gender
' 注册时间：RDate
' 最后一次登陆时间：Finallylogin
' 最后一次登陆地址：userlocal
' 空间头像：homehead2
' 空间名称：Namespace
' 空间签名：sNamespace
' 空间地址：Myurl
' 空间权限：Competence
' 空间开通时间：homeRDate
'状态信息： myspace  Dinner rent HI
'登陆返回地址：geturl
%>
<%

'千万条数据分页调用。支持 900万条数据系统
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_pic"
	.PrimaryKey = "ID" 
	.Fields = "ID,H_pic,H_name" '显示字段
	.PageSize = 15
	.AddOrder "ID"," desc"
'	.AddWhere "SMT_key =1"
	'.AddWhere "sHead1<>'"&out_shead1&"'"
	.AddWhere "uid="&uid&""
	if request.QueryString("class")<>"" then
	.AddWhere "H_class="&request.QueryString("class")&""
	end if
	.Cache = 10	
	.Init()
end with
%>
<!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><%=U_TITLE%></title>
<meta name="keywords" content="<%=U_TITLE%>" />
<meta name="description" content="<%=Ubloger%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="top.asp"-->
<table width="1000" height="600" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bgcenter.jpg">
  <tr>
    <td width="40">&nbsp;</td>
    <td width="230" valign="top"><table width="222" height="52" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center" background="images/titletop.jpg">相册</td>
      </tr>
    </table>
      <table width="222" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" valign="top" background="images/titlemiddle.jpg">
		  <table width="200" border="0" cellpadding="0" cellspacing="0">
		         <%
		set rs=server.createobject("adodb.recordset")
		sql="select top 5 * from H_Class where uid="&Uid&" and PCF=2 order by PCX desc "
	    rs.open sql,conn,1,1
		if not rs.eof then
		do while not rs.eof
		%>
            <tr>
              <td><a href="PIC.asp?UID=<%=request("uid")%>&class=<%=rs("id")%>"><%=rs("PCN")%></a></td>
              </tr>
			      <%
		rs.movenext 	
				loop
				rs.close
				%>
				<tr>
              <td><a href="Pic.asp?UID=<%=request("uid")%>&class=0">其他相册</a></td>
              </tr>
				
				<%else%>
				
				 <tr>
              <td><a href="PIC.asp?uid=<%=request("uid")%>">我的相册</a></td>
              </tr>
			  <%end if%>
				
          </table>		  </td>
        </tr>
      </table>
      <table width="222" height="21" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td background="images/titlebottom.jpg">&nbsp;</td>
        </tr>
      </table>
      <table width="200" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
    </td>
    <td width="690" height="138" valign="top"><table width="680" height="50" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="left" background="images/logtop.jpg" style="padding-left:66px; padding-top:10px;">用户相册</td>
      </tr>
    </table>
      <table width="680" height="138" border="0" cellpadding="0" cellspacing="0" background="images/logmiddle.jpg">
        <tr>
          <td valign="top">
		 <table border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
          <tr>
            <%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					'ucuser=conn.execute("select ucuser from H_user where id="&arrlist(5,i)&"")("ucuser")
					s=s+1
		%>
            <td width="198" height="146" align="center" style="padding-right:10px; padding-left:10px;"><table width="198" height="120" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="131" align="center" ><a href="pic_read.asp?id=<%=arrlist(0,i)%>&UID=<%=UID%>" target="_blank"><img src="../../UpLoadUC/<%=arrlist(1,i)%>" width="90" height="90" /></a></td>
                </tr>
              <tr>
                <td align="center" width="131"><%=arrlist(2,i)%></td>
              </tr>
            </table></td>
            <%
			if s mod 3 = 0 then response.Write "</tr><tr>"
				next
				end if
				%>
          </tr>
      </table>
	  
	  
     
		 </td>
        </tr>
      </table>
      <table width="680" height="46" border="0" cellpadding="0" cellspacing="0" background="images/logbottome.jpg">
        <tr>
          <td><%
					with myListPager
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>
        </tr>
    </table></td>
    <td width="40" valign="top">&nbsp;</td>
  </tr>
</table>
<%
Set myListPager = nothing
conn.close()
Set conn = nothing
%>
<!--#include file="end.asp"-->
</body>
</html>
