<!--#include file="../Inc/Consts.inc" -->
<!--#include file="CheckAdmin.Asp"-->
<!--#include file="../Inc/common.Asp" -->
<!--#include file="../Inc/strfunc.Asp" -->
<%
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
If InStr(SsMasterPurview, "|7,") = 0 Then
    writer ("<br /><br /><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
    response.End
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="Images/Admin_style.css" />
<%
Dim Result, Keyword, SortID, SortPath
Result = request.QueryString("Result")
Keyword = request.QueryString("Keyword")
Function PlaceFlag()
    If Result = "Search" Then
        If Keyword<>"" Then
            writer "标签：列表 -> 检索 -> 关键字：<font color='red'>"&Keyword&"</font>"
        Else
            writer "标签：列表 -> 检索 -> 关键字为空(显示全部标签)"
        End If
    Else
        If SortPath<>"" Then
            writer "标签：列表 -> <a href='Ss_labels.Asp'>全部</a>"
            call getTextPath("LabelsSort",SortID)
        Else
            writer "标签：列表 -> 全部"
        End If
    End If
End Function
%>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
<form name="formSearch" method="post" action="Searcher.Asp?Result=Labels">
  <tr>
    <th height="22" sytle="line-height:150%"><h3>【搜索引擎提交页】</h3></th>
  </tr>
  <tr>
    <td class="forumRow">关键字：<input name="Keyword" type="text" value="<%=Keyword%>" size="20" /> <input name="submitSearch" type="submit" value="搜索标签" />根据标签说明搜索</td>
  </tr>
  <tr>
    <td class="forumRow"><%PlaceFlag()%></td>
  </tr>
  </form>
</table>
<!--
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
-->