<!--#include file="conn.asp"-->
<!--#include file="sub.asp"-->
<%
titleID=clng(request.QueryString("titleID"))
ClassID=Clng(request("ClassID"))
titleNum=Clng(request("titleNum"))
UpTime=request("UpTime")
Photoer=trim(request("Photoer"))
KeyWords=trim(request("KeyWords"))
if KeyWords="关键字" then KeyWords=""
if isempty(titleID) then titleID=0
if isempty(ClassID) then ClassID=0
if isempty(titleNum) then titleNum=0
if isempty(UpTime) then
	UpTime=7
else
	UpTime=cint(UpTime)
end if
FileName="list.asp?titleID="&titleID&"&ClassID="&ClassID&"&titleNum="&titleNum&"&UpTime="&UpTime&"&Photoer="&Photoer&"&KeyWords="&KeyWords
%>
<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;&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">
<%
if ClassID=0 then
	ClassName="全部"
else
	set rs=conn.execute("select ClassName from ClassName where ID="&ClassID)
	ClassName=rs(0)
	rs.close
end if
%>
<!--#include file="SearchSql.asp"-->
<%
const MaxPerPage=12
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
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 totalPut mod maxperpage=0 then
			n= totalPut \ maxperpage
		else
			n= totalPut \ maxperpage+1
		end if
		if currentPage>1 then
			if (currentPage-1)*MaxPerPage<totalPut then
				rs.move  (currentPage-1)*MaxPerPage
				dim bookmark
				bookmark=rs.bookmark
			else
				currentPage=1
			end if
		end if
		showpage totalput,MaxPerPage,FileName
		if currentPage=1 then
			showtitledesc
		end if
		showContent
		showpage totalput,MaxPerPage,FileName
		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="96%"  border="0" cellspacing="2" cellpadding="0" align="center">
		<%dim i:i=1
		do while not rs.eof%>
          <tr>
		    <%for j=1 to 3
			if rs.eof then exit for%>
            <td width="33%" height="170">
			<table border="0" align="center" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td width="100%" height="125" align="center" valign="middle"><a href="see.asp?ID=<%=rs("ID")%>&titleID=<%=rs(0)%>" title="点击查看大图"><script src="showpic.asp?jpgsize=s&FileName=admin/<%=rs("photo")%>"></script></a></td>
				</tr>
				<tr>
					<td align="center" style="line-height: 20px;" valign="top">图片编号：<%=rs("Num")%><br>图说：<%=left(rs("content"),50)%>……</td>
				</tr>
			</table>
			</td>
			<%rs.movenext
			i=i+1
			next%>
          </tr>
		  <tr>
			<td height="12">&nbsp;</td>
		  </tr>
		<%if i>MaxPerPage then exit do
		loop%>
        </table></td>
      </tr>
	  <%end sub%>
    </table></td>
    <td width="22">&nbsp;</td>
  </tr>
</table>
<%

sub showtitledesc()
	response.Write("<tr><td colspan='2' style='border-top: 1 solid #999999' width='100%'><br>")
	response.Write("<table class='f1' align='right' cellpadding='0' cellspacing='0' width='98%' heihgt='96%' style='line-height: 20px;letter-spacing: 1px;text-indent: 6px;'>")
	response.Write("<tr><td width='100%' height='22'><b><a href='list.asp?KeyWords="&KeyWords&"'><span class='redbold'>"&KeyWords&"</span></a> 说明介绍：</b></td></tr>")
	response.Write("<tr><td width='100%'>&nbsp;</td></tr>")
	set rs1=conn.execute("select top 1 * from title where titleName like '%"&KeyWords&"%' order by updatetime desc")
	if RS1("tblxinbei")<>"" then
	response.Write("<tr><td width='100%' style='border-bottom: 1 solid #999999'>&nbsp;")
	response.Write("姓名:"&rs1("tblname"))
	if rs1("tblxinbei")<>"" and rs1("tblxinbei")<>"无" then response.Write(" | 性别:"&rs1("tblxinbei"))
	if rs1("tblcsd")<>"" then response.Write(" | 出生地:"&rs1("tblcsd"))
	if rs1("tblxz")<>"" then response.Write(" | 星座:"&rs1("tblxz"))
	if rs1("tblsg")<>"" then response.Write(" | 身高:"&rs1("tblsg"))
	if rs1("tbltz")<>"" then response.Write(" | 体重:"&rs1("tbltz"))
	if rs1("tblxx")<>"" then response.Write(" | 血型:"&rs1("tblxx"))&"<br><br><br>"
	if rs1("tblxl")<>"" then response.Write(" &nbsp;&nbsp;学历:"&rs1("tblxl"))
	if rs1("tbltc")<>"" then response.Write(" | 特长:"&rs1("tbltc"))
	if rs1("tblcolor")<>"" then response.Write(" | 最喜欢的颜色:"&rs1("tblcolor"))&"<br>"
	Response.write ("<br><br><br>")
	if rs1("tblzp")<>"" then
	response.Write(" 主要作品<br><br><br>"&rs1("tblzp"))&"<br><br><br>"
	End if
	response.Write("</td></tr>")
	End if
	response.Write("<tr><td width='100%' style='border-bottom: 1 solid #999999'>&nbsp;")
	response.Write(rs1("desc"))
	rs1.Close
	response.Write("</td></tr>")
	response.Write("</table></td></tr>")
end sub

function showpage(totalnumber,maxperpage,filename)
	response.write "<tr>"
    response.write "<td width='45%' height='25'><span class='f1'><strong>位置：</strong></span><a href='index.asp'><span class='whitebold'>首页</span></a><span class='whitebold'>-</span><span class='redbold'>"
	if ClassID>0 then response.Write("<a href='photo.asp?ClassName="&ClassName&"&ID="&ClassID&"'><span  class='redbold'>")
	response.Write(ClassName)
	if ClassID>0 then response.Write("</span></a>")
	response.Write "</span><span class='whitebold'>-</span><a href='list.asp?KeyWords="&KeyWords&"'><span class='redbold'>"&KeyWords&"</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="&CurrentPage-1&" class='f1'>上一页</a> "
	end if
	if n-currentpage>=1 then
		response.write "<a href="&filename&"&page="&(CurrentPage+1)&" class='f1'>下一页</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>
