<!--#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=gbk" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<link href="css/public.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<script language="javascript" src="Scripts/Html.js"></script>
</head>
<!--#include file="Top.asp" -->
<table width="980"  border="0" cellspacing="0" cellpadding="0" bgcolor="#E6EAE4" align="center">
  <tr>
    <td width="232" height="47" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="232" height="47" background="/img/otitle_top.gif"><table width="100%"  border="0" cellspacing="0" 

cellpadding="0">
          <tr>
            <td width="14%"> </td>
            <td width="86%" id=di>栏目导航</td>
          </tr>
		  <tr>
            <td width="14%" height="10"></td>
            <td width="86%"></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td background="/img/ocontent_bg.gif"><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><div id="nav"><%=WebMenu()%></div></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="/img/obuttom_bg.gif" width="232" height="30"></td>
      </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="4"></td>
        </tr>
      </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="232" height="47" background="/img/otitle_top.gif"><table width="100%"  border="0" cellspacing="0" 

cellpadding="0">
              <tr>
                <td width="14%"></td>
                <td width="86%"  id=di>全站搜索</td>
              </tr>
              <tr>
                <td width="14%" height="10"></td>
                <td width="86%"></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td background="/img/ocontent_bg.gif"><table width="90%"  border="0" align="center" cellpadding="0" 

cellspacing="0">
              <tr>
                <td><!--#include file="Center_Left.asp" --></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td><img src="/img/obuttom_bg.gif" width="232" height="30"></td>
        </tr>
      </table></td>
    <td width="8"></td>
    <td width="740" valign="top">
       <table width="740"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="740" height="50" background="/img/search.gif">&nbsp;&nbsp;<img src="images/arr6.gif" width="9" height="9" align="absmiddle" />&nbsp;<%=WebLocation()%></td>
        </tr>
      </table>
	  
	  <table width="740"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="740" height="33" background="img/list3.gif"><table width="100%"  border="0" cellspacing="0" 

cellpadding="0">
              <tr>
                <td width="6%"> </td>
                <td width="17%" id=di><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
  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
%>
        <tr>
          <td align="center">暂无信息</td>
        </tr>
<%
  Else
	if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
%>
        <tr>
          <td> &nbsp;<%=rs("AboutName")%></td>
        </tr>
	</table></td>
                <td width="77%"></td>
              </tr>
            </table></td>
          </tr>
          <tr>
            <td>
              <table width="740"  border="0" cellspacing="5" cellpadding="0" style="BORDER-RIGHT: #D0D4CE 1px solid; 

BORDER-LEFT: #D0D4CE 1px solid;" bgcolor="#FFFFFF">
                <tr>
                  <td>
				  
		  
		
		
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:19px;">
        <tr>
          <td style="line-height:25px; font-size:12px; padding-left: 8px; padding-right: 8px"><%=rs("Content")%></td>
        </tr>
<%
	else
%>
        <tr>
          <td align="center"><img src="Images/NoRight.jpg"></td>
        </tr>
<%
	end if
	rs.update
  end if
  rs.close
  set rs=nothing
%>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
      </table>
				  
				  
				  
				  
				  </td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td><img src="img/list4.gif" width="740" height="6"></td>
          </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="End.asp"-->
<%
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 "<a href="""&AutoLink&""">"&rs("AboutName")&"</a>"&VbCrLf
		rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function

function WebLocation()
  WebLocation="&nbsp;当前位置：<a href=""index.asp"">首 页</a>  - "&VbCrLf
  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,1
  if rs.eof then
    WebLocation=WebLocation&"参数错误"
  else
    WebLocation=WebLocation&""&rs("AboutName")
  end if
  rs.close
  set rs=nothing
end Function
%>