<!--#include file="conn/conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/ubbcode1.asp"-->
<%dim id
id=replace(request("id")," ","")
if isnumeric(id)=0 or id="" then
response.write "非法参数,请直接从<a href='"&SiteUrl&"'>"&SiteName&"</a>进入。"
response.end
end if
conn.execute("update [article] set hits=hits+1 where articleID="&id&"")
set rs=server.createobject("adodb.recordset") 	  
sql="select * from article where articleid="&id&"" 
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"无此文章已删除,请直接进入首页查看其他文章<a href='"&SiteUrl&"'>"&SiteName&"</a>"
%>
<%
response.end
end if
tittle=left(rs("title"),2)
classid=int(rs("classid"))
set rsmin=server.createobject("adodb.recordset")
sqlmin="select * from aclass where classid="&classid&"" 
rsmin.open sqlmin,conn,1,1
classna=rsmin("class")
rsmin.close
%>
<HTML><HEAD><TITLE><%=rs("title")%>-<%=SiteName%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK 
href="images/css1.css" type=text/css rel=stylesheet><LINK 
href="images/css2.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3395" name=GENERATOR>
<style type="text/css">
<!--
.STYLE14 {color: #0099FF; font-weight: bold; }
.style7 {font-weight: bold}
-->
</style>
</HEAD>
<BODY background=images/wbg.gif>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=910 align=center bgColor=#0a253a 
border=0>
  <TBODY>
  <TR>
    <TD width=7></TD>
    <TD vAlign=top>
      <SCRIPT language=javascript>
		  function fod1(obj)
		  {
		   	//var p1 = document.getElementById("Fod_list1").getElementsByTagName("div");
			var p1 = obj.parentNode.parentNode.parentNode.parentNode;
			//alert(p1.innerHTML);
			var p11 = obj.parentNode.getElementsByTagName("div");
			var t1 = p1.getElementsByTagName("tr")[1].getElementsByTagName("ul");
			var n1 = p11.length;
			for(i=0;i<n1;i++)
			{
				if(p11[i] == obj)
				{
					p11[i].className = "s1";
					t1[i].className = "dis";
				}
				else
				{
					p11[i].className = "";
					t1[i].className = "undis";				
				}
			}
		  }
		</SCRIPT>
      
      <table width="896"  border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#2A659F">
        <tr>
          <th width="240" height="3" valign="top" scope="row"></th>
          <th width="660" valign="top" scope="row"></th>
        </tr>
        <tr>
          <th height="253" valign="top" scope="row" style="border-right:1px solid #c5e2fe;"><table cellspacing=0 cellpadding=0 width=240 border=0>
            <tbody>
              <tr>
                <td><table width="240" border="0">
                    <tr background="images/3081602.gif">
                      <td height=31 valign=bottom background="images/dv.gif" id=Fod_list1><table width="134" align="center">
                          <tr>
                            <td width="17"><img height=18 
            src="images/cm01.gif" width=16 align=absMiddle></td>
                            <td width="105"><span class="font14px"><strong>伤感花园排行榜</strong></span></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td align=middle height=188><table width=96% border=0 align="right" cellpadding=0 cellspacing=0>
                    <% set rs2 = Server.CreateObject("adodb.recordset")
sql2="select top 8 * from article order by hits desc , articleid asc"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
                    <tbody>
                      <tr>
                        <td  align=middle width=18 height=26><img height=12 
                  src="images/mark01.gif" width=11></td>
                        <td  align=left width=164><a href="show.asp?id=<%=rs2("articleid")%>"><font color="#c5e2fe">
                          <%if len(rs2("title"))>12 then
			Response.Write left(rs2("title"),12)&"…"
		Else
			Response.Write rs2("title")
		End if%>
                        </font></a></td>
                      </tr>
                    </tbody>
                    <% rs2.movenext 
			if rs2.eof then exit do 
			loop 
			rs2.close
			set rs2=nothing
			%>
                </table></td>
              </tr>
            </tbody>
          </table>
            <table cellspacing=0 cellpadding=0 width=240 border=0>
              <tbody>
                <tr>
                  <td><table width="240" border="0">
                      <TR background="images/3081602.gif">
                        <TD height=31 vAlign=bottom background="images/dv.gif" id=Fod_list1><table width="105" align="center">
                            <tr>
                              <td width="17"><IMG height=18 
            src="images/cm01.gif" width=16 align=absMiddle></span></td>
                              <td width="105"><span class="font14px font14px"><strong>伤感排行榜</strong></span></td>
                            </tr>
                        </table></TD>
                      </TR>
                  </table></td>
                </tr>
                <tr>
                  <td align=middle height=188><table width=96% border=0 align="right" cellpadding=0 cellspacing=0>
                      <% set rs3 = Server.CreateObject("adodb.recordset")
sql3="select top 12 * from film order by hits desc , id asc"
rs3.open sql3,conn,1,1
do while not rs3.eof
%>
                      <tbody>
                        <tr>
                          <td  align=middle width=18 height=26><img height=12 
                  src="images/mark01.gif" width=11></td>
                          <td  align=left width=163><a href="dvshow.asp?id=<%=rs3("id")%>"><font color="#c5e2fe">
                            <%if len(rs3("title"))>12 then
			Response.Write left(rs3("title"),12)&"…"
		Else
			Response.Write rs3("title")
		End if%>
                          </font></a></td>
                        </tr>
                      </tbody>
                      <% rs3.movenext 
			if rs3.eof then exit do 
			loop 
			rs3.close
			%>
                    </table>
                      <!--[if !IE]>|xGv00|dee2f1869ae96f1fd4ba7b3b75f064c1<![endif]--></td>
                </tr>
              </tbody>
            </table></th>
          <th valign="top" scope="row"><table width="98%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <th height="25" align="center" scope="row"><br>
                <font color="#FFFF00" size="2"><b> <%=rs("title")%><br>
                &nbsp;</b></font></th>
            </tr>
          </table>
            <table width="636"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="30" align="center"><span class="list">来源：<font color="#c5e2fe"><%=rs("CopyFrom")%></font></span></td>
                <td align="center"><span class="list">作者：<font color="#c5e2fe"><%=rs("Author")%></font></span></td>
                <td align="center">发表：<font color="#c5e2fe"><%=rs("dateandtime")%></font></td>
                <td align="center" class="list">点击：<font color="#c5e2fe"><%=rs("hits")%> </font>次 </td>
                <td align="center" class="list">类别：<a href="wenlist.asp?classid=<%=classid%>"><font color="#ffff00"><%=classna%></font></a></td>
              </tr>
              <tr>
                <td colspan="5" align="left" class="wen"><p><font color="#c5e2fe"><%=rs("content")%></font></p></td>
              </tr>
              <tr>
                <td height="35" colspan="5" align="left" scope="row"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
                    <tr>
                      <td valign="baseline"><li>上篇文章：
                        <%
				set rs=server.createobject("adodb.recordset")	
	sql="select top 1 title,articleid from article where classid="&classid&" and ArticleID>"&id&" order by ArticleID asc "  
	rs.open sql,conn,1,1
  	if rs.eof and rs.bof then 
%>
                              <span class="STYLE14">已经没有了</span>
                              <%else%>
                              <a href="show.asp?id=<%=rs("articleid")%>"><font 
      color="#ffff00"><%=rs("title")%></font></a>
                              <%end if%>
                                  </td>
                      <td align="right" valign="bottom"><li>下篇文章：
                        <%	rs.close   
	sql="select top 1 title,articleid from article where classid="&classid&" and ArticleID<"&id&" order by ArticleID desc "  
	rs.open sql,conn,1,1
  	if rs.eof and rs.bof then   
%>
                              <span class="STYLE14">已经没有了</span>
                              <%else%>
                              <a href="show.asp?id=<%=rs("articleid")%>"><font 
      color="#ffff00"><%=rs("title")%></font></a>
                              <%end if%>
                                  </td>
                    </tr>
                  </table>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" >
                      <tr>
                        <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="50%" valign="top"><br>
                                  <font color="#6C9C07"><b>相关文章</b></font><br>
                                  <%
	dim tuicool,strSQL2,cool
		strSQL2 ="SELECT top 10 * FROM article where title like '%"&tittle&"%' and title <> '%"&tittle&"%' ORDER BY dateandtime DESC"
		Set tuicool = Server.CreateObject("ADODB.Recordset")
		tuicool.open strSQL2,Conn,3,1
		if tuicool.eof  then
	response.write "<font color='#000000'>没有相关文章</font>"
		else 
				%>
                                  <% do while not tuicool.eof  %>
                                  <a href="show.asp?id=<%=tuicool("articleid")%>"><font color="#c5e2fe"><%=tuicool("title")%></font></a><br>
                                  <%  tuicool.movenext
	loop
	end if
	tuicool.close
	set tuicool=nothing
 %>
                                  <br>
                              </td>
                              <td valign="top"><br>
                                  <font color="#6C9C07"><b>最新文章</b></font><br>
                                  <%
		strSQL2 ="SELECT top 10 * FROM article ORDER BY articleid DESC"
		Set tuicool = Server.CreateObject("ADODB.Recordset")
		tuicool.open strSQL2,Conn,3,1
		if tuicool.eof  then
	response.write "<font color='#000000'>没有相关文章</font>"
		else 
				%>
                                  <% do while not tuicool.eof  %>
                                  <a href="show.asp?id=<%=tuicool("articleid")%>"><font color="#c5e2fe"><%=tuicool("title")%></font></a><br>
                                  <%  tuicool.movenext
	loop
	end if
		tuicool.close
	set tuicool=nothing
 %></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td>
              </tr>
            </table></th>
        </tr>
			<%
rs.close
set rs=nothing
call CloseConn()
%>
      </table>
      </TD>
    <TD width=8></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=910 align=center border=0>
  <TBODY>
  <TR>
    <TD width="5" height=6 bgColor=#0a253a></TD>
    <TD width="900" bgColor=#4A9ACD></TD>
    <TD width="5" bgColor=#0a253a></TD>
</TR></TBODY></TABLE>
<!--#include file="bom.asp"-->
</BODY></HTML>
