<!--#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 Shenbi_About Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
    SeoTitle = "参数错误"
Else
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_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 %>" />
<!--#include file="About_head.Asp" --> 
<div class="intropg_banner_bg_2">
    <div class="intropg_banner"> <img src="/template/shenbi2012_mrs/images/about_bg.png" alt="关于我们" /> </div>
</div>
<div class="news_bg">
  <div class="news">
    <div class="new_roll" id="roll"> <%=News("0,")%></div>
    <script type="text/javascript" src="script/news.js"></script>
    <div class="location" ><%=WebLocation()%></div>
  </div>
</div>
<div class="main" id="wrap"> 
     <div class="main_bg_top"></div>
	 <div class="main_bg_zh">
                                                                       <%
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 Shenbi_About where ViewFlag and not ChildFlag order by Sequence asc"
Else
    sql = "select * from Shenbi_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
%>
	   <div class="about_us"><img src="<%=rs("icon")%>" /></div>
	   <div class="about_us_lei">
	     <ul>
                 <%=WebMenu()%>
		   <li><a href="/Contact.html"  title="联系我们">联系我们</a></li>
		 </ul>
	   </div>
	 <div class="about_us_tt"></div>
	 <div class="about_top">
  <%=rs("Content")%>
	 </div>
     </div>
                               <%
Else
%>
        <tr>
          <td align="center"><img src="Images/NoRight.jpg"></td>
        </tr>
<%
End If
rs.update
End If
rs.Close
Set rs = Nothing
%>
	 <div class="main_bg_bottom"></div>
   </div>
<!--#include file="End.Asp"-->
</body>
</html>
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from Shenbi_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
            response.Write "<li><img src=""/images/about_dian_15.jpg"" /></li>"
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
End Function

Function News(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 10 * from Shenbi_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If Now() - rs("AddTime")<= 2 Then
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
            Response.Write "<tr>"
            Response.Write "<td class=""news_title""><a href="""&AutoLink&""" title="""&NewsName&""" style = ""color:;"" target=""_blank"">"&NewsName&"</a> ["&FormatDate(rs("Addtime"), 13)&"]</td>"
            Response.Write "<td><div id=""new_icon""></div></td>"
            Response.Write "</tr>"
            Response.Write "</table>"
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;您当前所在位置是：<a href=""/"" class=""pink"">首页</a> - <a href=""/About-1.html""class=""pink"">关于我们</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 Shenbi_About where ViewFlag and not ChildFlag order by Sequence asc"
    Else
        sql = "select * from Shenbi_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

Function FriendLinks(trs, tds)
    Dim rs, sql, tr, td, ProductName, SmallPicPath
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top "&trs * tds&" * from Shenbi_FriendLink where ViewFlag order by ID desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "暂无相关信息"
    Else
        Response.Write "<table cellpadding=""0"" cellspacing=""0"" align=""center"">"&vbCrLf
        For tr = 1 To trs
            Response.Write "  <tr>"&vbCrLf
            For td = 1 To tds
                If StrLen(rs("LinkFace"))<= 18 Then
                    LinkFace = rs("LinkFace")
                Else
                    LinkFace = StrLeft(rs("LinkFace"), 16)
                End If
                Response.Write "    <td><table cellpadding=""2"" cellspacing=""0"">"&vbCrLf
                Response.Write "        <tr>"&vbCrLf
                Response.Write "          <td align=""center"" height=""38"" valign=""middle"">"
                If rs("LinkType") = 0 Then
                    Response.Write "<a href="""&rs("LinkUrl")&""" title="""&rs("LinkName")&"""  target=""_blank"" class=""news"">"&LinkFace&"</a>"
                Else
                    Response.Write "<a href="""&rs("LinkUrl")&""" target=""_blank"" ><img src="""&rs("LinkFace")&""" alt="""&rs("LinkName")&""" width=""88"" height=""31"" border=""0""  class=""border""/></a>"
                End If
                Response.Write "</td>"&vbCrLf
                Response.Write "        </tr>"&vbCrLf
                Response.Write "      </table></td>"&vbCrLf
                Response.Write "    <td width=""8""></td>"&vbCrLf
                rs.movenext
                If rs.EOF Then Exit For
            Next
            Response.Write "  </tr>"&vbCrLf
            If rs.EOF Then Exit For
        Next
        Response.Write "</table>"&vbCrLf
    End If
    rs.Close
    Set rs = Nothing
End Function
%>