<!--#include file="conn.asp"-->
<!--#include file="sub.asp"-->
<%
ClassName=trim(request.QueryString("ClassName"))
ClassID=cint(request.QueryString("ID"))
const MaxPerPage=10
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
FileName="ShowClass.asp?ClassName="&ClassName&"&ID="&ClassID
%>
<HTML><HEAD><TITLE><%=RS5(1)%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
      <META 
      content=<%=keywords1%> 
      name=keywords>
      <META 
      content=<%=keywords1%> 
      name=description>
<STYLE type=text/css>BODY {
	BACKGROUND-COLOR: #333333
}
</STYLE>
<LINK href="images/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.style2 {
	FONT-WEIGHT: bold; COLOR: #000000
}
.style3 {
	COLOR: #000000
}
</STYLE>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=110 alt="摄影 人体摄影 摄影工作室 人像摄影" 
      src="<%=RS5(3)%>" width=750 
  border=0></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center 
background=images/004.gif border=0>
  <TBODY>
  <TR>
    <TD bgColor=#cccccc>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=images/004.gif border=0>
        <TBODY>
        <TR>
          <TD></TD>
          <TD vAlign=bottom align=right height=22><%
	set rs=conn.execute("select ID,ClassName,classtype,url from ClassName order by RootID")
	do while not rs.eof
	Select case rs(2)
	case "1"
	  url1="photo.asp"
	case "2"
	  url1="wen.asp"
	case "3"
	  url1="contents.asp"
	
	case "4"
	  url1=rs(3)
	case "5"
	  url1="photo.asp"
	End Select
		str=str&"■ <a href="&RS5(2)&url1&"?ClassName="&rs(1)&"&ID="&rs(0)&">"
		if CurrentID=rs(0) then
			str=str&"<font color=""#000000"">"&rs(1)&"</font></a> "
		else
			str=str&"<font color=""#000000"">"&rs(1)&"</font></a> "
		end if
		rs.movenext
	loop
	rs.close:Set RS=nothing
	response.Write(str)
%>            &nbsp;&nbsp;</TD>
        </TR>
        <TR>
          <TD bgColor=#333333 colSpan=2 height=2><IMG height=2 src="" 
          width=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top bgColor=#ffffff height=21>      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
        <TBODY>
        <TR>
          <td width="728"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
	  <tr>
	    <td colspan="2" height="12">&nbsp;</td>
	  </tr>
      <tr>
        <td colspan="2" valign="top"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
 <%
sql="select * from title where ClassID="&ClassID&" order by updatetime desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<tr><td align='center'> 还 没 有 任 何 组 图</td></tr>"
   else
	  totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut \ MaxPerPage
	   else
	      currentpage= totalPut \ MaxPerPage + 1
	   end if

      end if
       if currentPage=1 then
           showpage totalput,MaxPerPage,FileName
            showContent
            showpage totalput,MaxPerPage,FileName
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,FileName
            showContent
             showpage totalput,MaxPerPage,FileName
        else
	        currentPage=1
           showpage totalput,MaxPerPage,FileName
           showContent
           showpage totalput,MaxPerPage,FileName
	      end if
	   end if
   rs.close
   end if
	        
   set rs=nothing  
%>
	  <%sub ShowContent()%>
	  <tr>
	    <td colspan="2" height="12">&nbsp;</td>
	  </tr>
      <tr>
        <td colspan="2" valign="top"><table width="98%"  border="0" cellspacing="0" cellpadding="0" align="center">
		<%dim i:i=1
		do while not rs.eof%>
          <tr>
		    <%for j=1 to 2%>
			<%set rsShow=conn.execute("select top 1 * from imgbook where titleID="&rs("titleID")&" order by ID desc")%>
                            <td width="23%" height="130" valign="top"><a href="list.asp?titleID=<%=rs("titleID")%>&ClassID=<%=ClassID%>&KeyWords=<%=rs("titleName")%>" title="点击查看详细情况">                            
