<!--#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
If request.QueryString("ID") = "" Then
    SeoTitle = "关于我们"
ElseIf Not IsNumeric(request.QueryString("ID")) Then
    SeoTitle = "参数错误"
ElseIf conn.Execute("select * from Qianbo_About Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
    SeoTitle = "参数错误"
Else
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID")
    rs.Open sql, conn, 1, 1
    SeoTitle = rs("AboutName")
    rs.Close
    Set rs = Nothing
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=utf-8" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<link rel="stylesheet" type="text/css" href="images/css.css" />
</head>

<body>
<div id="wrapper">
  <!--#include file="Top.Asp" -->
  <div class="height7"></div>
  <div id="mainWrapper">
    <div class="content">
      <div id="innerContent">
        <div class="siteMapPath"><a href="<%=SysRootDir%>">首页</a> - <a href="About.Asp">
          <h2>关于我们</h2>
          </a></div>
        <div class="pageMainContent">
          <div class="tl"></div>
          <div class="tr"></div>
          <div class="tm">
            <h2 class="tt"><%=SeoTitle%></h2>
          </div>
          <div class="pack">
            <div class="ml"></div>
            <div class="mr"></div>
<%
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then
    sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc"
Else
    sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID")
End If
rs.Open sql, conn, 1, 3
If rs.EOF Then
%>
            <div class="mm">暂无相关信息</div>
<%
Else
    If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
%>
            <div class="mm">更新时间：<font color="#666666"><%=FormatDate(rs("UpdateTime"),13)%></font> 浏览次数：<font color="#666666">
              <script language="javascript" src="HitCount.Asp?id=<%=rs("ID")%>&LX=Qianbo_About"></script>
              <script language="javascript" src="HitCount.Asp?action=count&LX=Qianbo_About&id=<%=rs("ID")%>"></script>
              </font></div>
            <div class="mm" style="line-height: 25px"><%=rs("Content")%></div>
<%else%>
            <div class="mm" align="center">无查看权限</div>
<%
End If
rs.update
End If
rs.Close
Set rs = Nothing
%>
          </div>
          <div class="bl"></div>
          <div class="br"></div>
          <div class="bm"></div>
        </div>
      </div>
    </div>
    <div id="sidebar" class="sidebar">
      <div class="lframe">
        <div class="tm">
          <h2 class="tt">当前分类</h2>
        </div>
        <div class="mm">
          <ul class="nl">
            <%=WebMenu()%>
          </ul>
        </div>
      </div>
      <!--#include file="Left.Asp" -->
    </div>
  </div>
  <!--#include file="End.Asp" -->
</div>
</body>
</html>
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "<center>暂无相关信息</center>"
    Else
        Do
            If ISHTML = 1 Then
                AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "About.Asp?ID="&rs("ID")&""
            End If
            response.Write "<li><a href="""&AutoLink&""">"&rs("AboutName")&"</a></li>"&vbCrLf
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
End Function
%>