<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="文章中心 - 首頁"
if request.querystring("cat_id")<>"" then response.redirect "show_error.asp?eid=參數非法!"
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"><font color=#FF0000>文章首頁</font></a>
<% set rsw=conn.execute("select * from a_cat where sid=0 order by cat_id") 
do while not rsw.eof
%>
| <a href='art_view.asp?cat_id=<%=rsw("cat_id")%>' title=<%=rsw("cat_name")%>><%=rsw("cat_name")%></a>
<% rsw.movenext
loop
%>
&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; 會 員 登 錄</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; 文 章 統 計</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>文章總數量:</strong><%=zw%></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>待審文章數:</strong><%=sw%></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>今日文章數:</strong><font color="red"><%=jw%></font></td>
</tr>
<tr>
<td height="22">&nbsp;<font color=#FF0000>·</font><strong>昨日文章數:</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%>
&nbsp;<font color=#FF0000>·</font><a href='art_view.asp?cat_id=<%=rs1("cat_id")%>'><%=rs1("cat_name")%></a><BR>
<%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"),12)%></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'>標題&nbsp;<input type="radio" name="select" value="art_content" class='inuptCG'>內容&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>評論<br><input type='text' name='keyword'  size='15' value='搜索關鍵字' 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" align="right">
<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"></td>
                <td width="70"><font color="#CC0000">本站公告：</font></td>
                <td width="465" 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 class="title_11"> 
<legend>最新熱門 </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"),18)%></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=0 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&" or cat_id in(select cat_id from a_cat where sid="&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&" or cat_id in(select cat_id from a_cat where sid="&id1&")) order by art_id desc") 
if rsy1.eof then %>
<tr><td align="center">此分類暫無文章</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=熱門文章>"       
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"><a href=showart.asp?art_id=<%=rsy1("art_id")%> title=<%=rsy1("art_title")%> target="_blank">&nbsp;<%=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小時內文章'>" & 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_view.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()%>