<script src="showpic.asp?FileName=admin/<%=rsShow("photo")%>"></script></a><%rsShow.Close
	set rsShow=nothing%>
                              <table width="75%" border="0" cellspacing="0" cellpadding="0" align="center">
                                <tr>
                                  <td height="26"><b>姓名:<%=rs("tblName")%></b></td>
                                </tr>
                              </table>
                            </td>
                            <td class="f1" style="line-height: 15px; letter-spacing: 1px;" width="77%"> 
                              <table width="33%" border="0" cellspacing="0" cellpadding="4">
                                <tr> 
                                  <td>性别:<%=rs("tblxinbei")%> </td>
                                </tr>
                                <tr> 
                                  <td>星座:<%=rs("tblxz")%> </td>
                                </tr>
                                <tr> 
                                  <td>出生地:<%=rs("tblcsd")%> </td>
                                </tr>
                                <tr> 
                                  <td>学历:<%=rs("tblxl")%></td>
                                </tr>
                                <tr> 
                                  <td>图库共<span class="redbold"><%=rs("titleCount")%></span>张相关</td>
                                </tr>
                              </table>
                            </td>
			<%rs.movenext
			i=i+1
			if rs.eof then exit for
			next%>
          </tr>
		  <tr>
			<td height="12" colspan="4" style="border-top: 1 solid #999999;">&nbsp;</td>
		  </tr>
		<%if i>MaxPerPage then exit do
		loop%>
        </table></td>
      </tr>
	  <%end sub%>
    </table></td>
    <td>&nbsp;</td>
  </tr>
</table>
<%
function showpage(totalnumber,maxperpage,filename)
	dim n
	if totalnumber mod maxperpage=0 then
		n= totalnumber \ maxperpage
	else
		n= totalnumber \ maxperpage+1
	end if
	response.write "<tr>"
    response.write "<td width='40%' height='25'><span class='f1'><strong>位置：</strong></span><a href='index.asp'><span class='whitebold'>首页</span></a><span class='whitebold'>-</span><a href='photo.asp?ClassName="&ClassName&"&ID="&ClassID&"'><span class='redbold'>"&ClassName&"</span></a></td>"
	response.write "<form method=Post action="&filename&"><td width='60%' align='right' class='f1'>"
	if CurrentPage>=2 then
		response.write "<a href="&filename&"&page=1>首页</a> "
		response.write "<a href="&filename&"&page="&CurrentPage-1&">上一页</a> "
	end if
	if n-currentpage>=1 then
		response.write "<a href="&filename&"&page="&(CurrentPage+1)&">下一页</a> "
		response.write "<a href="&filename&"&page="&n&">尾页</a>"
	end if
	response.write " 共有 <b>"&totalnumber&"</b> 组，<b>"&n&"</b> 页</font> "
	response.write " 第 <b><font color=red>"&CurrentPage&"</font></b> 页 "
	response.write " 转到 <input type='text' name='page' maxlength=10 value="&currentpage&" style='width: 30px;height: 20px'>"
	response.write " <input type='submit'  value='Go'  name='cndok' style='width: 30px;height: 20px;text-align: center'></td></form></tr>"
end function
%>
      </TD>
    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE><LINK 
href="images/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.style1 {
	COLOR: #666666
}
.unnamed1 {
	FONT-SIZE: 10pt; COLOR: #333333
}
</STYLE>

      <META 
      content=<%=keywords1%> 
      name=keywords>
      <META 
      content=<%=keywords1%> 
      name=description>
<TABLE id=__01 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR background="image/019.gif">
    <TD background="" colSpan=11><EM><IMG height=2 src="" width=2></EM></TD></TR>
  <TR background="image/019.gif">
    <TD noWrap background=images/019.gif colSpan=11 height=66>
      <DIV align=center><%CopyRight%></DIV></TD></TR></TBODY></TABLE></BODY></HTML>
