<!--#include file="Inc/Consts.inc" -->
<!--#include file="Inc/NoSQL.Asp" -->
<!--#include file="Inc/common.Asp" -->
<!--#include file="Inc/strfunc.Asp" -->
<!--#include file="Inc/sharefunc.Asp" -->
<!--#include file="Inc/profunc.Asp" -->
<!--#include file="Inc/aboutfunc.Asp" -->
<!--#include file="Inc/newsfunc.Asp" -->
<%
' 文件名称:About.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Call SiteInfo()
Dim rs,sql,ID
Dim templateurl :templateurl=SysRootDir&templatepath
Dim HeaderString,FooterString,LeftString,AboutString
Dim Content,tag
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
ID=trim(request.QueryString("ID"))

If ID = "" or not isnumeric(ID) Then
    sql="select top 1 AboutName,Content,tag from ["&Datapre&"_About] where ViewFlag order by OrderNum"
Else
	
    sql = "select AboutName,Content,tag from ["&Datapre&"_About] where ViewFlag and ID="&ID
End if	
    set rs=db(sql,2)
    SeoTitle = rs(0)
	Content=rs(1)
	tag=rs(2)
	if Tag<>"" and not isnull(Tag) then Tag=mid(Tag,2,len(Tag)-2)
    rs.Close:Set rs = Nothing
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo)
HeaderString=Replace(HeaderString,"$bannerpic$",bannerpic(3))
HeaderString=Replace(HeaderString,"$MainMenu$",MainMenu(1),1,1)
HeaderString=Replace(HeaderString,"$ProMenu$",ProMenu(0),1,1)
HeaderString=Replace(HeaderString,"$aboutlist$",aboutlist(),1,1)
HeaderString=Replace(HeaderString,"$NewsMenu$",NewsMenu(0),1,1)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$searcher$",searcher)
LeftString=Replace(LeftString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
AboutString=FileSetTemplate("About.html")
AboutString=Replace(AboutString,"$Header$",HeaderString)
AboutString=Replace(AboutString,"$Left$",LeftString)
AboutString=Replace(AboutString,"$SiteTitle$",SiteTitle)
AboutString=Replace(AboutString,"$SeoTitle$",SeoTitle)
AboutString=Replace(AboutString,"$HTMLName$",HTMLName)
AboutString=Replace(AboutString,"$Keywords$",Keywords)
AboutString=Replace(AboutString,"$Descriptions$",Descriptions)
AboutString=Replace(AboutString,"$aboutlist$",aboutlist())
AboutString=Replace(AboutString,"$templateurl$",templateurl)
AboutString=Replace(AboutString,"$copyright$",copyright)
AboutString=Replace(AboutString,"$abouttag$",abouttag(tag))
AboutString=Replace(AboutString,"$aboutcontent$",Content)

Call PrintText(AboutString)
' 文件名称:About.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>