<!--#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" -->
<%
' 文件名称:Search.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Call SiteInfo()
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,"$Copyright$",Copyright)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$Folder$",Folder(0))
LeftString=Replace(LeftString,"$News$",News("0,"))
LeftString=Replace(LeftString,"$FriendLinks$",FriendLinks(2,2))
SearchListString=FileSetTemplate("Search.html")
SearchListString=Replace(SearchListString,"$SeoTitle$",SeoTitle)
SearchListString=Replace(SearchListString,"$SiteTitle$",SiteTitle)
SearchListString=Replace(SearchListString,"$Keywords$",Keywords)
SearchListString=Replace(SearchListString,"$Descriptions$",Descriptions)
SearchListString=Replace(SearchListString,"$WebSiteico$",IcoHeaderimg())
SearchListString=Replace(SearchListString,"$SysRootDir$",SysRootDir)
SearchListString=Replace(SearchListString,"$WebLocation$",WebLocation())
SearchListString=Replace(SearchListString,"$WebContent$",WebContentSearch(trim(request("Keyword")),request("Range")))
SearchListString=Replace(SearchListString,"$Header$",HeaderString)
SearchListString=Replace(SearchListString,"$Left$",LeftString)
SearchListString=Replace(SearchListString,"$Foot$",FooterString)
Call PrintText(SearchListString)
Function WebLocation()
    WebLocation = "搜索 - "&vbCrLf
    If request("Range") = "Void" Then
        WebLocation = WebLocation&"<center>请选择搜索范围</center>"
        Exit Function
    ElseIf Trim(request("Keyword")) = "" Then
        WebLocation = WebLocation&"<font color=""red"">关键字为空</font>"
    ElseIf request("Range") = "Product" Then
        WebLocation = WebLocation&"产品 - 关键字[<font color=""red"">"&Trim(request("Keyword"))&"</font>]"
    ElseIf request("Range") = "News" Then
        WebLocation = WebLocation&"新闻 - 关键字[<font color=""red"">"&Trim(request("Keyword"))&"</font>]"
    ElseIf request("Range") = "Down" Then
        WebLocation = WebLocation&"下载 - 关键字[<font color=""red"">"&Trim(request("Keyword"))&"</font>]"
    ElseIf request("Range") = "Others" Then
        WebLocation = WebLocation&"其他 - 关键字[<font color=""red"">"&Trim(request("Keyword"))&"</font>]"
    End If
End Function
' 文件名称:Search.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>