<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/ubb.asp"-->
<!--#include file="Inc/fenye.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID,page
ID=Angel_aspRequest(request("id"))
page=Angel_aspRequest(Request("Page"))
set rs=server.createobject("adodb.recordset")
sql="select * from "&tbname&"_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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>转向：<%=rs("title")%></title>
<style>
#ndiv{
	width:450px;
	padding:8px;
	margin-top:8px;
	background-color:#FCFFF0;
	border:3px solid #B4EF94;
	height:100px;
	text-align:left;
	font-size:14px;
	line-height:180%;
}
</style>
<meta http-equiv="refresh" content="1;URL=<%=rs("LinkUrl")%>">
</head>
<body>
<div align='center'>
<div id='ndiv'>
正在转向：<a href='<%=rs("LinkUrl")%>'><%=rs("LinkUrl")%></a>，请稍候...
</div>
</div>
</body>
</html>
<%
Response.End
Else

set rsClass=server.createobject("adodb.recordset")
sql = "select * from "&tbname&"_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
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>-Powered by Angel_asp" />
<meta name="description" content="<%=left(LoseHtml(rs("Content")),120)%>-Powered by Angel_asp" />
<link href="<% =SitePath %>css/indexstyle.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/common.2014.css" />
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/article.css" />
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title><%=rs("Title")%><%=IIF(page>0,"("&page&")","")%>-<%=ClassName%>-<%=SiteTitle%></title>
</head>
<body<%If ""&IsPing&""=1 then%> onLoad="showre(<%=ID%>,1)"<%end if%>>
<div class="mwall">
<%=Head%>
<%=Menu%>

