<!--#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" -->
<%
' 文件名称:ProductList.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Call SiteInfo()
Dim rs,sql,SortID,SortPath
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

SortID=trim(request.QueryString("SortID"))
If SortID = "" or Not isnumeric(SortID)  Then
	SortID=""
    SortPath="0,"
	SeoTitle=""
else
sql = "select SortName,SortPath from ["&Datapre&"_ProductSort] where ViewFlag and ID="&SortID
    set rs=db(sql,2)
    SeoTitle = rs("SortName")
	'SortID=rs("ID")
	SortPath=rs("SortPath")
    rs.Close:Set rs = Nothing
End If
Dim HeaderString,FooterString,LeftString,ProductListString
Dim templateurl :templateurl=SysRootDir&templatepath
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo,1,1)
HeaderString=Replace(HeaderString,"$bannerpic$",bannerpic(3),1,1)
HeaderString=Replace(HeaderString,"$MainMenu$",MainMenu(2),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("pLeft.html")
LeftString=Replace(LeftString,"$searcher$",searcher,1,1)
LeftString=Replace(LeftString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
ProductListString=FileSetTemplate("ProductList.html")
ProductListString=Replace(ProductListString,"$SeoTitle$",SeoTitle)
ProductListString=Replace(ProductListString,"$SiteTitle$",SiteTitle)
ProductListString=Replace(ProductListString,"$Keywords$",Keywords)
ProductListString=Replace(ProductListString,"$Descriptions$",Descriptions)
ProductListString=Replace(ProductListString,"$ProMenu$",ProMenu(SortID))
ProductListString=Replace(ProductListString,"$copyright$",copyright)
ProductListString=Replace(ProductListString,"$getlocation$",getlocation("ProductSort",SortID,SortPath,"ProductList",ProSortName),1,1)
ProductListString=Replace(ProductListString,"$ProductList$",ProList(SortID,SortPath,180,180),1,1)
ProductListString=Replace(ProductListString,"$Header$",HeaderString)
ProductListString=Replace(ProductListString,"$Left$",LeftString)
ProductListString=Replace(ProductListString,"$templateurl$",templateurl)
ProductListString=Replace(ProductListString,"$HTMLName$",HTMLName)
Call PrintText(ProductListString)

'=====文件名称:ProductList.asp 2012
'=====SsCMS 如果您有好的意见或建议请Email:qtwebs@163.com 
' ====晴天设计 (www.xxzwz.com)
%>