<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
ID = request.QueryString("ID")
If ID <> "" Or IsNumeric(ID) Then
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_News where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    If rs("SeoKeywords") <> "" Then
        SeoKeywords = rs("SeoKeywords")
    Else
        SeoKeywords = rs("NewsName")
    End If
    If rs("SeoDescription") <> "" Then
        SeoDescription = rs("SeoDescription")
    Else
        SeoDescription = rs("NewsName")
    End If
    SeoTitle = rs("NewsName")
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>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =SeoKeywords %>" />
<meta name="description" content="<% =SeoDescription %>" />
<!--#include file="head.Asp" --> 
<div class="intropg_banner_bg_3">
    <div class="intropg_banner"> <img src="/template/shenbi2012_mrs/images/news_bad.png" alt="新闻中心" /> </div>
</div>
<div class="news_bg">
  <div class="news">
    <div class="new_roll" id="roll"> <%=News("0,")%></div>
    <script type="text/javascript" src="script/news.js"></script>
    <div class="location" ><%=WebLocation()%></div>
  </div>
</div>
<div class="main" id="wrap">
     <div class="main_bg_top"></div>
	 <div class="main_bg_zh">
	   <div class="about_us"><img src="/images/news_01.jpg" /></div>
	   <div class="about_us_lei">
	     <ul>
                 <%=WebMenu(0,0,2)%> 
		   <li><a href="/Contact.html"  title="联系我们">联系我们</a></li>
		 </ul>
	   </div>
	 <div class="about_us_tt"></div>
	 <div class="about_top">

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
                  
                  <tr>
                    <td height="40" align="center" valign="middle"  style="border-bottom:#CCCCCC 1px solid"><h2>
                    <%
ID = request.QueryString("ID")
If ID = "" Or Not IsNumeric(ID) Then
    response.Write "<center>暂无相关信息</center>"
ElseIf conn.Execute("select * from Shenbi_News Where ViewFlag and  ID="&ID).EOF Then
    response.Write "<center>暂无相关信息</center>"
Else
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_News where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    Response.Write ""&rs("NewsName")&""&vbCrLf
End If
If Request("page") = "" Then
    pageNum = 0
Else
    pageNum = Request("page")
End If
%>
                    </h2></td>
                  </tr>
                            <%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then	
    Response.Write "          <td height=""26"" align=""center"">发布时间："&FormatDate(rs("Addtime"), 13)&" &nbsp;&nbsp;&nbsp; 新闻来源："&rs("Source")&" &nbsp;&nbsp;&nbsp;浏览次数：<script language=""javascript"" src=""/HitCount.Asp?id="&rs("ID")&"&LX=Shenbi_News""></script><script language=""javascript"" src=""/HitCount.Asp?action=count&LX=Shenbi_News&id="&rs("ID")&"""></script></td>"&vbCrLf
%>
  </tr>  
  <tr>
    <td align="left" valign="top" class="hg" style="font-size:14px ;width:100%; margin-top:15px; overflow:hidden;line-height:150%;text-align:justify;text-justify:inter-ideograph" id="fontzoom">
    <%
ContentStr = Split(rs("Content"), "{＄html_Paging＄}")
For i = pageNum To pageNum
%>
<div  class=""imgkz"">
<%=ProcessSitelink(ContentStr(i)) %>
</div>
<% Next %>
<%
Else
    Response.Write "        <tr>"&vbCrLf
    Response.Write "          <td align=""center""><img src=""/Images/NoRight.jpg""></td>"&vbCrLf
    Response.Write "        </tr>"&vbCrLf
End If
rs.update
rs.Close
Set rs = Nothing
%>    </td>
  </tr>
  <tr>
    <td height="26" align="center">【字体：<a 
            class="black1" href="javascript:fontZoom(16)">大</a> <a class="black1" 
            href="javascript:fontZoom(14)">中</a> <a class="black1" 
            href="javascript:fontZoom(12)">小</a>】 【 <a href="javascript:window.print()" class="black">打印本页</a> 】 【 <a href="javascript:window.close()" class="black">关闭窗口</a> 】
<SCRIPT language=JavaScript>
function fontZoom(size)
{
 document.getElementById('fontzoom').style.fontSize=size+'px'
}
</SCRIPT> </td>
  </tr>
                </table>

	 </div>
     </div>
	 <div class="main_bg_bottom"></div>
   </div>
<!--#include file="End.Asp"-->
</body>
</html>
<%
Function WebMenu(ParentID, i, level)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
    rs.Open sql, conn, 1, 1
    If conn.Execute("select ID from Shenbi_NewsSort Where ViewFlag and ParentID=0").EOF Then
        response.Write "<center>暂无相关信息</center>"
    End If
    Do While Not rs.EOF
        If ISHTML = 1 Then
            AutoLink = "/"&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "NewsList.Asp?SortID="&rs("ID")&""
        End If
		response.Write "<li><a href="""&AutoLink&""">"&rs("SortName")&"</a></li>"&vbCrLf
        response.Write "<li><img src=""/images/about_dian_15.jpg"" /></li>"
        'i=i+1
        'if i<level then call WebMenu(rs("ID"),i,level)
        'i=i-1
        rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""/"" class=""agray"">首页</a> - <a href=""/Biaoqian.html"" class=""agray"">新闻动态</a>"&vbCrLf
    If request.QueryString("ID") = "" Then
        WebLocation = WebLocation
    ElseIf Not IsNumeric(request.QueryString("ID")) Then
        WebLocation = WebLocation&"读取错误"
    ElseIf conn.Execute("select * from Shenbi_News Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
        WebLocation = WebLocation&"读取错误"
    Else
        Dim rs, sql
        Set rs = server.CreateObject("adodb.recordset")
        sql = "select * from Shenbi_News where ViewFlag and ID="&request.QueryString("ID")
        rs.Open sql, conn, 1, 1
        WebLocation = WebLocation&SortPathTXT("Shenbi_NewsSort", rs("SortID"))
        rs.Close
        Set rs = Nothing
    End If
End Function

Function News(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 10 * from Shenbi_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If Now() - rs("AddTime")<= 2 Then
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
            Response.Write "<tr>"
            Response.Write "<td class=""news_title""><a href="""&AutoLink&""" title="""&NewsName&""" style = ""color:;"" target=""_blank"">"&NewsName&"</a> ["&FormatDate(rs("Addtime"), 13)&"]</td>"
            Response.Write "<td><div id=""new_icon""></div></td>"
            Response.Write "</tr>"
            Response.Write "</table>"
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Function SortPathTXT(DataFrom, ID)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "Select * From "&DataFrom&" where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 1
    If Not rs.EOF Then
        If ISHTML = 1 Then
            AutoLink = "/"&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "NewsList.Asp?SortID="&rs("ID")&""
        End If
        SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - <a href="""&AutoLink&"""><span style=""color:#EC0000"">"&rs("SortName")&"</span></a>"
    End If
    rs.Close
    Set rs = Nothing
End Function
%>