<!--#include file="../../Inc/Cls_Main.Asp"-->
<!--#include file="../inc/Cls_Admin.Asp"-->
<!--#include file="../inc/Cls_MapPath.Asp"-->
<!--#include file="../Admin_Check.Asp"-->
<%
Dim CmsAdmin, ToUrl
ToUrl = CmsFun.LoadToUrl()
'=============================================================================
Set CmsAdmin = New Cls_Admin
CmsAdmin.SetAdminTitle = CmsSiteName
CmsAdmin.SetBodyCssName = "mainbody"
CmsAdmin.SetAdminPath = CmsAdminMapPath
CmsAdmin.LoadHead()
'=============================================================================
Dim Action
'=============================================================================
Action = Easp.Get("action")
Select Case Action
    Case "pageload"
        Call PageLoad()
    Case "px"
        Call Px()
    Case "delall"
        Call DelAll()
    Case Else
        Call PageLoad()
End Select
CmsAdmin.LoadFooter()
Set CmsAdmin = Nothing

Sub PageLoad()
    ChkSysAdminLevel "sys_channel", "show"
%>
<div class="navigation"> 控制面板 &gt; 系统标签向导</div>
<div id="contentTab">
  <div class="content-tab">
    <ul class="tab_nav">
      <li><a onclick="tabs(this);" class="selected" href="javascript:void(0);">系统标签向导</a></li>
    </ul>
  </div>
  <div class="tab_con" style="display: block;">
    <table class="form_table">
      <col width="200px">
        </col>
      
      <tbody>
        <tr>
          <th> 系统标签： </th>
          <td><input type="button" value="查看系统标签" class="btnSearch" onclick="ShowWin('sys', '查看系统标签', 'Admin.Tag.Sys.Asp', SetDialog.PublicWidth, SetDialog.PublicHeight, false);" /></td>
        </tr>
      <form action="Admin.Tag.Channel.Asp" method="get" id="fmPcChannel">
        <tr>
          <th>频道道列表标签：</th>
          <td><%=GetChannelList("fmPcChannel")%></td>
        </tr>
      </form>
      <tr>
        <th> 通用幻灯片列表标签： </th>
        <td><input type="button" value="生成标签" class="btnSearch" onclick="javascript:parent.f_addTab('tag800','生成幻灯片列表标签','create/Admin.Tag.Hdp.Asp')" /></td>
      </tr>
      <tr>
        <th> 通用友情链接列表标签： </th>
        <td><input type="button" value="生成标签" class="btnSearch" onclick="javascript:parent.f_addTab('tag900','生成友情链接列表标签','create/Admin.Tag.Link.Asp')" /></td>
      </tr>
      <tr>
        <th> 通用留言列表标签： </th>
        <td><input type="button" value="生成标签" class="btnSearch" onclick="javascript:parent.f_addTab('tag1000','生成留言列表标签','create/Admin.Tag.Book.Asp')" /></td>
      </tr>
        </tbody>
      
    </table>
  </div>
</div>
<%
End Sub

Function GetChannelList(ByVal FormChannel)
    Dim strTemp, oRs, arrList, i
    strTemp = "<select name=""ChannelId"" id=""ChannelId"" class=""select2"" onChange=""OkSubmit('"& FormChannel &"');"">" & vbCrLf
    strTemp = strTemp & "<option value=""0"">选择频道</option>" & vbCrLf
    Set oRs = Easp.db.GR(TablePrefix & "Channel:Id,ChannelName", "", " Px Asc,Id Desc ")
    If Not Easp.IsN(oRs) Then
        arrList = oRs.GetRows()
    End If
    Easp.C oRs
    If IsArray(arrList) Then
        For i = 0 To UBound(arrList, 2)
            strTemp = strTemp & "<option value="""& arrList(0, i) &""">"& arrList(1, i) &"</option>" & vbCrLf
        Next
    End If
    strTemp = strTemp & "</select>" & vbCrLf
    GetChannelList = strTemp
End Function
%>
