<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<% '=========================================================
' File: showfolders.asp
' Version:3.0
' Date: 2005-9-24
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim catid
catid=checkStr(Request("catid"))
response.buffer=true
stats="相册分类"
	if catid="" or not isnumeric(catid) then
		errmsg=errmsg+"<br>"+"<li>参数错误。"
		founderr=true
end if
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("相册分类","")
call tumppages()'翻页处理 
strFileName="showfolders.asp?catid="&catid&""
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE 
style="BORDER-RIGHT: #cecece 1px solid; BORDER-TOP: #cecece 1px solid; BORDER-LEFT: #cecece 1px solid; BORDER-BOTTOM: #cecece 1px solid" 
cellSpacing=0 cellPadding=0 width=750 align=center>
  <TBODY>
    <TR> 
      <TD style="PADDING-LEFT: 8px" background=images/albphoto/1_3bg.gif 
      height=26><A style="COLOR: #2c51d7; TEXT-DECORATION: none" 
      href="topcategory.asp">分类相册</A></TD>
      <TD style="PADDING-RIGHT: 8px" align=right background=images/albphoto/1_3bg.gif 
    height=26>&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<table width="750" align=center cellpadding=3 cellspacing=1 style="BORDER-RIGHT: #cecece 1px solid; BORDER-TOP: #cecece 0px solid; BORDER-LEFT: #cecece 1px solid; BORDER-BOTTOM: #cecece 1px solid">
  <tr align="center"> 
    <td width="100%" >
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<%dim iu
	  set rs=server.createobject("adodb.recordset")
		  sql="select Phototype,id,Isphoto,Allpic,IsShell from Ms_Uphtype where SubCate="&catid&" order by Orders ,id"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
iu=0
call rspages()%>
        <tr>
		  <%do while not rs.eof and page_count<Cint(MaxPerPage)
		  iu=iu+1
		  %>
          <td>
		  <TABLE cellSpacing=0 cellPadding=0 width=140 border=0 style="BORDER-RIGHT: #c9c9c9 1px solid">
              <TBODY>
                <TR> 
                  <TD width=13 height=4><IMG height=4 src="images/albphoto/2_1.gif" 
                  width=13></TD>
                  <TD background=images/albphoto/2_1bg.gif colSpan=2 
height=4></TD>
                </TR>
                <TR> 
                  <TD width=13 rowspan="3" vAlign=top background=images/albphoto/2_2a.gif></TD>
                  <TD height=115 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px"> 
                    <TABLE 
                  cellSpacing=0 cellPadding=1 align=center border=0>
                      <TBODY>
                        <TR> 
                          <TD> <%if rs(2)<>"" then
				  response.Write("<a href=album.asp?action=al_list&id="&rs(1)&"><img src="&rs(2)&" border=0 height=100 width=110></a>")
				  else
				  response.Write("<img src=images/nophoto_up.gif>")
				  end if%> </TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                  <TD width=1 rowspan="3" bgColor=#cccccc><NOBR></NOBR></TD>
                </TR>
                <TR>
                  <TD height=22 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px"><a href="album.asp?action=al_list&id=<%=rs(1)%>"><%=rs(0)%></a></TD>
                </TR>
                <TR>
                  <TD height=20 align=middle style="PADDING-RIGHT: 8px; PADDING-LEFT: 8px"><%if rs(4)=0 then
				  response.Write("[公开]")
				  elseif rs(4)=1 then
				  response.Write("[<font color=blue>私有</font>]")
				  else
				  response.Write("[<font color=red>密码</font>]")
				  end if%>&nbsp;<%=rs(3)%> 张</TD>
                </TR>
                <TR> 
                  <TD width=13 height=2><IMG height=1 src="images/albphoto/2_3.gif" 
                  width=13></TD>
                  <TD bgColor=#cccccc colSpan=2 height=2></TD>
                </TR>
              </TBODY>
            </TABLE></td>
			<%if iu>0 and iu mod 4=0 then
  response.Write("</tr><tr>")
  end if
  page_count=page_count+1
  rs.movenext
  loop
  else
  response.write("<td height=""30"" colspan=""5"" align=""center""  class=tablebody1>"&stats&"无相册目录！</td>")
  end if
  rs.close
  %>
        </tr>
      </table> 
      
    </td>
  </tr>
  <tr align="center"> 
    <td width="100%"  class=tablebody1 align="left"><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
</table>
<%
rs.close
end sub
%>   
</body>
</html> 