<!--#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/indexfunc.Asp" -->
<!--#include file="Inc/profunc.Asp" -->
<!--#include file="Inc/aboutfunc.Asp" -->
<!--#include file="Inc/newsfunc.Asp" -->
<%
' 文件名称:Index.asp 
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
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
Dim templateurl :templateurl=SysRootDir&templatepath
Dim HeaderString,FooterString,LeftString,IndexString
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$ProMenu$",ProMenu(0),1,1)
HeaderString=Replace(HeaderString,"$aboutlist$",aboutlist(),1,1)
HeaderString=Replace(HeaderString,"$NewsMenu$",NewsMenu(0),1,1)
IndexString=FileSetTemplate("Index.html")
IndexString=Replace(IndexString,"$Header$",HeaderString,1,1)
IndexString=Replace(IndexString,"$MainMenu$",MainMenu(0),1,1)
IndexString=Replace(IndexString,"$SiteLogo$",SiteLogo,1,1)
IndexString=Replace(IndexString,"$templateurl$",templateurl)
IndexString=Replace(IndexString,"$bannerpic$",bannerpic(3),1,1)

IndexString=Replace(IndexString,"$templateurl$",templateurl)
IndexString=Replace(IndexString,"$SiteTitle$",SiteTitle)
IndexString=Replace(IndexString,"$Keywords$",Keywords)
IndexString=Replace(IndexString,"$Descriptions$",Descriptions)
IndexString=Replace(IndexString,"$indexabout$",Comabout)
IndexString=Replace(IndexString,"$copyright$",copyright)
IndexString=Replace(IndexString,"$searcher$",searcher)
IndexString=Replace(IndexString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
IndexString=Replace(IndexString,"$indexjob$",indexjob(5))
IndexString=Replace(IndexString,"$ComProducts$",ComProducts(8,"notice",140,100))
IndexString=Replace(IndexString,"$indexgg$",indexgg(4))
IndexString=Replace(IndexString,"$indexproducts$",ComProducts(10,"index",154,110))
IndexString=Replace(IndexString,"$HTMLName$",HTMLName)
Call PrintText(IndexString)
' 文件名称:Index.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>
<%If JMailDisplay = 1 Then%><script type="text/javascript" src="<%=SysRootDir%>scripts/Message.js" charset="utf-8"></script><%End If%>