<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<% 
cat_id=request("cat_id")
set  titlexc=conn.execute("select cat_name from a_cat where cat_id="&cat_id)
titlehx=titlexc("cat_name")
titlexc.close
set titlexc=nothing
if cat_id="" then response.redirect "show_error.asp?eid=欄目ID或記錄ID不能為空!"
start="文章中心 - "&titlehx&""
call head()
call menu()%>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s"><TBODY><TR><TD height="10" align="right" colspan="2"><a href="art.asp" target="_self">文章首頁(yè)</a>
<% 
set rsw=conn.execute("select * from a_cat where sid=0 order by cat_id") 
do while not rsw.eof
%>
<% if cint(rsw("cat_id"))<>cint(cat_id) then %> 
| <a href='art_view.asp?cat_id=<%=rsw("cat_id")%>' title=<%=rsw("cat_name")%>><%=rsw("cat_name")%></a>
<% else %> 
| <font color="#FF0000"><%=rsw("cat_name")%></font>
<% end if %>
<% rsw.movenext
loop
rsw.close
set rsw=nothing
%>&nbsp;</td>
</tr>
</table>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s">
  <TBODY>
  <tr>
   <td width="188" valign="top">
  <table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 會(huì) 員 登 錄</td>
   </tr>
  </table>
<div style="padding-top:5px;padding-bottom:5px;" class="table-right">
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<tr>
<td height="22"><!--#include file="UserLogin.asp"--></td>
</tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
  <tr>
   <td height="23"  class="a1">&nbsp;&nbsp; 文 章 統(tǒng) 計(jì)</td>
  </tr>
</table>
<table width="100%" border=0 cellspacing="2" cellpadding="0">
<%
dim zw,zc,jw,zzw,sw  
zw=conn.execute("select count(*) from art where passed=0")(0)
sw=conn.execute("select count(*) from art where passed=1")(0)
jw=conn.execute("select count(*) from art where passed=0 and art_date>=#"&date()&"#")(0)
zzw=conn.execute("select count(*) from art where passed=0 and art_date>=#"&date()-1&"#")(0)
%>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>文章總數(shù)量:</strong><%=zw%></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>待審文章數(shù):</strong><%=sw%></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>今日文章數(shù):</strong><font color="red"><%=jw%></font></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>昨日文章數(shù):</strong><%=zzw-jw%></td>
</tr>
</table>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 文 章 分 類</td>
   </tr>
  </table>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("cat_id")=cstr(rs1("cat_id")) then
response.write "&nbsp;&nbsp;<font color=""#FF0000"">·"&rs1("cat_name")&"</a></font><BR>"
else
response.write "&nbsp;&nbsp;<a href='art_view.asp?cat_id="&rs1("cat_id")&"'>·"&rs1("cat_name")&"</a><BR>"
end if
sql="select * from a_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("cat_id")=cstr(rs2("cat_id")) then
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=""#FF0000"">├ "&rs2("cat_name")&"</a></font><BR>"
else
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='art_list.asp?cat_id="&rs2("cat_id")&"'>├ "&rs2("cat_name")&"</a><BR>"
end if
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 最 新 文 章</td>
   </tr>
</table>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<tr>
<td height="100" valign="top"><table width="100%"  border="0">
<%
set rs=conn.execute("select top 10 * from art where passed=0 order by art_id desc")
do while not rs.eof
%>
<tr>
<td height="22" align="left">&nbsp;<font color=#FF0000>·</font><a href=showart.asp?art_id=<%=rs("art_id")%> title=<%=rs("art_title")%> target="_blank"><%=left(rs("art_title"),15)%></a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</td></tr></table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 文 章 查 找</td>
   </tr>
</table>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<tr>
  <td height="100" valign="top"><table width="100%" border="0">
<form name="form2" method="post" action="art_list.asp"><div align=center><input type="radio" name="select" value="art_title" checked class='inuptCG'>標(biāo)題&nbsp;<input type="radio" name="select" value="art_content" class='inuptCG'>內(nèi)容&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>評(píng)論<br><input type='text' name='keyword'  size='15' value='搜索關(guān)鍵字' maxlength='50' onfocus="this.value=''" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'">
</div></form>
</table></td></tr>
</table>
</td>
<td width="570" valign="top">
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23"  class="a1">&nbsp;&nbsp;</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top"><table width=558 height=15 border=0 align="center" cellPadding=0 cellSpacing=0>
              <tr> 
                <td width="25">&nbsp;</td>
                <td width="70"><font color="#CC0000">本站公告：</font></td>
                <td width="475" height=25 align=center valign=middle> 
             <div align="right">                    
            <MARQUEE scrollAmount=1 scrollDelay=4 width=450
            align="left" onmouseover="this.stop()" onmouseout="this.start()">
                    <%
