<!--#include file="Inc/newsconn.asp"-->
<!--#include file="newsInc.asp"-->
<%
Dim ID,page
ID=jleRequest(request("id"))
page=jleRequest(Request("Page"))
set rs=server.createobject("adodb.recordset")
sql="select * from jle_Article where id="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Call Alert("不正确的ID!",SitePath)
else

If rs("Linkurl")<>"" then
%>

<%
Else

set rsClass=server.createobject("adodb.recordset")
sql = "select * from jle_Class where ID="&rs("ClassID")&""
rsClass.open sql,conn,1,1  
if rsClass.eof and rsClass.bof then
  Call Alert("没有此分类,返回首页!","index.asp")
else
  ClassName=rsClass("ClassName")
  CReadPower=rsClass("ReadPower")
  TopID=rsClass("TopID")
rsClass.close
set rsClass=nothing
end if

If rs("PageNum")=0 then
	Content=ManualPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"")
else
	Content=AutoPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"",rs("PageNum"))
End if
%>
<!--#include file="jle_common.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="config.asp"-->
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312">
<meta name="keywords" content="<%=metakey%>"/>
<meta name="description" content="<%=metades%>" />
<link rel="stylesheet" type="text/css" href="css/style.css" />

<SCRIPT src="inc/sinaflash.js" type="text/javascript"></SCRIPT>
<SCRIPT src="inc/jquery.min.js" type="text/javascript"></SCRIPT>
<script type="text/javascript" src="js/jquery.js"></script>
<link href="css/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
#apDiv1 {
	position:absolute;
	width:149px;
	height:31px;
	z-index:6;
	left: 798px;
	top: 32px;
}
-->
</style>
</head>
<body>
<%call top()%>
<br />
<table width="1300" border="0" cellspacing="0" cellpadding="0" align="center" style="border:1px #E6E6E6 solid;">
  <tr>
    <td width="1021"  valign="top" style="border:1px #E6E6E6 ">
    
    <div class="news_top2"><div align="center"><h4><a href=""><%=rs("Title")%><%=IIF(page>0,"("&page&")","")%></a></h4></div></div>
	
                
<div class="newscontent" ><div class="callout1">
<h3>
<%=adclass6%>
</h3>
<%=rs("content")%><div>
				
			 
				<%
				If rs("KeyWord")<>"" then
					If rs("KeyWord")=rs("Title") then
					Else
					Response.Write "<div class=""tags"">Tags:"
					aa = Split(ucase(rs("KeyWord")), "|")
					For i=0 to Ubound(aa)
					Response.Write ""& aa(i) &""&  "&nbsp;"
					Next
					Response.Write "</div>"
					End if
				End if
		 		%>
				<div class="dline1"><%=thehead%></div><div class="dline1"><%=thenext%></div>
             <!--div class="dline1"><b>相关文章</b></div>
             <div class="bbk"><'%=ShowMutualityArticle(ID,""&rs("KeyWord")&"",20,"·",0)%></div-->
            </div>
		</div>
		
	</div>
    
</td>
    <td width="11"></td>
    <td width="266" valign="top" bgcolor="#F6FBFD" style="border-left:1px #C5D8E6 dotted;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="40" bgcolor="#229DD7" class="fontgg" style="padding-left:15px;">本类热门</td>
            </tr>
            <tr>
              <td bgcolor="#F6FBFD" style="padding:5px;"><div class="newsleftlist">
              <ul style="padding:0; margin:0; list-style:none;">
                <%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",18,"no","Hits desc,ID desc",0,0)%>
              </ul>
            </div>
              </td>
            </tr>
          </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="40" bgcolor="#229DD7" class="fontgg" style="padding-left:15px;">本类推荐</td>
              </tr>
              <tr>
                <td bgcolor="#F6FBFD" style="padding:5px;"><div class="newsleftlist">
              <ul style="padding:0; margin:0; list-style:none;">
               <%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",18,"IsHot=1","ID desc",0,0)%>
              </ul>
            </div>
                </td>
              </tr>
            </table>
    </td>
  </tr>
</table>








<%End if%>
<%
rs.close
set rs=nothing
end if
	
function thehead 
headrs=server.CreateObject("adodb.recordset") 
sql="select top 1 ID,Title from jle_Article where id<"&id&" and ClassID="&rs("ClassID")&" order by id desc" 
set headrs=conn.execute(sql) 
if headrs.eof then 
response.Write("<li>上一篇：没有了</li>") 
else 
a0=headrs("id") 
a1=headrs("Title")
If html=1 then
response.Write("<li>上一篇：<a href='NewsList.asp?ID="&a0&"'>"&a1&"</a></li>") 
Else
response.Write("<li>上一篇：<a href='Html/?"&a0&".html'>"&a1&"</a></li>") 
End if
end if 
headrs.close
set headrs=nothing
end function

function thenext 
newrs=server.CreateObject("adodb.recordset") 
sql="select top 1 ID,Title from jle_Article where id>"&id&" and ClassID="&rs("ClassID")&" order by id asc" 
set newrs=conn.execute(sql) 
if newrs.eof then 
response.Write("<li>下一篇：没有了</li>")
else 
a0=newrs("id") 
a1=newrs("Title")
If html=1 then
response.Write("<li>下一篇：<a href='NewsList.asp?ID="&a0&"'>"&a1&"</a></li>") 
Else
response.Write("<li>下一篇：<a href='Html/?"&a0&".html'>"&a1&"</a></li>") 
End if
end if
newrs.close
set newrs=nothing
end function
%>

<script>$('count').innerHTML=$('_count').innerHTML;</script>
<%
call bottom()
%>
</body>
</html>