<!--#include file="conn.asp"-->
<!--#include file="sub.asp"-->
<!--#include file="admin/ubbcode.asp"-->
<!--#include file="char.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="content.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"><Center><table width="100%" height="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
	              <td height="22" colspan="2" bgcolor="#F0F0F0">
                    <table width="102%" border="0" cellspacing="0" cellpadding="0">
                      <tr bgcolor="#FFFFFF"> 
                        <td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td width="100%" height="30" background="images/menu_bg.gif" class="daohang"> 
                          <img src="images/type01.gif" width="12" height="12" align="absmiddle"> 
                          <%
    response.write "<span class='f1'><strong>位置：</strong></span><a href='index.asp'><span class='whitebold'>首页</span></a><span class='whitebold'>-</span><a href='wen.asp?ClassName="&ClassName&"&ID="&ClassID&"'><span class='redbold'>"&ClassName&"</span></a>"%>
                        </td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
                      </tr>
                    </table>
                  </td>
	  </tr>
      <%Set TempRS=Conn.Execute("Select top 1 * from news where classid="&Trim(Request("id"))&" order by id DESC")%>
      <tr>
        <td colspan="2" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><table width="739" height="54" border="0" cellpadding="0" cellspacing="0">
                            <tr bgcolor="#EEEEEE"> 
                              <td height="20" align="center" width="40">ID</td>
                              <td height="20" width="573"> 文 章 标 题</td>
                              <td height="20" width="66"> 
                                <div align="center">入录时间</div></td>
                              <td width="60">查看次数</td>
              </tr>
              <%
		Set Rs=Server.Createobject("ADODB.Recordset")
		sql="select * from News where classid="&Trim(Request("id"))&" order by ID desc"
rs.open sql,conn,3,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
        pmcount=RS5(16)
end if
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=Request("pageno")
if rcount mod pmcount=0 then
     		n= rcount \ pmcount
else
     		n= rcount \ pmcount+1
end if
if cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if


if rs.bof and rs.eof then
	response.write "<tr><td colspan='5'><div align='center'>没有内容</div></td></tr>"
else

rs.absolutepage=pageno	'将指针移至指定页的第一条记录
loopno=pmcount

do while not rs.eof and loopno>0
		  %>
              <tr>
                <td height="20" width="40">
                  <div align="center"><%=rs(0)%></div>
                </td>
                <td width="573" height="20"><a href="news.asp?classid=<%=Request("id")%>&classname=<%=Request("classname")%>&ID=<%=rs(0)%>&title=<%=rs(1)%>" target="_blank"><%=rs(1)%></a></td>
                <td width="66"><div align="center"><i>
                    <%sj1=RS("time")%>
                    <%sj_5=right("0"+cstr(year(sj1)),2)+"/"+right("0"+cstr(month(sj1)),2)+"/"+right("0"+cstr(day(sj1)),2)%>
                    <%=sj_5%></i></div></td>
                <td width="60"><div align="center"><i><%=rs("hits")%></i></div></td>
              </tr>
              <%
						rs.movenext
						loopno=loopno-1
						loop
						end if
						rs.close
						set rs=Nothing
						%>
              <tr>
                <td height="14" colspan="4">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr align="right">
                      <td height="18">
                        <div align="center">共 <%=cstr(rcount)%> 条信息 当前第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页
                          每页 <%=pmcount%> 条
                            <%
							if cint(pageno)>1 then%>
              [ <a href='wen.asp?ClassName=<%=ClassName%>&ID=<%=ClassID%>&pageno=<%=pageno-1%>&s_keyword=<%=s_keyword%>' class="tt1">上一页</a> ]
              <%
							end if
							if cint(pageno)<cint(mpage) then
							%>
              [ <a href='wen.asp?ClassName=<%=ClassName%>&ID=<%=ClassID%>&pageno=<%=pageno+1%>&s_keyword=<%=s_keyword%>' class="tt1">下一页</a> ]
              <%end if%>
&nbsp;&nbsp;</div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        </tr>
</table>
          </Center>
      </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>
