<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% response.charset="utf-8" %>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/NoSqlHack.Asp" -->
<!--#include file="../Include/ListSort.asp" -->


<%
if request.QueryString("ID")="" then
SeoTitle="关于我们"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="参数错误"
elseif conn.execute("select * from Ameav_About Where ViewFlag and  ID="&request.QueryString("ID")).eof then
SeoTitle="参数错误"
else
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_About where ViewFlag and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("AboutName")
rs.close
set rs=nothing
end if
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2006-2010 - Ameav.com" />
<META NAME="Author" CONTENT="迅易技术支持---www.ameav.com" />
<META NAME="Keywords" CONTENT="<% =Keywords %>" />
<META NAME="Description" CONTENT="<% =Descriptions %>" />
<TITLE><%=SiteTitle %>-关于我们-<% =SeoTitle %></TITLE>
<link rel="stylesheet" href="../Images/CssHtml.css">
<script language="javascript" src="../Script/Html.js"></script>
</HEAD>
<BODY>
<!--#include file="Head.asp"-->
<div align="center">
  <table width="980" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="220" valign="top" class="leftCenter" >
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="12%" align="center"><img src="../Images/ico.gif" width="12" height="28"></td>
          <td width="96%"><span style="font-weight: bold">关于我们</span></td>
        </tr>
        <tr>
          <td colspan="2" align="center"><img src="../Images/Lline2.gif" width="185" height="1"></td>
        </tr>
      </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="right">
		  <table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
            <tr>
              <td align="right" ><% =WebMenu() %></td>
              <td width="10" align="right" >&nbsp;</td>
            </tr>
          </table></td>
        </tr>
        
        <tr>
          <td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="12%" align="center"><img src="../Images/ico.gif" width="12" height="28"></td>
              <td width="96%"><span style="font-weight: bold">信息搜索</span></td>
            </tr>
            <tr>
              <td colspan="2" align="center"><img src="../Images/Lline2.gif" width="185" height="1"></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td align="center"><%=SearchForm()%></td>
        </tr>
      </table>
      </td>
      <td width="5"></td>
      <td valign="top">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="30" align="center"   ><img src="../Images/ico01.gif" width="12" height="12"></td>
          <td  class="Location">
		  <a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='About.asp'>关于我们</a><% =WebLocation %>		  </td>
          </tr>
        <tr>
          <td height="1" colspan="2"    background="../Images/TitBG.gif"></td>
        </tr>
      </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><%=WebContent()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%
function WebMenu()
  dim rs,sql,i
  set rs = server.createobject("adodb.recordset")
  sql="select ID,AboutName from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  response.write"<table width='150' border='0' cellspacing='0' cellpadding='0' align='right' >"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    do
      response.write "<tr class='WebMenu' ><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td ><a href='About.asp?ID="&rs("ID")&"'>"&rs("AboutName")&"</a></td></tr>"
      rs.movenext
    loop until rs.eof
  end if
  response.write"</table>"
  rs.close
  set rs=nothing
end function

function WebLocation()
  dim ID
  ID=request.QueryString("ID")
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" then
	sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
  else
	sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_About where ViewFlag and not ChildFlag and ID="&ID
  end if
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    WebLocation="<img src='../Images/Arrow_02.gif' align='absmiddle'>错误"
  else
    WebLocation="<img src='../Images/Arrow_02.gif' align='absmiddle'>"&rs("AboutName")
  end if
  rs.close
  set rs=nothing
end function

function WebContent()
  dim ID
  ID=request.QueryString("ID")
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" then
	sql="select top 1 ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
  else
	sql="select ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag and ID="&ID
  end if
  rs.open sql,conn,1,3
  if not rs.eof then
	numbers=len(rs("content"))  '总字节数
	pagenum=Sitenum            '每页显示的数量
	maxpage=-int(-numbers/pagenum)'总页数
	requestpage=clng(request("p"))'接收页码
	if requestpage="" or requestpage=0 then'获取默认页码
	requestpage=1
	end if
	if requestpage>maxpage then  '当前页的页码大于最大页码时，使当前页码等于最大页码
	requestpage=maxpage
	end if
	if not requestpage=1 then  '当前页码不等于1时，向下移动相应的字节数
	content=mid(rs("content"),(requestpage-1)*pagenum+1,Sitenum)
	else
	content=left(rs("content"),Sitenum) '当页码等于1时，截取相应文本
	end if
	if isempty(requestpage) then  
             thispage=1  
            else  
             thispage=cint(requestpage)  
     end if  
    response.write "<div align='center' ><font style='font-size:14px;font-weight: bold;color: #ff0000'>"&rs("AboutName")&"</font></div>"
    response.write "<div align='center'><br>新闻来源："&rs("Source")&"&nbsp;&nbsp;&nbsp;&nbsp;点击数："&rs("ClickNumber")&"&nbsp;&nbsp;&nbsp;&nbsp;更新时间："&rs("AddTime")&"&nbsp;&nbsp;&nbsp;&nbsp;<a style='cursor:hand'  onclick='window.external.AddFavorite(location.href,document.title);' >收藏此页</a></div>"
	response.write "<hr width='100%' size='1' noshade='noshade' color='#FF0000'>"
    if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
	%>
     <%=Replace(content,chr(13),"<br>")%>
	<%
	  rs("ClickNumber")=rs("ClickNumber")+1
	else
	  WebContent="<div align='center'><img src='../Images/NoRight.jpg'></div>"
	end if
	response.write "<div align='right'><br>总页数：<font color=red>"&maxpage&"</font>&nbsp;&nbsp;第&nbsp;&nbsp;"
	  for i=1 to maxpage
         if thispage=i then  
          response.write ""&i&"&nbsp;&nbsp;"  
         else 
		 response.write "<a href='?p="&i&"&ID="&ID&"'>"&i&"</a>&nbsp;&nbsp;" 
     ' response.write "<a href='?p="&i&"'>"&i&"</a>&nbsp;"
	   end if
	   next
	response.write "页&nbsp;<a href='#TOP'><img src='../Images/Button_top_01.gif' align='absbottom' border='0'></a></div>"
	rs.update
	rs.close
  else
    response.write "<div align='center'>暂无相关信息</div>"
  end if
  response.write "<div ><hr width='100%' size='1' noshade='noshade' color='#FF0000'></div>"
  response.write "<div align='right' style=line-height:30px;> <a onClick='history.go(0)'>【刷新页面】</a><a style='cursor:hand'  onclick='window.external.AddFavorite(location.href,document.title);' >【加入收藏】</a><A href='javascript:window.print();'>【打印此文】</A> <a onClick='window.self.close()'>【关闭窗口】</a></div>"

  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->