<!--#include file="Include/Const.asp" -->
<!--#include file="Include/Conn.asp" -->
<%
ID=trim(request("id"))
SortID=request("sortID")
isshow=Trim(request.QueryString("isshow"))
set Rs=server.createobject("adodb.recordset")
If isshow="yes" Then 
SQL="select * from Angel_Article where ID="&ID
Else 
SQL="select * from Angel_Article where ViewFlag and ID="&ID
End If 
Rs.open SQL,conn,1,3
if not (Rs.eof or Rs.bof) then
   ArticleName=rs("ArticleName")
   Author =rs("Author")
   Content=rs("Content")
   KeyWord=rs("KeyWord")
   LDescription=rs("Description")
   Addtime=Rs("Addtime")
   SortID=rs("SortID")
   rs("ClickNumber")=rs("ClickNumber")+1
   ClickNumber=rs("ClickNumber")
   Rs.update
else
   response.Write"<script language=javascript> alert('数据库异常出错！');history.back(-1);</script>"
   response.end
end if
Rs.Close
set Rs=nothing
%>
<!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>
<title><%=ArticleName&SiteTitle2%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=KeyWord&Keywords2%>-powered by angelasp.com" />
<meta name="description" content="<%=LDescription&lDescription2%>-powered by angelasp.com" />
<link rel="stylesheet" type="text/css" href="css/base.css" />
<link href='xcss/angelaspmain.css' type='text/css' rel='stylesheet' />
<link href='xcss/baseindex.css' type='text/css' rel='stylesheet' />
<link href='xcss/baseyyangel.css' type='text/css' rel='stylesheet' />
<link href='xcss/style.css' type='text/css' rel='stylesheet' />
<script type="text/javascript" src="xjs/jquery-1.9.0.min.js" charset="gb2312"></script>
<script type="text/javascript" src="xjs/common01.js" charset="gb2312"></script>
<script type="text/javascript" src="xjs/jquery.marquee.js"></script>
<script type="text/javascript" src="xjs/xes.core.js" charset="gb2312"></script>
<script type="text/javascript" src="xjs/common.js" charset="gb2312"></script>
<script type="text/javascript" src="xjs/xes.cookie.js" charset="gb2312"></script>
<script type="text/javascript" src="xjs/xes.dialog.js" charset="gb2312"></script>
<script type="text/javascript" src="<%=AngelSysRootDir%>js/downnav.js" language="javascript" ></script>
<!--[if IE]>
<script src="xjs/html5.js"></script>
<![endif]-->
</head>

<body>
  
<!--#include file="head.asp"-->

<section class="sk-content relative">
  <div class="bar-blue03"></div>
  <section class="relative sk-wrapper whiteBg">
     <div class="sk-wrapper02"> 
       <!-- help-leftSide -->
       <aside class="help-left">
         <menu>
           <h3>学校新闻</h3>
		<ul>
           <%= NewMenulist()%>
		</ul>
         </menu>
       </aside>
       <!-- help-Content -->
       <section class="help-content">
           <div class="pd25">
                <h2 class="helpTitle"><%=ArticleName%></h2>
					<div class="meta">
							<span class="item">分类：<%=SortPathTXT("Angel_ArticleSort",SortID)%></span>
							<span class="item">作者：<span class="yellow"><%=Author%></span></span>
							<span class="item">点击：<%=ClickNumber%></span>
							<span class="item">发布：<span class="grey"><%=Addtime%></span></span>
						</div>
                <div class="mtop20">
                <%=Content%>		
                </div>
           </div>
        </section>
        
        <div class="clear"></div>
        
      </div>
  </section>
</section>
<section class="sk-wrapper footer txt_idt clearfix">
</section>
 <!--#include file="foot.asp"-->
<!--#include file="Angelqq/qqshow.asp" -->
 <script type="text/javascript" src="<%=AngelSysRootDir%>js/screen.js"></script>
</body>
</html>

<%
function NewMenulist()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Angel_ArticleSort where 1=1 order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from Angel_ArticleSort Where 1=1 ").eof then
    response.write "暂无咨询分类"
  end if
  do while not rs.eof
	AutoLink = "NewsList.asp?SortID="&rs("ID")&""
	response.write "<li><a href="""&AutoLink&""" title="""&rs("SortName")&"""><span>"&rs("SortName")&"</span></a></li>"&Vbcrlf
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end Function



function WebLocation()
  WebLocation="<a href=""index.asp"" title=""首页"" id=""index""><img src=""images/index.jpg"" alt=""首页""/>&nbsp;网站首页</a> > <a href="""&AngelSysRootDir&"NewsList.asp"" class=""agray"">咨讯中心</a>"&VbCrLf
  if request.QueryString("SortID")="" then
    WebLocation=WebLocation
  elseif not IsNumeric(request.QueryString("SortID")) then
    WebLocation=WebLocation&"参数错误"
  elseif conn.execute("select * from Angel_ArticleSort Where ID="&request.QueryString("SortID")).eof then
    WebLocation=WebLocation&"参数错误"
  else
  WebLocation=WebLocation&SortPathTXT("Angel_ArticleSort",request.QueryString("SortID"))
  end if
end Function

function SortPathTXT(DataFrom,ID)
  dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ID="&ID
  rs.open sql,conn,1,1
  if not rs.eof Then
   AutoLink = ""&AngelSysRootDir&"NewsList.asp?SortID="&rs("ID")&""
	SortPathTXT=" > <a href="""&AutoLink&""">"&rs("SortName")&"</a>"
  end if
  rs.close
  set rs=nothing
end function



%>

