<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<SCRIPT language=javascript>
function unselectall()
{
    if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll"&&e.disabled==false)
       e.checked = form.chkAll.checked;
    }
  }
function ConfirmDel()
{
   if(confirm("确定要删除吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}

</SCRIPT>
<body style="overflow-y:hidden"> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/Mpage_main.css" rel="stylesheet" type="text/css">
<link href="css/Mpage_photo.css" rel="stylesheet" type="text/css">

</head>

<body>
	<div id="video_title"><img src="page_style/icon/bullet_03.gif"> 所有相片列表</DIV>


<%userid=request("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&userid&" order by userid desc"
rs.open sql,Conn_User,1,1
username=rs("username")

rs.close
set rs=nothing
%>
<%if request("classid")<"0" then%>
<%
myPagesize=9
set rs=server.createobject("adodb.recordset")
rs.open "select * from photo where editor='"&username&"' and Deleted=false order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>
<%else%>
<%
myPagesize=9
classidd=request("classid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from photo where editor='"&username&"' and classid="&classidd&" and Deleted=false order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>
<%end if%>
<%if rs.recordcount=0 then %>


<br><br><br>

        <table  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="user/1.jpg" width="16" height="16"></td>
            <td><img src="user/2.jpg" width="85" height="16"></td>
            <td>&nbsp;</td>
            <td align="right"><img src="user/3.jpg" width="85" height="16"></td>
            <td height="16"><img src="user/4.jpg" width="16" height="16"></td>
          </tr>
          <tr>
            <td width="16" valign="top"><img src="user/12.jpg" width="16" height="72"></td>
            <td colspan="3" rowspan="3" align="center"><img src=user/nophoto.gif alt="暂时没有相片" name="aa" width="350" height="200" border=0 id=aa /></td>
            <td width="16" valign="top"><img src="user/5.jpg" width="16" height="72"></td>
          </tr>
          <tr>
            <td></td>
            <td></td>
          </tr>
          <tr>
            <td valign="bottom"><img src="user/11.jpg" width="16" height="77"></td>
            <td valign="bottom"><img src="user/6.jpg" width="16" height="77"></td>
          </tr>
          <tr>
            <td><img src="user/10.jpg" width="16" height="16"></td>
            <td><img src="user/9.jpg" width="85" height="16"></td>
            <td>&nbsp;</td>
            <td align="right"><img src="user/8.jpg" width="85" height="16"></td>
            <td height="16"><img src="user/7.jpg" width="16" height="16"></td>
          </tr>
        </table>

<br><br><br>

<P align=center>&nbsp;
<A class="sbody" href="javascript:window.history.back() "target=_self><strong><span id="font_2">返回上一页</A></span></strong></P>




  <%else%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<%line=myPagesize
dim i
i=1
do while not rs.eof and line>0
%>
<DIV id=neirong>
<DIV id=video_sig>  <%if rs("photourl")<>"" then%><a href=photo_show.asp?photoid=<%=rs("photoID")%>> <IMG src="<%=rs("PhotoUrl_Thumb")%>"></A> 
<LI><%=left (rs("PhotoName"),6)%>
</LI>
</DIV></DIV> 
               <%else
  end if%>
<%
	  userid=request("userid")
	
	  if CheckUserLogined()=true then
	  UserNamed=Request.Cookies("asp163")("UserName")
	 
	 set userq=server.createobject("adodb.recordset")
sql="select from [user] where UserName='"&UserNamed&"' order by userid desc"
userq.open sql,Conn_User,1,1

	  
	  userw=userq("userid")
	 
	  If cint(userw)=cint(userid) then
	  
	  %>
                  
                  <%else
				   %>
	  <%
	  end if%>
                <%
	  else
	 
	  end if
	  %>                
           <%if i mod 4=0 then%>
<%else%>
<%end if%>
<%rs.movenext
   line=line-1
   i=i+1
loop
  %>
<DIV id=pagenum>
<DIV id=allnum> <%rsc.close
set rsc=nothing
rsuser.close
set rsuser=nothing%>
  <center><%call listpages(mycondition)%></center> </SPAN> </DIV>
                 </DIV></DIV>


  <%sub listpages(mycondition)
	response.write "<table height=22  border=0 cellpadding=0 cellspacing=0><Tr><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	if pages<1 then
		exit sub
	end if
	
	
	if p>0 then
		response.write	"<a href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0></a>&nbsp;&nbsp;&nbsp;"
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>&nbsp;&nbsp;&nbsp;"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td><img src=user/lined.gif border=0><img src=user/k.gif border=0 width=5>"
	for i=1 to 10
		if (p*10+i)>pages then exit for
		if currentpage=i then
		
			response.write "<b><a style='color:ff6600'"
		else
			response.write "<a"
		end if 
		response.write " href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b>&nbsp;&nbsp;<img src=user/lined.gif border=0><img src=user/k.gif width=5 border=0>"	
     next
	 response.write "</td><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	 '--------------------察看下十页的连接
    if (p*10+10)<pages then
		response.write "<img src=user/k.gif border=0><a href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>&nbsp;&nbsp;" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>&nbsp;&nbsp;"
	end if
	'-----------------------------------------------上下页导航
	response.write "&nbsp;</td>"
	

	  response.write "</tr></table>"
end sub

sub myPages(myRS,mysize)  '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
	if myRS.eof and myRS.bof then str="没有纪录"
	if str="" then
		if mysize="" or NOT IsNumeric(mysize) then
			mysize=15
		end if
		myRS.PageSize=mysize
		pages=myRS.pagecount
		records=myRS.recordcount
		On Error Resume Next '取得数字
		currentPage=request("currentPage")
		if currentPage="" then
			currentPage=1
		end if
		currentPage=CInt(currentPage)
		if Err.Number <> 0 Then
			currentPage=1
			Err.Clear
		end if
		if currentPage<1 then
			currentPage=1
		elseIf currentPage>10 then
			currentPage=10
		end if
		'----------------处理p
		p=request("p")
		if p="" then
			p=0
		end if
		p=CLng(p)
		if Err.Number <> 0 Then
			p=0
			Err.Clear
		end if
		if p<0 then
			p=0
		end if
		'--判断是否出了页数范围
		nowPage=p*10+currentPage
		if nowPage>pages then
			p=(pages-1)\10
			currentPage=((pages-1) mod 10)+1
		end if
		myRS.absolutepage=p*10+currentPage
	else
	   currentPage=1
	   records=0
	   pages=1
	end if
end sub

dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>
<%end if%>
</body>

</html>
