<!--#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/Otherfunc.Asp" -->
<%
' 文件名称:OtherView.asp 2012
' 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 ID,rs,sql,SeoKeywords,SeoDescription,SortID,SortPath
ID=trim(request.QueryString("ID"))
if ID="" or not isnumeric(ID) then Call Alert("参数错误,ID Error!","b-1"):response.End()
sql = "select OthersName,SeoKeywords,SeoDescription,Content,SortID,SortPath,Click_Count from ["&Datapre&"_Others] where ViewFlag and ID="&ID
set rs=db(sql,3)
    If rs("SeoKeywords") <> "" Then
        SeoKeywords = rs("SeoKeywords")
    Else
        SeoKeywords = rs("OthersName")
    End If
    If rs("SeoDescription") <> "" Then
        SeoDescription = rs("SeoDescription")
    Else
        SeoDescription = rs("OthersName")
    End If
    SeoTitle = rs("OthersName")
	SortID=rs("SortID")
	SortPath=rs("SortPath")
rs.Close:Set rs = Nothing
Dim templateurl :templateurl=SysRootDir&templatepath
Dim HeaderString,LeftString,OtherViewString
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo,1,1)
HeaderString=Replace(HeaderString,"$bannerpic$",bannerpic(3),1,1)
HeaderString=Replace(HeaderString,"$MainMenu$",MainMenu(7),1,1)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$searcher$",searcher,1,1)
LeftString=Replace(LeftString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
OtherViewString=FileSetTemplate("OtherView.html")
OtherViewString=Replace(OtherViewString,"$SeoTitle$",SeoTitle)
OtherViewString=Replace(OtherViewString,"$SiteTitle$",SiteTitle)
OtherViewString=Replace(OtherViewString,"$Keywords$",Keywords)
OtherViewString=Replace(OtherViewString,"$Descriptions$",Descriptions)
OtherViewString=Replace(OtherViewString,"$copyright$",copyright)
OtherViewString=Replace(OtherViewString,"$OtherMenu$",OtherMenu(SortID))
OtherViewString=Replace(OtherViewString,"$getlocation$",getlocation("OthersSort",SortID,SortPath,"OtherList"),1,1)
OtherViewString=Replace(OtherViewString,"$Header$",HeaderString)
OtherViewString=Replace(OtherViewString,"$Left$",LeftString)
OtherViewString=Replace(OtherViewString,"$WebContent$",OtherViewdetail())
OtherViewString=Replace(OtherViewString,"$HTMLName$",HTMLName)
OtherViewString=Replace(OtherViewString,"$templateurl$",templateurl)
Call PrintText(OtherViewString)

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