set rshx=conn.execute("select top 5 * FROM diary ORDER BY d_date DESC")
do while not rshx.eof
%> ◎&nbsp;<%=rshx("d_content")%>&nbsp;<font color="#FF9933">[<%=rshx("d_date")%>]</font>&nbsp;
<%
rshx.movenext
loop
%>
                    </MARQUEE>
                  </div>
                </td>
              </tr>
            </table></td>
        </tr>
<tr>
<td>
<table width="99%" border="0" cellpadding="0" cellspacing="0" align="right"> 
<tr>
<td valign="top" width="60%">
<fieldset> 
<legend>最新推薦</legend> 
<table width="100%"  border="0">
<%
set rs=conn.execute("select top 5 * from art where isbest=1 order by art_id desc")
do while not rs.eof
%>
<tr>
<td height="22" align="left">&nbsp;<font color=#FF0000>·</font><a href=showart.asp?art_id=<%=rs("art_id")%> title=<%=rs("art_title")%> target="_blank"><%=left(rs("art_title"),20)%></a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</fieldset> 
</td>
<td valign="top" width="2%">
</td>
<td valign="top" width="37%">
<fieldset> 
<legend>最新熱門(mén) </legend> 
<marquee id="scrollarea" direction="up" scrolldelay="200" scrollamount="2" width="200" height="122" onmouseover="this.stop();" onmouseout="this.start();">
                              <table width="100%"  border="0">
<% 
set new2=conn.execute("select top 5 * from art where passed=0 and art_count>=150 order by art_id desc")
do while not new2.eof %>
<tr align="center">
<td height="22" align="left">&nbsp;<font color=#FF0000>·</font><a href=showart.asp?art_id=<%=new2("art_id")%> title=<%=new2("art_title")%> target="_blank"><%=left(new2("art_title"),12)%></a></td></tr>
<%
new2.movenext
loop
new2.close
set new2=nothing
%>
</table>
</marquee>
</fieldset> 
</td>
<td valign="top" width="1%">
</td>
</tr>
</table>
</td>
</tr>
              <tr> 
                  <td height="15"></td>
              </tr>
            </table>
<table width="100%" height="146" border="0" align="center" cellpadding="0" cellspacing="0">
<%
set rsy=conn.execute("select cat_id,cat_name from a_cat where sid="&cat_id&" order by cat_id")
while not rsy.eof
%>
<tr>
<% for i=1 to 1
if  rsy.eof then %>
<td width="100%"></td>
<% else %>
<td width="99%" valign="top" align="right">
<table width="99%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<% id1=rsy("cat_id") 
zc=conn.execute("select count(*) from art where passed=0 and cat_id="&id1&"")(0)
%>
<td height="23"  class="a1">&nbsp;&nbsp;<b><%=rsy("cat_name")%></b>&nbsp;(文章：<%=zc%> 篇)</td>
</tr>
</table>
<table width="99%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-left" align="right" frame=lhs>
<%  set rsy1=conn.execute("select top 10 * from art where passed=0 and cat_id="&id1&" order by art_id desc")
if rsy1.eof then%>
<tr><td align="center">此分類暫無(wú)文章</td></tr>
<%
else
do while not rsy1.eof
if rsy1("istop")="1" then      
folder="<img src=""img/1.gif"" title=固頂文章>"       
else
folder="<img src=""img/4.gif"" title=普通文章>"       
end if      
if rsy1("istop")="0" then      
if rsy1("isbest")="1" then
folder="<img src=""img/2.gif"" title=推薦文章>"
elseif rsy1("art_count")>150 then
folder="<img src=""img/3.gif"" title=熱門(mén)文章>"       
else
folder="<img src=""img/4.gif"" title=普通文章>"       
end if      
end if       
%>
<tr>
<TD width="6%" align=Center height="26"><%=folder%></TD>
<td height="26">&nbsp;<a href=showart.asp?art_id=<%=rsy1("art_id")%> title=<%=rsy1("art_title")%> target="_blank"><%=left(rsy1("art_title"),40)%></a>
<%if rsy1("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='圖片文章'>" & vbCrLf
end if
if DateDiff("h",rsy1("art_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小時(shí)內(nèi)文章'>" & vbCrLf
end if%> 
</td>
<TD align=middle width=10%><%=rsy1("art_count")%></td>
<TD align=left width=15%>&nbsp;&nbsp;<%=year(rsy1("art_date"))%>-<%=month(rsy1("art_date"))%>-<%=day(rsy1("art_date"))%></td>
</tr>
<% rsy1.movenext
loop
rsy1.close
set rsy1=nothing
end if
%>
<tr><td align="right" colspan=4><a href='art_list.asp?cat_id=<%=id1%>' target="_blank">more</a>&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
</td> 
<% rsy.movenext
end if
next
%>
</tr>
<% wend %>
</table></td>
</tr>
</table>
<%call footer()%>