admin_class.asp

个人网站比较简短

    Response.Write "}" & vbCrLf

    Response.Write "function HideTabTitle(displayValue,tempType){" & vbCrLf
    Response.Write "  for (var i = 1; i < TabTitle.length; i++) {" & vbCrLf
    Response.Write "    if(tempType==0&&i==2) {" & vbCrLf
    Response.Write "        TabTitle[i].style.display='none';" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    else{" & vbCrLf
    Response.Write "        TabTitle[i].style.display=displayValue;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

End Sub

Sub Modify()
    Dim ClassID, sql, rsClass, i
    ClassID = Trim(Request("ClassID"))
    If ClassID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数不足！</li>"
        Exit Sub
    Else
        ClassID = PE_CLng(ClassID)
    End If
    sql = "select * from PE_Class where ClassID=" & ClassID
    Set rsClass = Server.CreateObject("Adodb.recordset")
    rsClass.Open sql, Conn, 1, 1
    If rsClass.BOF And rsClass.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的栏目！</li>"
        rsClass.Close
        Set rsClass = Nothing
        Exit Sub
    End If

    Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Class.asp?ChannelID=" & ChannelID & "'>栏目管理</a>&nbsp;&gt;&gt;&nbsp;修改栏目设置：<font color='red'>" & rsClass("ClassName") & "</td></tr></table>"
    Response.Write "<form name='form1' method='post' action='Admin_Class.asp' onsubmit='return check()'>" & vbCrLf
    Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "  <tr align='center'>" & vbCrLf
    Response.Write "    <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
    If rsClass("ClassType") = 1 Then
        Response.Write "    <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>权限设置</td>" & vbCrLf
        Response.Write "    <td id='TabTitle' class='title5' onclick='ShowTabs(2)'"
        If ModuleType = 5 Then Response.Write " style='display:none'"
        Response.Write ">收费设置</td>" & vbCrLf
        Response.Write "    <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>栏目选项</td>" & vbCrLf
        If IsCustom_Content = True And ModuleType <> 6 Then
            Response.Write "    <td id='TabTitle' class='title5' onclick='ShowTabs(4)'>自设内容</td>" & vbCrLf
        End If
    End If

    Response.Write "    <td>&nbsp;</td>" & vbCrLf
    Response.Write " </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
    Response.Write "<table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
    Response.Write "  <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>所属栏目：</strong><br>如果你想改变所属栏目，请<a href='Admin_Class.asp?Action=Move&ChannelID=" & ChannelID & "&ClassID=" & ClassID & "'>点此移动栏目</a></td>"
    Response.Write "      <td>" & GetPath(rsClass("ParentID"), rsClass("ParentPath")) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目名称：</strong></td>"
    Response.Write "      <td><input name='ClassName' type='text' value='" & rsClass("ClassName") & "' size='20' maxlength='20'> <font color=red>*</font></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目类型：</strong><br><font color=red>请慎重选择，栏目一旦添加后就不能再更改栏目类型。</font></td>" & vbCrLf
    Response.Write "      <td>"
    Response.Write "        <input name='ClassType' type='radio' value='1'"
    If rsClass("ClassType") = 1 Then
        Response.Write " checked"
    Else
        Response.Write " disabled"
    End If
    Response.Write ">"
    Response.Write "        <font color=blue><b>内部栏目</b></font>&nbsp;&nbsp;内部栏目具有详细的参数设置。可以添加子栏目和文章。<br>"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;内部栏目的目录名：<input name='ClassDir' type='text' size='20' maxlength='20' value='" & rsClass("ClassDir") & "' disabled> <br><br>"
    Response.Write "        <input name='ClassType' type='radio' value='2'"
    If rsClass("ClassType") = 2 Then
        Response.Write " checked"
    Else
        Response.Write " disabled"
    End If
    Response.Write ">"
    Response.Write "        <font color=blue><b>外部栏目</b></font>&nbsp;&nbsp;外部栏目指链接到本系统以外的地址中。当此栏目准备链接到网站中的其他系统时，请使用这种方式。不能在外部栏目中添加文章，也不能添加子栏目。<br>"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;外部栏目的链接地址：<input name='LinkUrl' type='text' id='LinkUrl' value='" & rsClass("LinkUrl") & "' size='40' maxlength='200'"
    If rsClass("ClassType") = 1 Then Response.Write " disabled"
    Response.Write ">"
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目图片地址：</strong><br>用于在栏目页显示指定的图片</td>"
    Response.Write "      <td><input name='ClassPicUrl' type='text' id='ClassPicUrl' value='" & rsClass("ClassPicUrl") & "' size='60' maxlength='255'></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目提示：</strong><br>鼠标移至栏目名称上时将显示设定的提示文字（不支持HTML）</td>"
    Response.Write "      <td><textarea name='Tips' cols='60' rows='2' id='Tips'>" & rsClass("Tips") & "</textarea></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目说明：</strong><br>用于在栏目页详细介绍栏目信息，支持HTML</td>"
    Response.Write "      <td><textarea name='Readme' cols='60' rows='3' id='Readme'>" & rsClass("ReadMe") & "</textarea></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' class='tdbg5'><strong>栏目META关键词：</strong><br>针对搜索引擎设置的关键词<br>多个关键词请用,号分隔</td>" & vbCrLf
    Response.Write "      <td><textarea name='Meta_Keywords' cols='60' rows='4' id='Meta_Keywords'>" & rsClass("Meta_Keywords") & "</textarea></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' class='tdbg5'><strong>栏目META网页描述：</strong><br>针对搜索引擎设置的网页描述<br>多个描述请用,号分隔</td>" & vbCrLf
    Response.Write "      <td><textarea name='Meta_Description' cols='60' rows='4' id='Meta_Description'>" & rsClass("Meta_Description") & "</textarea></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf


    '刘永涛 屏蔽了供求信息中不需要的选项
    If ModuleType = 6 Then
        Response.Write "  <tbody id='Tabs' style='display:none'>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='300' class='tdbg5'><strong>发表权限：</strong><br>请在此设置允许在此栏目发表信息的会员组。<br>游客没有发表信息权限。</td>"
        Response.Write "      <td>" & GetUserGroup("Input", ClassID, 3) & "</td>"
        Response.Write "    </tr>" & vbCrLf
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='300' class='tdbg5'><strong>评论权限：</strong></td>"
        Response.Write "      <td>"
        Response.Write "        <input name='EnableComment' type='checkbox' " & RadioValue(rsClass("EnableComment"), True) & "> 允许在此栏目发表评论<br>"
        Response.Write "        <input name='CheckComment' type='checkbox' " & RadioValue(rsClass("CheckComment"), True) & ">评论需要审核"
        Response.Write "      </td>"
        Response.Write "    </tr>" & vbCrLf
        Response.Write "  </tbody>" & vbCrLf
    Else
        If ModuleType <> 5 Then
            Response.Write "  <tbody id='Tabs' style='display:none'>"
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>浏览/查看权限：</strong><br><font color='red'>栏目权限为继承关系。例如：当父栏目设为“认证栏目”时，子栏目的权限设置将继承父栏目设置，即使子栏目设为“开放栏目”也无效。相反，如果父栏目设为“开放栏目”，子栏目可以设为“半开放栏目”或“认证栏目”。</font></td>"
            Response.Write "      <td>"
            Response.Write "        <table>"
            Response.Write "          <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' " & RadioValue(rsClass("ClassPurview"), 0) & ">开放栏目</td><td>任何人（包括游客）可以浏览和查看此栏目下的信息。</td></tr>"
            Response.Write "          <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' " & RadioValue(rsClass("ClassPurview"), 1) & ">半开放栏目</td><td>任何人（包括游客）都可以浏览。游客不可查看，其他会员根据会员组的栏目权限设置决定是否可以查看。</td></tr>"
            Response.Write "          <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' " & RadioValue(rsClass("ClassPurview"), 2) & ">认证栏目</td><td>游客不能浏览和查看，其他会员根据会员组的栏目权限设置决定是否可以浏览和查看。</td></tr>"
            Response.Write "        </table>"
            Response.Write "      </td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>允许浏览此栏目的会员组：</strong><br>如果栏目是“半开放栏目”或“认证栏目”，请在此设置允许浏览此栏目的会员组</td>"
            Response.Write "      <td>" & GetUserGroup("Browse", ClassID, 5) & "</td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>允许查看此栏目下信息的会员组：</strong><br>如果栏目是“认证栏目”，请在此设置允许查看此栏目下信息的会员组<br>如果在信息中设置了查看权限，则以信息中的权限设置优先</td>"
            Response.Write "      <td>" & GetUserGroup("View", ClassID, 5) & "</td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>发表权限：</strong><br>请在此设置允许在此栏目发表信息的会员组。<br>游客没有发表信息权限。</td>"
            Response.Write "      <td>" & GetUserGroup("Input", ClassID, 5) & "</td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>评论权限：</strong></td>"
            Response.Write "      <td>"
            Response.Write "        <input name='EnableComment' type='checkbox' " & RadioValue(rsClass("EnableComment"), True) & "> 允许在此栏目发表评论<br>"
            Response.Write "        <input name='CheckComment' type='checkbox' " & RadioValue(rsClass("CheckComment"), True) & ">评论需要审核"
            Response.Write "      </td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "  </tbody>" & vbCrLf
        Else
            Response.Write "  <tbody id='Tabs' style='display:none'>"
            Response.Write "    <tr class='tdbg'>"
            Response.Write "      <td width='300' class='tdbg5'><strong>评论权限：</strong></td>"
            Response.Write "      <td>"
            Response.Write "        <input name='EnableComment' type='checkbox' " & RadioValue(rsClass("EnableComment"), True) & "> 允许在此栏目发表评论<br>"
            Response.Write "        <input name='CheckComment' type='checkbox' " & RadioValue(rsClass("CheckComment"), True) & ">评论需要审核"
            Response.Write "      </td>"
            Response.Write "    </tr>" & vbCrLf
            Response.Write "  </tbody>" & vbCrLf
        End If
    End If

    '2005-12-23
    '刘永涛 屏蔽掉一些不必要的信息
    If ModuleType = 6 Then