<!--#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 Qianbo_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")
    SortPath = rs("SortPath")
    AddTime = rs("AddTime")
    Content = rs("Content")
End If
rs.Close
Set rs = Nothing
%>
<!DOCTYPE html>
<html lang="zh-CN">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=Edge,chrome=1">
<meta name="renderer" content="webkit">
<meta name="viewport" content="initial-scale=1.0,user-scalable=no,maximum-scale=1,width=device-width">
<title><%=SeoTitle %> - <%=SiteTitle %></title>
<meta name="keywords" content="<%=SeoKeywords %>" />
<meta name="description" content="<%=SeoDescription %>" />
<link rel="stylesheet" id="rs-plugin-settings-css"  href="/Images/assets/css/settings.css?ver=5.2.5" type="text/css" media="all" />
<style id="rs-plugin-settings-inline-css" type="text/css">
.tp-caption a { color: #ff7302; text-shadow: none; -webkit-transition: all 0.2s ease-out; -moz-transition: all 0.2s ease-out; -o-transition: all 0.2s ease-out; -ms-transition: all 0.2s ease-out; }
.tp-caption a:hover { color: #ffa902; }
.tp-caption a { color: #ff7302; text-shadow: none; -webkit-transition: all 0.2s ease-out; -moz-transition: all 0.2s ease-out; -o-transition: all 0.2s ease-out; -ms-transition: all 0.2s ease-out; }
.tp-caption a:hover { color: #ffa902; }
.tp-caption a.btn, .tp-caption a.btn:hover { color: #fff; }
</style>
<link rel="stylesheet" id="stylesheet-css"  href="/Images/themes/css/style.css?ver=1.5" type="text/css" media="all" />
<script type="text/javascript" src="/Images/themes/js/jquery.min.js?ver=1.11.3"></script>
<script type="text/javascript" src="/Images/assets/js/jquery.themepunch.tools.min.js?ver=5.2.5"></script>
<script type="text/javascript" src="/Images/assets/js/jquery.themepunch.revolution.min.js?ver=5.2.5"></script>
<meta name="applicable-device" content="pc,mobile">
<style>
a, .page-title .title span, .sidebar .widget-title span, .header-1 .header-menu .navbar-nav > li.active > a, .header-1 .header-menu .navbar-nav > li.active > a:hover, .header-1 .header-menu .navbar-nav > li > a:hover, .header-1 .header-menu .navbar-nav > li > a:focus, .header-1 .header-menu .navbar-nav > li > a:active, .header-1 .header-menu .navbar-nav > li:hover > a, .sec-title span, .tel-title, .tel-num, .tell-icon, .header-2 .navbar-nav > li.active > a, .header-2 .search-icon:hover { color: #0088cc; }
a:hover, .sidebar .widget ul a:hover, .sidebar .widget ol a:hover, .post-list .entry-title a:hover, .sec-title .more:hover, .p-item-wrap:hover .title a, .news-list a:hover, .bookmarks a:hover, .header-2 .navbar-nav > li a:hover { color: #0077cc; }
.search-form input.submit, .header-1 .header-menu, .header-1 .header-menu .dropdown-menu > li > a:hover, .header-1 .header-menu .dropdown-menu > li > a:focus, .q-href .q-img:after, .pagination .current, .pagination a:hover, .sidebar .widget_nav_menu, .action .contact-title, .flex-control-paging li a.flex-active, .navbar-default .navbar-toggle:active .icon-bar, .navbar-default .navbar-toggle:hover .icon-bar, .navbar-default .navbar-toggle:focus .icon-bar, .header-1 .navbar-collapse, .dropdown-menu > .active > a, .dropdown-menu > .active > a:hover, .dropdown-menu > .active > a:focus, .form-submit .submit { background-color: #0088cc; }
.search-form input.submit:hover, .sidebar .widget_nav_menu ul li.current-menu-item a, .sidebar .widget_nav_menu ul li.current-post-parent a, .sidebar .widget_nav_menu ul li a:hover, .sidebar .widget_nav_menu ul li.current-menu-item .sub-menu a:hover, .sidebar .widget_nav_menu ul li.current-post-parent .sub-menu a:hover, .action .a-box:hover, .header-1 .header-menu .search-index .search-form input.submit, .flex-control-paging li a:hover, .form-submit .submit:hover { background-color: #0077cc; }
.header-2 .navbar-nav > li.active > a { border-top-color: #0088cc; }
.header-2 .navbar-nav > li a:hover { border-top-color: #0077cc; }
.sec-title span, .sidebar .widget-title span, .page-title .title span { border-bottom-color: #0088cc; }
.p-item-wrap:hover { border-color: #0077cc; }
.tell-icon, .comment-respond input:focus, .comment-form-comment textarea:focus { border-color: #0088cc; }
.j-share { position: fixed !important; top: 50% !important; }
.footer { color: #666; background: #f3f3f3; }
.footer a { color: #666; }
.footer a:hover { color: #333; }
.footer .menu li, .footer .footer-menu li { border-right-color: #666; }
</style>
<script> (function() {if (!/*@cc_on!@*/0) return;var e = "abbr, article, aside, audio, canvas, datalist, details, dialog, eventsource, figure, footer, header, hgroup, mark, menu, meter, nav, output, progress, section, time, video".split(', ');var i= e.length; while (i--){ document.createElement(e[i]) } })()</script>
<!--[if lte IE 8]><script src="/Images/themes/js/respond.min.js"></script><![endif]-->
</head>
<body class="home blog">
<!--#include file="Header.Asp"-->
<div id="wrap">
  <div class="banner"><img src="/Images/themes/images/banner.jpg" alt="内页Banner"></div>
  <div class="container wrap">
    <div class="main">
      <div class="page-title clearfix" id="j-post-head">
        <ol class="breadcrumb">
          <li class="home"><i class="fa fa-map-marker"></i> <a href="/">首页</a></li>
          <%=WebLocation()%>
          <li class="active"><%=SeoTitle %></li>
        </ol>
        <h3 class="title pull-left" id="j-title"><span>您的位置</span></h3>
      </div>
      <div class="entry">
        <h2 class="entry-title"><%=SeoTitle%></h2>
        <div class="entry-meta"><span><i class="fa fa-calendar"></i> <%=AddTime%></span></div>
        <div class="entry-content">
          <div class="alert alert-info" role="alert"><%=SeoDescription%></div>
          <%=Content%>
        </div>
        <div class="entry-footer">
          <div class="entry-tag"><i class="fa fa-tags"></i> 标签：<%If Instr(SeoKeywords, ",") > 0 Then Response.Write Replace(SeoKeywords, ",", " ") Else Response.Write SeoKeywords End If%></div>
        </div>
      </div>
    </div>
    <aside class="hidden-xs sidebar">
      <div id="nav_menu-3" class="widget widget_nav_menu">
        <h3 class="widget-title"><span>快捷导航</span></h3>
        <div>
          <ul class="menu">
            <%=WebMenu()%>
          </ul>
        </div>
      </div>
<!--#include file="Left.Asp"-->
    </aside>
  </div>
</div>
<!--#include file="Footer.Asp"-->
</body>
</html>
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("Adodb.Recordset")
    sql = "Select * From Qianbo_NewsSort Where ViewFlag And ParentID <> 0 Order By ID Asc"
    rs.Open sql, conn, 1, 1
    If Not rs.EOF Then
        Do
            If ISHTML = 1 Then
                AutoLink = "" & NewSortName & Separated & rs("ID") & Separated & "." & HTMLName & ""
            Else
                AutoLink = "NewsList.Asp?SortID=" & rs("ID") & ""
            End If
            If SortPath = rs("SortPath") Then
                tmpCss = " current-menu-item"
            Else
                tmpCss = ""
            End If
            Response.Write "<li class=""menu-item menu-item-type-post_type menu-item-object-page" & tmpCss & """><a href=""" & AutoLink & """>" & rs("SortName") & "</a></li>"
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "<li><a href=""News.html"">新闻动态</a></li>"
    If Request.QueryString("ID") = "" Then
        WebLocation = WebLocation
    ElseIf Not IsNumeric(Request.QueryString("ID")) Then
        WebLocation = WebLocation & "读取错误"
    ElseIf conn.Execute("Select * From Qianbo_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 Qianbo_News Where ViewFlag And ID = " & Request.QueryString("ID")
        rs.Open sql, conn, 1, 1
        WebLocation = WebLocation & SortPathTXT("Qianbo_NewsSort", rs("SortID"))
        rs.Close
        Set rs = Nothing
    End If
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")) & "<li><a href=""" & AutoLink & """>" & rs("SortName") & "</a></li>"
    End If
    rs.Close
    Set rs = Nothing
End Function
%>