<!--#include file="Inc/syscode.asp"-->
<%
const ChannelID=2
Const ShowRunTime="Yes"
dim tLayout,tUser
PageTitle="正文"
strFileName="ShowArticle.asp2"
if ArticleId<=0 then
	FoundErr=true
	ErrMsg=ErrMsg & "<br><li>请指定文章ID</li>"
end if
if FoundErr=True then
	call WriteErrMsg()
else
%>
<html>
<head>
<title><%=strPageTitle & " >> " & ArticleTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<% call MenuJS() %>
<link rel="stylesheet" href="1.css" type="text/css">
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
  <tr>
    <td width="180" valign="top"  class="tdbg_leftall"> <table width='100%' border='0'cellpadding='0' cellspacing='0'>
        <tr class="title_left" align='center'> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="title_lefttxt"><div align="center"><strong>&nbsp;相 
                    关 文 章</strong></div></td>
              </tr>
            </table></td>
        <tr class='tdbg_left'> 
          <td height="80" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
              <tr> 
                <td valign="top"> 
                  <% call ShowCorrelative(10,16) %>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width='100%' border='0'cellpadding='0' cellspacing='0'>
        <tr class="title_left" align='center'> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="title_lefttxt"><div align="center"><strong>&nbsp;热 
                    点 文 章</strong></div></td>
              </tr>
            </table></td>
        <tr class='tdbg_left'> 
          <td height="80" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
              <tr> 
                <td valign="top">
                  <% call ShowHot(10,16) %>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width='100%' border='0'cellpadding='0' cellspacing='0'>
        <tr class="title_left" align='center'> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="title_lefttxt"><div align="center"><strong>&nbsp;推 
                    荐 文 章</strong></div></td>
              </tr>
            </table></td>
        <tr class='tdbg_left'> 
          <td height="200" valign="top"> 
            <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
              <tr> 
                <td valign="top"> 
                  <% call ShowElite(10,16) %>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="tdbg_left"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="11" Class="title_left2"></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="5">&nbsp;</td>
    <td width="575" valign="top"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="border">
        <tr> 
          <td class="title"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="69%" class="title_maintxt">&nbsp;<img src="Images/arrow.gif" width="11" height="14" align="absmiddle"> 
                  <%response.write rs("Title")%>
                </td>
                <td width="31%" class="title_maintxt"> 
                  <%
if rs("OnTop")=true then
	response.Write("<font color=blue>顶</font>&nbsp;")
else
	response.write("&nbsp;&nbsp;&nbsp;")
end if
if rs("Hits")>=HitsOfHot then
	response.write("<font color=red>热</font>&nbsp;")
else
	response.write("&nbsp;&nbsp;&nbsp;")
end if
if rs("Elite")=true then
	response.write("<font color=green>荐</font>")
else
	response.write("&nbsp;&nbsp;")
end if
%>
                </td>
              </tr>
            </table> </td>
        </tr>
        <tr align="center" valign="middle"> 
          <td height="40" colspan="2"><font size="4"><strong><%=rs("Title")%></strong></font> </td>
        </tr>
        <tr align="center" class="tdbg_leftall"> 
          <td colspan="2">［ 
            <%
		dim Author,CopyFrom
		Author=rs("Author")
		CopyFrom=rs("CopyFrom")
		response.write "作者："
		if instr(Author,"|")>0 then
			response.write "<a href='mailto:" & right(Author,len(Author)-instr(Author,"|")) & "'>" & left(Author,instr(Author,"|")-1) & "</a>"
		else
			response.write Author
		end if
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;转贴自："
		if instr(CopyFrom,"|")>0 then
			response.write "<a href='" & right(CopyFrom,len(CopyFrom)-instr(CopyFrom,"|")) & "'>" & left(CopyFrom,instr(CopyFrom,"|")-1) & "</a>"
		else
			response.write CopyFrom
		end if
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;点击数：" & rs("Hits") & "&nbsp;&nbsp;&nbsp;&nbsp;文章录入："
		set tUser=conn.execute("select UserID from [User] where UserName='" & rs("Editor") & "'")
		if tUser.bof and tUser.eof then
			response.write rs("Editor")
		else
			response.write "<a href='ShowUserInfo.asp?UserID=" & tUser(0) & "'>" & rs("Editor") & "</a>"
		end if
		%>
            ］</td>
        </tr>
        <tr> 
          <td colspan="2"><table width="100%" border="0" cellspacing="5" cellpadding="0">
              <tr> 
                <td height="200" valign="top"> <%call ShowArticleContent()%> </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td colspan="2"><table width="100%" height="50" border="0" cellpadding="0" cellspacing="5" style="BORDER-top: #6687ba 1px solid;BORDER-bottom: #6687ba 1px solid;">
              <tr> 
                <td> <li>上一篇文章： 
                    <% call ShowPrevArticle(200) %>
                  </li>
                  <br> <li>下一篇文章： 
                    <% call ShowNextArticle(200) %>
                </td>
              </tr>
            </table></td>
        </tr>
        <tr align="right" class="tdbg_leftall"> 
          <td height="20" colspan="2">【<a href="Comment.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">发表评论</a>】【<a href="SendMail.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">告诉好友</a>】【<a href="printpage.asp?ArticleID=<%=rs("ArticleID")%>">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td  height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="13" Class="tdbg_left2"></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
  <tr class="title"> 
    <td height="22"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="title_maintxt"><strong>&nbsp;<img src="Images/TEAM.gif" width="16" height="16" align="absmiddle">&nbsp;网友评论：</strong>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
        <tr> 
          <td valign="top"> 
            <% call ShowComment(10) %>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td  height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="13" Class="tdbg_left2"></td>
        </tr>
      </table></td>
  </tr>
</table>
<% call Bottom() %>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>



