<!--#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"))
ID=clng(request.QueryString("ID"))
title=request.QueryString("title")
const MaxPerPage=10
Page=Request.QueryString("page")
if page="" then
 page=1
 elseif not IsNumeric(page) then
 response.write "<script>alert('非法参数');history.back()</script>"
 response.end
end if
page=int(page)
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
FileName="news.asp?ClassName="&ClassName&"&ID="&ClassID
%>
<%
set Temprs15=conn.execute("select count(*) from news where classid="&Request("id"))
allcount_zu1=Temprs15(0)
TempRs15.close:Set TempRS15=nothing
 %>
<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/common3.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;</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="102%" border="0" cellspacing="0" cellpadding="0">
                <tr bgcolor="#FFFFFF"> 
                  <td height="3" bgcolor="#FFFFFF" colspan="3"><img src="IMAGES/kb.gif" width="9" height="3"></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="25%" 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='contents.asp?ClassName="&ClassName&"&ID="&ClassID&"'><span class='redbold'>"&ClassName&"</span></a>"%>
                  </td>
                  <td width="10%" height="30" background="images/menu_bg.gif" class="daohang">&nbsp;</td>
                  <td width="65%" height="30" background="images/menu_bg.gif" class="daohang"> 
                    <%if allcount_zu1>1 then%>
                    <%Set TempRS1=Conn.Execute("Select * from news where classid="&Trim(Request("id"))&" order by id DESC")%>
                    <%do while not TempRS1.eof%>
                    <%Response.write "<a href='contents.asp?ClassName="&ClassName&"&ID="&classid&"&ID2="&TempRS1("id")&"'>"%>
                    <img src="images/ICON1.gif" width="15" height="15">　<%=TempRS1("title")%> 
                    <%Response.write "</a>"%>
                    &nbsp; 
                    <%TempRS1.movenext%>
                    <%loop%>
                    <%TempRS1.close:Set TempRS1=nothing%>
                    <%End if%>
                  </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td bgcolor="#9b9b9b" colspan="3"><img name="" src="" width="1" height="1" alt=""></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td bgcolor="#9b9b9b" colspan="3"><img name="" src="" width="1" height="1" alt=""></td>
                </tr>
              </table>
              <table width="100%" height="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
			  <%if Trim(Request("id2"))<>"" then%>
				<%Set TempRS=Conn.Execute("Select * from news where classid="&Trim(Request("id"))&" and id="&Trim(Request("id2"))&" order by id DESC")%>
                <%Else%>
<%Set TempRS=Conn.Execute("Select * from news where classid="&Trim(Request("id"))&" order by id DESC")%>
				<%End if%>
				<%
	  News_Content=Temprs("desc")
arr_Content=split(News_Content,"[---分页---]")
	  %>
                <tr> 
                  <td colspan="2" valign="top"> 
                    <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" background="img/line_news.gif">
                      <tr> 
                        <td width="100%" align=center> </td>
                      </tr>
                      <tr> 
                        <td class="news"id=fontzoom valign=top> 
                          <%
if TempRS("encode")="html" then
Response.Write arr_Content(Page-1)
Else
Response.Write ubb_code(arr_Content(Page-1))
End if
%>
                          <br>
                          <div align="right"> 
                            <%
url="news.asp?id="&id
if MaxPages >0 then
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>首页</a> "
if Page-1 > 0 then
Prev_Page = Page - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

for PageCounter=0 to MaxPages
PageLink = PageCounter+1
if PageLink <> Page Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<font color='#FF0000'><B>["& PageLink &"]</B></font> "
end if
If PageLink = MaxPages+1 Then Exit for
Next
if page <= Maxpages then
bdd_Page = Page + 1
Response.write "<a class=black href='" & Url & "&page=" & bdd_Page & "' title='第" & bdd_Page & "页'>下一页</A>"
end if
Response.write " <A class=black href='" & Url & "&page=" & Maxpages+1 & "' title='第"& Maxpages+1 &"页'>尾页</A>"

end if

				
%>
                          </div>
                        </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>
