<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
' 文件名称:About.asp 2011-08-12 13:30:06
' 良精企业网站管理系统 
' Copyright (C) 北京良精志诚科技有限公司 (http://www.liangjing.org).  All rights reserved.
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 liangjing_About Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
    SeoTitle = "参数错误"
Else
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from liangjing_About where ViewFlag and ID="&request.QueryString("ID")
    rs.Open sql, conn, 1, 1
    SeoTitle = rs("AboutName")
    rs.Close
    Set rs = Nothing
End If
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo)
HeaderString=Replace(HeaderString,"$Descriptions$",Descriptions)
HeaderString=Replace(HeaderString,"$HeadNavigation$",HeadNavigation())
FooterString=FileSetTemplate("Foot.html")
FooterString=Replace(FooterString,"$FooterNavigation$",FooterNavigation())
FooterString=Replace(FooterString,"$LiangjingCMS$",LiangjingCMS)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$Folder$",Folder(0))
LeftString=Replace(LeftString,"$News$",News("0,"))
LeftString=Replace(LeftString,"$FriendLinks$",FriendLinks(2,2))
AboutString=FileSetTemplate("About.html")
AboutString=Replace(AboutString,"$SeoTitle$",SeoTitle)
AboutString=Replace(AboutString,"$SiteTitle$",SiteTitle)
AboutString=Replace(AboutString,"$Keywords$",Keywords)
AboutString=Replace(AboutString,"$Descriptions$",Descriptions)
AboutString=Replace(AboutString,"$WebSiteico$",IcoHeaderimg())
AboutString=Replace(AboutString,"$SysRootDir$",SysRootDir)
AboutString=Replace(AboutString,"$WebMenu$",WebMenu())
AboutString=Replace(AboutString,"$About$",AboutText())
AboutString=Replace(AboutString,"$Header$",HeaderString)
AboutString=Replace(AboutString,"$Left$",LeftString)
AboutString=Replace(AboutString,"$Foot$",FooterString)
Call PrintText(AboutString)
Function WebMenu()
    Dim rs, sql,StringText
	StringText=""
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from liangjing_About where ViewFlag and not ChildFlag order by Sequence asc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
 	StringText=StringText&" <center>暂无相关信息</center>"
    Else
        Do
            If ISHTML = 1 Then
                AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "About.Asp?ID="&rs("ID")&""
            End If
       	StringText=StringText&" <li><a href="""&AutoLink&""">"&rs("AboutName")&"</a></li>"&vbCrLf
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
	WebMenu=StringText
End Function
' 文件名称:About.asp 2011-08-12 13:30:06
' 良精企业网站管理系统 
' Copyright (C) 北京良精志诚科技有限公司 (http://www.liangjing.org).  All rights reserved.
%>