<!--#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()
%>
<div class="navigation"><a href="Admin.Tag.Asp" class="back">标签向导</a> 控制面板 &gt; 标签向导 &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>
      <li><a onclick="tabs(this);" href="javascript:void(0);">网站SEO标签</a></li>
      <li><a onclick="tabs(this);" href="javascript:void(0);">公司信息标签</a></li>
    </ul>
  </div>
  <div class="tab_con" style="display: block;">
    <table class="form_table">
      <col width="230px">
        </col>
      
      <tbody>
        <tr>
          <th> 网站根目录： </th>
          <td>{ZjjCmsSys:SiteDir}</td>
        </tr>
        <tr>
          <th> 网站名称： </th>
          <td>{ZjjCmsSys:SiteName}</td>
        </tr>
        <tr>
          <th> 网站标题： </th>
          <td>{ZjjCmsSys:SiteTitle}</td>
        </tr>
        <tr>
          <th> 网站主域名： </th>
          <td>{ZjjCmsSys:SiteUrl}</td>
        </tr>
        <tr>
          <th> 系统模板目录： </th>
          <td>{ZjjCmsSys:SiteLogo}</td>
        </tr>
        <tr>
          <th> 模板皮肤目录： </th>
          <td>{ZjjCmsSys:Templates}
            <label> /Theme/</label></td>
        </tr>
        <tr>
          <th> 模板皮肤目录： </th>
          <td>{ZjjCmsSys:TempSkin}
            <label> default/</label></td>
        </tr>
        <tr>
          <th> 系统模板+皮肤目录： </th>
          <td>{ZjjCmsSys:ThemePath}
            <label> /Theme/default/</label></td>
        </tr>
        <tr>
          <th> 系统模板+皮肤目录+目录(m)： </th>
          <td>{ZjjCmsSys:ThemeMobilePath}
            <label> /Theme/default/m/</label></td>
        </tr>
        <tr>
          <th> 系统时间格式一： </th>
          <td>{ZjjCmsSys:Now}
            <label> 2013-08-05 03:35:09</label></td>
        </tr>
        <tr>
          <th> 系统时间格式二： </th>
          <td>{ZjjCmsSys:Date}
            <label> 2013-08-05</label></td>
        </tr>
        <tr>
          <th> 系统时间格式三： </th>
          <td>{ZjjCmsSys:NowNum}
            <label> 20130805033509</label></td>
        </tr>
      </tbody>
    </table>
  </div>
  <div class="tab_con">
    <table class="form_table">
      <col width="230px">
        </col>
      
      <tbody>
        <tr>
          <th> 网站关键词(SEO)： </th>
          <td>{ZjjCmsSys:SiteKey}</td>
        </tr>
        <tr>
          <th> 网站描述(SEO)： </th>
          <td>{ZjjCmsSys:SiteDesc}</td>
        </tr>
        <tr>
          <th> 网站版权信息： </th>
          <td>{ZjjCmsSys:SiteCopy}</td>
        </tr>
      </tbody>
    </table>
  </div>
  <div class="tab_con">
    <table class="form_table">
      <col width="230px">
        </col>
      
      <tbody>
        <tr>
          <th> 公司名称： </th>
          <td>{ZjjCmsSys:CompName}</td>
        </tr>
        <tr>
          <th> 公司传真： </th>
          <td>{ZjjCmsSys:CompFax}</td>
        </tr>
        <tr>
          <th> 公司电话： </th>
          <td>{ZjjCmsSys:CompPhone}</td>
        </tr>
        <tr>
          <th> 公司地址： </th>
          <td>{ZjjCmsSys:CompAddress}</td>
        </tr>
        <tr>
          <th> 公司邮箱： </th>
          <td>{ZjjCmsSys:CompEmail}</td>
        </tr>
        <tr>
          <th> 地址邮编： </th>
          <td>{ZjjCmsSys:CompZcode}</td>
        </tr>
        <tr>
          <th> 服务ＱＱ： </th>
          <td>{ZjjCmsSys:CompQQ}</td>
        </tr>
        <tr>
          <th> 服务热线： </th>
          <td>{ZjjCmsSys:CompTel}</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
%>
