<!--#include file="Config.asp" -->
<TITLE>关于我们 - <%=SiteTitle %></TITLE>
<!--#include file="Head.asp"-->
<div align="center">
<div class="outsite" align="left">

<!-- 左边内容开始 -->
<div class="LeftBox">
<% About() %>
</div>

<!-- 右边内容开始 -->
<div class="RightBox">
<div class="Title">关于我们</div>
<% AboutMenu() %>
<% =ads(4) %>
</div>

</div>
</div>
<!--#include file="Foot.asp"-->
<%
'==========================================
'企业信息调用
'==========================================
Function About()
  dim rs,sql,id
  ID=CheckSql(Trim(request.QueryString("id")))
  If ID="" Then ID=1
  set rs = server.createobject("adodb.recordset")
  sql="select ID,Title,Content,ViewNum,AddTime from eims_About where ViewFlag and ID="&ID
  rs.open sql,conn,1,3
  if not rs.eof then
  response.write "<div align='center'><h3>"&rs("Title")&"</h3></div>"
    response.write "<div align='center'>点击数："&rs("ViewNum")&"&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='98%' size='1' noshade='noshade' color='#cccccc' align='center'>"
'==========================================
'去掉头尾的换行符：<p></p>
'==========================================
	WebContent=rs("content")	
	If Left(WebContent,3)="<p>" Then WebContent=Right(WebContent,(Len(WebContent)-3))
	If Right(WebContent,4)="</p>" Then WebContent=Left(WebContent,(Len(WebContent)-4))
    response.write "<div class='ContentIn'>"&WebContent&"</div>"
	
	rs("ViewNum")=rs("ViewNum")+1
	rs.update	
  else
    response.write "<div align='center' class='content'>暂无相关信息</div>"
  end if
  response.write "<hr width='98%' size='1' noshade='noshade' color='#cccccc' align='center'>"
  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>"
rs.close
set rs=nothing
End Function
'==========================================
'关于我们分类
'==========================================
function AboutMenu()
  dim rs,sql,i
  set rs = server.createobject("adodb.recordset")
  sql="select id,Title from [eims_About] where ViewFlag order by Sequence asc" 
  rs.open sql,conn,1,1
  response.write"<div class='content'>"
  if rs.bof and rs.eof then
    response.write "暂无相关信息"
  else
    do
      response.write "<div class='WebMenu'><a href='about.asp?ID="&rs("ID")&"'>"&rs("Title")&"</a></div>"
      rs.movenext
    loop until rs.eof
  end if
  response.write "</div>"
  rs.close
  set rs=nothing
end function
%>