<!--#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
%>

<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>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">

.newstitle  {COLOR: #000000; FONT-FAMILY:"宋体"; FONT-SIZE: 14px;line-height:1.5}

body {
	margin-left: 0px;
	margin-right: 0px;
}
</style>
<script language="JavaScript" type="text/JavaScript">

function fontZoom(size){
 document.getElementById('fontZoom').style.fontSize=size+'px'
}
</SCRIPT>

</script>
</head>
<SCRIPT language=JavaScript>
var currentpos,timer;

function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<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"> 
						                        <%
	  Set RS=Server.Createobject("ADODB.Recordset")
	  SQL="select * from news where ID="&ID
	  RS.open sql,conn,1,3
	  RS("hits")=RS("hits")+1
	  classid=RS("classid")
	  RS.update
	  %>
	  <%Set TempRS=Conn.Execute("Select classname from classname where classtype="&classid)%>
	  <%if not TempRS.eof then%>
	  <%classname=TempRS("classname")%>
	  <%TempRS.close:Set TempRS=nothing%>
	  <%End if%>
                          <%
    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>"%>
                          → <%=Request("title")%></td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td height="25" bgcolor="#FFFFFF"> 
                          <div align="center">发表日期：<%=RS("time")%> 有<b><%=RS("hits")%></b>位读者读过此文 
                          </div>
                        </td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td bgcolor="#9b9b9b"><img name="" src="" width="1" height="1" alt=""></td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr> 
                  <td colspan="2" valign="top">
                    <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td> 
                          <table border="0" cellpadding="0" cellspacing="0" width="98%" align="center">
                            <tr> 
                              <td width="100%" height="50" align="center" class="READNEWSTITLE"><%=RS("title")%></td>
                            </tr>
                            <%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where ID=" & ID
rs.Open rs.source,conn,1,1
Title=trim(rs("Title"))
News_Content=rs("desc")
arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
%>
                            <tr> 
                              <td width="100%"  align="center"> 
                                <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 RS("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>
                            <tr> 
                              <td width="100%"  height="25"> 
                                <div align="center"> 
                                </div>
                              </td>
                            </tr>
                            <tr> 
                              <td width=100% > 
                                <hr size=1>
                              </td>
                            </tr>
                            <tr> 
                              <td> 
                                <table width="100%" border="0" cellspacing="0" cellpadding="5" style="table-layout:fixed; word-break:break-all">
                                  <tr> 
                                    <td colspan="2"> 
                                      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
                                        <tr> 
                                          <td  width="214" height="20"> <a href=send.asp?NewsID=<%=ID%> target=_blank  class=bottom><img src="images/mail.gif"  border="0"> 
                                            将本信息发给好友</a> </td>
                                          <td  width="168"><a href="javascript:window.print()" class=bottom><img src="images/printer.gif"  border="0"> 
                                            打印本页</a></td>
                                          <td  width="90"> 
                                            <input type="button" name="close2" value="关闭窗口"  onClick="window.close();return false;">
                                          </td>
                                        </tr>
                                      </table>
                                    </td>
                                  </tr>
                                  <tr bgcolor="#FFFFFF"> 
                                    <td colspan="2"> 
                                      <%
If ContentLen=<180  then	
DisplayContent=Content
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" & displaycontent
%>
                                    </td>
                                  </tr>
                                  <%
else
%>
                                  <tr bgcolor="#FFFFFF"> 
                                    <td colspan="2"> 
                                      <%
DisplayContent=mid(Content,1,180)
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" & displaycontent & "... <a href='readview.asp?reviewID=" & rs1("reviewID") &"&NewsID=" & newsID &"' target=_blank class=class>详细内容</a>"

end if	
%>
                                    </td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                            <%	
rs.Close
set rs=nothing	

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