<div class="wp">
	    <div class="art_main">
            <!--位置导航-->
            <div class="add_link">
                <p class="fr"><a href="<%=SitePath%>" target="_blank"><% =SiteTitle %></a></p>
                <p class="fl">
						<%=search%>您现在的位置：<a href="<%=SitePath%>">首页</a> >> <%If TopID>0 then%><a href="<%=IIF(Html=3,"../NewsList_"&TopID&".html","../Article_Class.asp?ID="&TopID&"")%>"><%=Classlist(TopID)%></a> >> <%End if%><a href="<%=IIF(Html=3,"../NewsList_"&rs("ClassID")&".html","../Article_Class.asp?ID="&rs("ClassID")&"")%>"><%=ClassName%></a> >> 内容
				</p>
            </div>
 
            <div class="inner">

			 <h1 id="h_title"><%=rs("Title")%><%=IIF(page>0,"("&page&")","")%></h1>
			<div class="info"><em>时间：<%=rs("DateAndTime")%></em><em><%If IsHits=1 then%> 点击：<script type="text/javascript" src="/Hits.asp?id=<%=request("id")%>"></script><%End if%></em></div>
	       <div class="art_cont" id="div_content">
            	<%If Iszhaiangel=1 and b<2 then%><div class="zhaiangel"><b>　　核心提示：</b><%=left(rs("Artdescription"),150)%>...</div><%End if%>
				<%Call ShowAD(1)%>
				<%
				If rs("yn")=2 then
					If rs("UserName") = Angel_aspName then
						Response.Write(Content)
					else
						Response.Write("<div style=""margin:40px auto;text-align:center;color:#ff0000;"">会员私有文章，禁止查看!</div>")
					End if
				end if
				
				if rs("yn")=1 then
				Response.Write("<div style=""margin:40px auto;text-align:center;color:#ff0000;"">该文章还没有通过审核</div>")
				end if
				
			
				if rs("yn")= 0 then 
						If Rs("ReadPower") = "0" then
							Response.Write(Content)
						Else
							If Rs("ReadPower") <> "" then
								If (Not(Instr(","& Rs("ReadPower") &",",",0,") <> 0 Or Rs("ReadPower") = "0")) and rs("UserName") <> Angel_aspName Then
									If Instr(","& Rs("ReadPower") &",",","& UserInfo(Angel_aspID,0) &",") > 0 Then
										Response.Write(Content)
									Else
										Response.Write("<div style=""font-size:12px;color:#ff0000;text-align:center;padding:20px;"">对不起,你没有浏览权限,该文章只有<font color=blue>"&ShowlevelOption2(Rs("ReadPower"))&"</font>才能浏览</div>")
									End if
								Else
									Response.Write(Content)
								End if
							Else
								If CReadPower = "0" or CReadPower = "" then
									Response.Write(Content)
								Else
									If (Not(Instr(","& CReadPower &",",",0,") <> 0 Or CReadPower = "0")) and rs("UserName") <> Angel_aspName Then
										If Instr(","& CReadPower &",",","& UserInfo(Angel_aspID,0) &",") > 0 Then
											Response.Write(Content)
										Else
											Response.Write("<div style=""font-size:12px;color:#ff0000;text-align:center;padding:20px;"">对不起,你没有浏览权限,该文章只有<font color=blue>"&ShowlevelOption2(CReadPower)&"</font>才能浏览</div>")
										End if
									Else
										Response.Write(Content)
									End if								
								End if
							End if						
						End if
				end if
				%>
			</div>


        <div class="art_tags" id="p_keys" style="margin:5px 0px 15px;font-size:15px;font-family:Microsoft YaHei,SimSun;">
        
            <div id="copy">
			<%If IsAuthor =1 then%>作者：<%=rs("author")%><%End if:If rs("UserID")<>0 then Response.Write("　录入：<a href="""&SitePath&"User/ShowUser.asp?UserName="&rs("UserName")&""" title=""点击查看资料""><u>"&rs("UserName")&"</u></a>") end if%>　<%If IsFrom =1 then%>来源：<%=rs("CopyFrom")%><%End if%>
			</div>
            <%If rs("Vote")<>"" then Response.Write(""&ShowVoteList2(rs("Vote"))&"") End if%>
            <%If Iswz=1 then%><script type="text/javascript" src="<%=SitePath%>images/wz.js"></script><%End if%>
			<%Call ShowAD(2)%>
            <%If mood=1 then%>
			<div style="margin:0 auto;width:530px;">
            <script language="javascript">
			var infoid = '<%=ID%>';
			</script>
			<script language = "JavaScript" src ="<%=SitePath%>Inc/mood.asp?ID=<%=ID%>"></script>
            </div>
			<%End if%>
            <div class="sxart">
			<%=thehead%><%=thenext%>
            </div>

                       
        </div>
       <!--内容结束-->
               <!--返回-->
            <div style="border: 1px solid #C4D6EC; clear:both; text-align:center; background:#fff;margin-top:17px;">
<%Call ShowAD(18)%>
            </div>
<!--评论-->
<div class="rep_recom" style="margin-top:25px;">

		<%If IsPing=1 then%>
		<div id="web2l">
			<h6>相关评论</h6>
			<div id="list"><img src="<%=SiteTable%>images/loading.gif" /></div>
			<div id="MultiPage"></div>
			<div id="clear"></div>
			<h6>发表我的评论</h6>
			<div style="height:205px;">
			<div class="pingp">
			<%
			If PingNum=0 then
				Call ShowAD(5)
			else
            for i = 1 to PingNum%>
                <img src="<%=SitePath%>images/faces/<%=i%>.gif" onclick='insertTags("[angel:","]","<%=i%>")'/>
            <%
			Next
			End if
			%>
  			</div>			<div class="artpl">
				<ul>
					<li>大名：<input name="memAuthor" type="text" class="borderall" id="memAuthor" value="<%If IsUser=1 then Response.Write(""&UserName&"") else Response.Write(""&iparray(GetIP)&"") End if%>" Readonly maxlength="8"/>
					</li>
					<li>内容：<textarea name="memContent" cols="30" rows="8" style="width:250px;height:120px;" wrap="virtual" id="memContent" class="borderall"/></textarea></li>
					<li><input name="ArticleID" type="hidden" id="ArticleID" value="<%=ID%>" />
      <input name="button3" type="button"  class="borderall" style="width:66px;" id = "sendGuest" onClick="AddNew()" value="发 表" /></li>
	  			</ul>
	  		</div>
		</div></div><%end if%>
</div>
<!--评论结束-->
 <div class="tab_mod">
    <div class="tab_nav clearfix">
        <ul id="ulFooterRecmnd">
            <li class="cur" tab="1"><a href="http://www.angelasp.com/">相关文章</a></li>

        </ul>
    </div>
    <div class="tab_con">



<div class="pic_news" id="divFooterRecmnd">
<a href="http://www.hb.dfcjgc.com/h/2014/jswx_0115/1521.html" target="_blank"><img height="280" width="220" alt="" src="http://www.hb.dfcjgc.com/uploadfile/2014/0115/20140115103830224.jpg" /><span>习近平：以刮骨疗毒的勇气 将反</span></a></div>


<!--1-->
<div class="txt_news" tab="1">
<h3><a href="http://www.hb.dfcjgc.com/h/2014/jswx_0115/1523.html" title="河北省对百年以上古树名木实行编号挂牌保护" target="_blank">河北省对百年以上古树名木实行编号挂牌保护</a></h3>
<p>
<a href="http://www.hb.dfcjgc.com/h/2014/jswx_0115/1523.html" title="河北省对百年以上古树名木实行编号挂牌保护" target="_blank"> 河北新闻网讯（河北日报记者赵建）穿越千百年的沧桑岁月，古树名木从历史走来，挥动苍劲的枝桠向我们问候...</a></p>

<ul>  
<%=ShowMutualityArticle(ID,""&rs("KeyWord")&"",5,"·",0)%>
</ul>
</div>

    </div>

</div>
<p>&nbsp;</p>
<script type="text/javascript"> 
    $(function () {
        //图片延迟加载
        $('#divFooterRecmnd').find("img[original]").lazyload({
            placeholder: defImg,
            effect: 'fadeIn',
            threshold: 80
        });
 
        $('#ulFooterRecmnd').children("li").bind("mouseenter", function () {
            $(this).parent().children("li").removeClass("cur");
            $(this).addClass("cur");
 
            var tab = $(this).attr("tab");
            $('#divFooterRecmnd').parent().children("div.txt_news").hide();
            $('#divFooterRecmnd').parent().children("div[tab=" + tab + "]").show();
        });
    });
</script>
 
            </div>
        </div>
        <!-- 边栏 -->
        <div class="sider">
<!--总排行-->
<div class="mod_side">
    <div class="tit">新闻总排行</div>
    <div class="tab_cont">
<ol class="txt_list">
     	<%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
</ol>
    </div>
</div>
 
<div  class="side_ad" style="margin-bottom:15px;height:250px;">
<%Call ShowAD(3)%>
</div>
 
<!--本月排行-->
<div class="mod_side">
    <div class="tit">本月排行</div>
    <div class="tab_cont">
<ol class="txt_list">
         	<%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"IsHot=1","ID desc",0,0)%>
</ol>
    </div>
</div>
 
<!--图片-->
<div class="mod_side">
    <div class="tit">最新图片</div>
    <ul class="pics_list">
 <%Call ShowImgArticle(ID,6,10,"no","DateAndTime desc,ID desc")%>
</ul>
</div>
 
<script type="text/javascript"> 
    $(document).ready(function () {
        //图片延迟加载
        $('div.mod_side').find("img[original]").lazyload({
            placeholder: defImg,
            effect: 'fadeIn',
            threshold: 100
        });
    });
</script>
 
 
        </div>
    </div>     

<script type="text/javascript" src="<%=SitePath%>Ajaxpl.asp"></script>
<%End if%>
<%
rs.close
set rs=nothing
end if

	
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 ID,Title from "&tbname&"_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='"&SitePath&"Article_List.asp?ID="&a0&"'>"&a1&"</a></li>")
else If html=3 then
response.Write("<li>上一篇：<a href='"&SitePath&"News/"&a0&".html'>"&a1&"</a></li>")
Else
response.Write("<li>上一篇：<a href='"&SitePath&"News/?"&a0&".html'>"&a1&"</a></li>")
End if
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 "&tbname&"_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='"&SitePath&"Article_List.asp?ID="&a0&"'>"&a1&"</a></li>")
else If html=3 then
response.Write("<li>下一篇：<a href='"&SitePath&"News/"&a0&".html'>"&a1&"</a></li>")
Else
response.Write("<li>下一篇：<a href='"&SitePath&"News/?"&a0&".html'>"&a1&"</a></li>")
End if
end if
end if
newrs.close
set newrs=nothing
end function
%>
<%=Copy%>

</div>
</body>
</html>