admin_class.asp

个人网站比较简短

        Response.Write "  <tbody id='Tabs' style='display:none'>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='300' class='tdbg5'><strong>发布信息扣除的点数：</strong><br>会员在此栏目下发布信息时，该扣除其会员点数</td>"
        Response.Write "      <td><input name='ReleaseClassPoint' type='text' value='" & rsClass("ReleaseClassPoint") & "' size='4' maxlength='4' style='text-align:center'>&nbsp;点数</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='CommandClassPoint' type='text' value='" & rsClass("CommandClassPoint") & "' size='4' maxlength='4' style='text-align:center'>&nbsp;点/天</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><br>会员在此栏目发表信息时可以得到的积分</td>"
    Response.Write "      <td>会员在此栏目每发表一条信息，可以得到 <input name='PresentExp' type='text' value='" & rsClass("PresentExp") & "' size='4' maxlength='4' style='text-align:center'> 分积分</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>默认收费" & PointName & "数：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的收费" & PointName & "数</td>"
    Response.Write "      <td><input name='DefaultItemPoint' type='text' value='" & rsClass("DefaultItemPoint") & "' size='4' maxlength='4' style='text-align:center'> " & PointUnit & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>默认重复收费：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的重复收费方式</td>"
    Response.Write "      <td>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 0) & ">不重复收费<br>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 1) & ">距离上次收费时间 <input name='DefaultItemPitchTime' type='text' value='" & rsClass("DefaultItemPitchTime") & "' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 2) & ">会员重复查看此文章 <input name='DefaultItemReadTimes' type='text' value='" & rsClass("DefaultItemReadTimes") & "' size='8' maxlength='8' style='text-align:center'> 次后重新收费<br>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 3) & ">上述两者都满足时重新收费<br>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 4) & ">上述两者任一个满足时就重新收费<br>"
    Response.Write "        <input name='DefaultItemChargeType' type='radio' " & RadioValue(rsClass("DefaultItemChargeType"), 5) & ">每阅读一次就重复收费一次（建议不要使用）"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>默认分成比例：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的分成比例</td>"
    Response.Write "      <td><input name='DefaultItemDividePercent' type='text' value='" & rsClass("DefaultItemDividePercent") & "' size='4' maxlength='4' style='text-align:center'> %</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf
    End If


    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><input name='OpenType' type='radio' " & RadioValue(rsClass("OpenType"), 0) & ">在原窗口打开&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name='OpenType' type='radio' " & RadioValue(rsClass("OpenType"), 1) & ">在新窗口打开</td>"
    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='ShowOnTop' type='radio' " & RadioValue(rsClass("ShowOnTop"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='ShowOnTop' type='radio' " & RadioValue(rsClass("ShowOnTop"), False) & ">否</td>"
    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='ShowOnIndex' type='radio' " & RadioValue(rsClass("ShowOnIndex"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='ShowOnIndex' type='radio' " & RadioValue(rsClass("ShowOnIndex"), False) & ">否</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>是否在父栏目的分类列表处显示：</strong><br>如果某栏目下有几十个子栏目，但只想显示其中几个子栏目的" & ChannelShortName & "列表，这个选项就非常有用。</td>"
    Response.Write "      <td><input name='IsElite' type='radio' " & RadioValue(rsClass("IsElite"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='IsElite' type='radio' " & RadioValue(rsClass("IsElite"), False) & ">否</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>有子栏目时是否可以在此栏目添加" & ChannelShortName & "：</strong></td>"
    Response.Write "      <td><input name='EnableAdd' type='radio' " & RadioValue(rsClass("EnableAdd"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='EnableAdd' type='radio' " & RadioValue(rsClass("EnableAdd"), False) & ">否</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='EnableProtect' type='radio' " & RadioValue(rsClass("EnableProtect"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='EnableProtect' type='radio' " & RadioValue(rsClass("EnableProtect"), False) & ">否</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
    Response.Write "      <td><select name='SkinID' id='SkinID'>" & GetSkin_Option(rsClass("SkinID")) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='300' class='tdbg5'><strong>栏目模板：</strong><br>相关模板中包含了栏目设计的版式等信息，如果是自行添加的设计模板，可能会导致“栏目配色风格”失效。 </td>"
    Response.Write "      <td><select name='TemplateID' id='TemplateID'>" & GetTemplate_Option(ChannelID, 2, rsClass("TemplateID")) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>每页显示的" & ChannelShortName & "数：</strong><br>当此栏目为最下一级栏目时，则会分页显示此栏目中的" & ChannelShortName & "，这里指定的是每页显示的" & ChannelShortName & "数。</td>"
    Response.Write "      <td><select name='MaxPerPage'>" & GetNumber_Option(5, 100, rsClass("MaxPerPage")) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>此栏目下的" & ChannelShortName & "的默认配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
    Response.Write "      <td><select name='DefaultItemSkin' id='DefaultItemSkin'>" & GetSkin_Option(rsClass("DefaultItemSkin")) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><strong>此栏目下的" & ChannelShortName & "的默认模板：</strong></td>"
    Response.Write "      <td><select name='DefaultItemTemplate' id='DefaultItemTemplate'>" & GetTemplate_Option(ChannelID, 3, rsClass("DefaultItemTemplate")) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><b>此栏目下的" & ChannelShortName & "列表的排序方式：</b></td>"
    Response.Write "      <td><select name='ItemListOrderType'>" & GetOrderType_Option(rsClass("ItemListOrderType")) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='300' class='tdbg5'><b>此栏目下的" & ChannelShortName & "打开方式：</b></td>"
    Response.Write "      <td><select name='ItemOpenType'>" & GetOpenType_Option(rsClass("ItemOpenType")) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf
    If IsCustom_Content = True And ModuleType <> 6 Then
        Call EditCustom_Content("Modify", rsClass("Custom_Content"), "Class")
    End If
    Response.Write "</table>" & vbCrLf
    Response.Write "</td></tr></table>" & vbCrLf
    Response.Write "<table width='100%' border='0' align='center'>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td height='40' colspan='2' align='center'>"
    Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveModify'>"
    Response.Write "      <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "      <input name='ClassID' type='hidden' id='ClassID' value='" & rsClass("ClassID") & "'>"
    Response.Write "      <input name='Modify' type='submit' value=' 保存修改结果 ' style='cursor:hand;'>&nbsp;&nbsp;<input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Class.asp?ChannelID=" & ChannelID & "'"" style='cursor:hand;'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</form>"
    Call WriteJS
    rsClass.Close
    Set rsClass = Nothing
End Sub

Sub MoveClass()
    Dim tChannelID
    Dim ClassID, sql, rsClass, i
    Dim SkinID, TemplateID
    tChannelID = Trim(Request("tChannelID"))
    ClassID = Trim(Request("ClassID"))
    If tChannelID = "" Then
        tChannelID = ChannelID
    Else
        tChannelID = PE_CLng(tChannelID)
    End If
    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, 3
    If rsClass.BOF And rsClass.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的栏目！</li>"
    Else
        Response.Write "<form name='myform' method='post' action='Admin_Class.asp'>"
        Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
        Response.Write "    <tr class='title'> "
        Response.Write "      <td height='22' colspan='3' align='center'><strong>移动" & ChannelShortName & "栏目</strong></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td align='left' valign='top' width='260'><strong>当前栏目：</strong><br><select name='ClassID2' size='2' style='height:330px;width:260px;' disabled>" & GetClass_Option(ChannelID, ClassID) & "</select></td>"
        Response.Write "      <td align='center' width='70'><strong>移动到&gt;&gt;&gt;</strong></td>"
        Response.Write "      <td align='left'>"
        Response.Write "        <strong>目标频道：</strong><select name='tChannelID' onChange='document.myform.submit();'>" & GetChannel_Option(ModuleType, tChannelID) & "</select><br>"
        Response.Write "        <strong>目标栏目：</strong><font color=red>（不能指定为当前栏目的下属子栏目或外部栏目）</font><br><select name='ParentID' size='2' style='height:300px;width:260px;'><option value='0'>无（做为一级栏目）</option>" & GetClass_Option(tChannelID, rsClass("ParentID")) & "</select>"
        Response.Write "      </td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td height='40' colspan='3' align='center'>"
        Response.Write "        <input name='Action' type='hidden' id='Action' value='Move'>"
        Response.Write "        <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
        Response.Write "        <input name='ClassID' type='hidden' id='ClassID' value='" & ClassID & "'>"
        Response.Write "        <input name='Submit' type='submit' value=' 保存移动结果 ' style='cursor:hand;' onClick=""document.myform.Action.value='SaveMove';"">&nbsp;&nbsp;"
        Response.Write "        <input name='Cancel' type='button' value=' 取 消 ' style='cursor:hand;' onClick=""window.location.href='Admin_Class.asp?ChannelID=" & ChannelID & "'"">"
        Response.Write "      </td>"
        Response.Write "    </tr>"
        Response.Write "  </table>"
        Response.Write "</form>"
    End If
    rsClass.Close
    Set rsClass = Nothing
End Sub

Sub order()
    Dim sqlClass, rsClass, i, iCount, j
    sqlClass = "select * from PE_Class where ChannelID=" & ChannelID & " and ParentID=0 order by RootID"
    Set rsClass = Server.CreateObject("adodb.recordset")
    rsClass.Open sqlClass, Conn, 1, 1
    iCount = rsClass.RecordCount

    Response.Write "<br>"
    Response.Write "<table