admin_special.asp

个人网站比较简短

            Response.Write "<select name=MoveNum size=1><option value=0>向上移动</option>"
            For i = 1 To j - 1
                Response.Write "<option value=" & i & ">" & i & "</option>"
            Next
            Response.Write "</select><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
            Response.Write "<input type=hidden name=SpecialID value=" & rsSpecial("SpecialID") & ">"
            Response.Write "<input type=hidden name=cOrderID value=" & rsSpecial("OrderID") & ">&nbsp;<input type=submit name=Submit value=修改>"
        Else
            Response.Write "&nbsp;"
        End If
        Response.Write "</td></form>"
        Response.Write "    <form action='Admin_Special.asp?Action=DownOrder' method='post'>"
        Response.Write "      <td width='120' align='center'>"
        If iCount > j Then
            Response.Write "<select name=MoveNum size=1><option value=0>向下移动</option>"
            For i = 1 To iCount - j
                Response.Write "<option value=" & i & ">" & i & "</option>"
            Next
            Response.Write "</select><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
            Response.Write "<input type=hidden name=SpecialID value=" & rsSpecial("SpecialID") & ">"
            Response.Write "<input type=hidden name=cOrderID value=" & rsSpecial("OrderID") & ">&nbsp;<input type=submit name=Submit value=修改>"
        Else
            Response.Write "&nbsp;"
        End If
        Response.Write "</td>"
        Response.Write "      <td width='200' align='center'>&nbsp;</td>"
        Response.Write "    </form>"
        Response.Write "  </tr>"
        j = j + 1
        rsSpecial.MoveNext
    Loop
    Response.Write "</table> "
    rsSpecial.Close
    Set rsSpecial = Nothing
End Sub

Sub AddSpecial()

    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Special.asp?ChannelID=" & ChannelID & "'>专题管理</a>&nbsp;&gt;&gt;&nbsp;添加专题</td></tr></table>"
    Response.Write "<form method='post' action='Admin_Special.asp' name='form1'>"

    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "  <tr align='center' height='24'>" & vbCrLf
    Response.Write "   <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本设置</td>" & vbCrLf
    If IsCustom_Content = True And ModuleType <> 6 Then
        Response.Write "   <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>自设内容</td>" & vbCrLf
    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='2' cellspacing='1' class='border' >"
    Response.Write "   <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>专题名称：</strong></td>"
    Response.Write "      <td class='tdbg'><input name='SpecialName' type='text' id='SpecialName' size='49' maxlength='30'>&nbsp;</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>专题目录：</strong><br>只能是英文，不能带空格或“\”、“/”等符号。<br>本功能需要服务器支持FSO。但即使你的服务器不支持FSO，也请认真录入，因为可以在换了空间再批量生成。</td>"
    Response.Write "      <td class='tdbg'><input name='SpecialDir' type='text' id='SpecialDir' size='49' maxlength='30'>&nbsp;</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>专题图片：</strong></td>"
    Response.Write "      <td class='tdbg'><input name='SpecialPicUrl' type='text' id='SpecialPicUrl' size='49' maxlength='200'>&nbsp;</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>打开方式：</strong></td>"
    Response.Write "      <td><input name='OpenType' type='radio' value='0' checked>在原窗口打开&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name='OpenType' type='radio' value='1'>在新窗口打开</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>是否为推荐专题：</strong></td>"
    Response.Write "      <td><input name='IsElite' type='radio' value='True' checked>是&nbsp;&nbsp;&nbsp;&nbsp; <input name='IsElite' type='radio' value='False'>否</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>专题提示：</strong><br>鼠标移至专题名称上时将显示设定的提示文字（不支持HTML）</td>"
    Response.Write "      <td class='tdbg'><textarea name='Tips' cols='60' rows='3' id='Tips'></textarea></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>专题说明：</strong><br>用于专题页对专题进行说明（支持HTML）</td>"
    Response.Write "      <td class='tdbg'><textarea name='Readme' cols='60' rows='3' id='Readme'></textarea></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>每页显示的" & InfoShortName & "数：</strong></td>"
    Response.Write "      <td><select name='MaxPerPage'>" & GetNumber_Option(5, 100, 20) & "</select></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='350' class='tdbg5'><strong>默认配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
    Response.Write "      <td class='tdbg'><select name='SkinID'>" & GetSkin_Option(0) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='350' class='tdbg5'><strong>版面设计模板：</strong><br>相关模板中包含了版面设计的版式等信息，如果是自行添加的设计模板，可能会导致“专题配色风格”失效。</td>"
    Response.Write "      <td class='tdbg'><select Name='TemplateID'>" & GetTemplate_Option(ChannelID, 4, 0) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write " </tbody>" & vbCrLf
    If IsCustom_Content = True And ModuleType <> 6 Then
        Call EditCustom_Content("Add", "", "Special")
    End If
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td colspan='2' align='center' class='tdbg'><input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    Response.Write "        <input  type='submit' name='Submit' value=' 添 加 '><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>&nbsp;&nbsp;"
    Response.Write "        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Special.asp'"" style='cursor:hand;'></td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub Modify()
    Dim SpecialID, rsSpecial, sql
    SpecialID = PE_CLng(Trim(Request("SpecialID")))
    If SpecialID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的专题ID！</li>"
        Exit Sub
    End If
    sql = "Select * from PE_Special Where SpecialID=" & SpecialID
    Set rsSpecial = Server.CreateObject("Adodb.RecordSet")
    rsSpecial.Open sql, Conn, 1, 3
    If rsSpecial.BOF And rsSpecial.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的专题，可能已经被删除！</li>"
    Else
        Response.Write "<script language='javascript'>" & vbCrLf
        Response.Write "var tID=0;" & vbCrLf
        Response.Write "function ShowTabs(ID){" & vbCrLf
        Response.Write "  if(ID!=tID){" & vbCrLf
        Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
        Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
        Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
        Response.Write "    Tabs[ID].style.display='';" & vbCrLf
        Response.Write "    tID=ID;" & vbCrLf
        Response.Write "  }" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "</script>" & vbCrLf
        Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Special.asp?ChannelID=" & ChannelID & "'>专题管理</a>&nbsp;&gt;&gt;&nbsp;修改专题设置：<font color='red'>" & rsSpecial("SpecialName") & "</td></tr></table>"
        Response.Write "<form method='post' action='Admin_Special.asp' name='form1'>"
        Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
        Response.Write "  <tr align='center' height='24'>" & vbCrLf
        Response.Write "   <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本设置</td>" & vbCrLf
        If IsCustom_Content = True And ModuleType <> 6 Then
            Response.Write "   <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>自设内容</td>" & vbCrLf
        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='2' cellspacing='1' class='border' >"
        Response.Write "   <tbody id='Tabs' style='display:'>" & vbCrLf
        Response.Write "    <tr class='tdbg'> "
        Response.Write "      <td width='350' class='tdbg5'><strong>专题名称：</strong></td>"
        Response.Write "      <td class='tdbg'><input name='SpecialName' type='text' id='SpecialName' value='" & rsSpecial("SpecialName") & "' size='49' maxlength='30'><input name='SpecialID' type='hidden' id='SpecialID' value='" & rsSpecial("SpecialID") & "'></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'> "
        Response.Write "      <td width='350' class='tdbg5'><strong>专题目录：</strong></td>"
        Response.Write "      <td class='tdbg'><input name='SpecialDir' type='text' id='SpecialDir' value='" & rsSpecial("SpecialDir") & "' size='49' maxlength='30' disabled></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>专题图片：</strong></td>"
        Response.Write "      <td class='tdbg'><input name='SpecialPicUrl' type='text' id='SpecialPicUrl' value='" & rsSpecial("SpecialPicUrl") & "' size='49' maxlength='200'>&nbsp;</td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>打开方式：</strong></td>"
        Response.Write "      <td><input name='OpenType' type='radio' value='0'  " & RadioValue(rsSpecial("OpenType"), 0) & ">在原窗口打开&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name='OpenType' type='radio' value='1' " & RadioValue(rsSpecial("OpenType"), 1) & ">在新窗口打开</td>"
        Response.Write "    </tr>" & vbCrLf
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>是否为推荐专题：</strong></td>"
        Response.Write "      <td><input name='IsElite' type='radio' value='True' " & RadioValue(rsSpecial("IsElite"), True) & ">是&nbsp;&nbsp;&nbsp;&nbsp; <input name='IsElite' type='radio' value='False'" & RadioValue(rsSpecial("IsElite"), False) & ">否</td>"
        Response.Write "    </tr>" & vbCrLf
        Response.Write "    <tr class='tdbg'> "
        Response.Write "      <td width='350' class='tdbg5'><strong>专题提示：</strong><br>鼠标移至专题名称上时将显示设定的提示文字（不支持HTML）</td>"
        Response.Write "      <td class='tdbg'><textarea name='Tips' cols='60' rows='3' id='Tips'>" & rsSpecial("Tips") & "</textarea></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>专题说明：</strong><br>用于专题页对专题进行说明（支持HTML）</td>"
        Response.Write "      <td class='tdbg'><textarea name='Readme' cols='60' rows='3' id='Readme'>" & rsSpecial("Readme") & "</textarea></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>每页显示的" & InfoShortName & "数：</strong></td>"
        Response.Write "      <td><select name='MaxPerPage'>" & GetNumber_Option(5, 100, rsSpecial("MaxPerPage")) & "</select></td>"
        Response.Write "    </tr>" & vbCrLf
        Response.Write "    <tr class='tdbg'> "
        Response.Write "      <td width='350' class='tdbg5'><strong>默认配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
        Response.Write "      <td class='tdbg'><select name='SkinID'>" & GetSkin_Option(rsSpecial("SkinID")) & "</select></td>"
        Response.Write "    </tr>"
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td width='350' class='tdbg5'><strong>版面设计模板：</strong><br>相关模板中包含了版面设计的版式等信息，如果是自行添加的设计模板，可能会导致“专题配色风格”失效。</td>"
        Response.Write "      <td class='tdbg'><select Name='TemplateID'>" & GetTemplate_Option(ChannelID, 4, rsSpecial("TemplateID")) & "</select></td>"
        Response.Write "    </tr>"
        Response.Write " </tbody>" & vbCrLf
        If IsCustom_Content = True And ModuleType <> 6 Then
            Call EditCustom_Content("Modify", rsSpecial("Custom_Content"), "Special")
        End If
        Response.Write "    <tr class='tdbg'> "
        Response.Write "      <td colspan='2' align='center' class='tdbg'><input name='Action' type='hidden' id='Action' value='SaveModify'>"
        Response.Write "        <input  type='submit' name='Submit' value='保存修改结果'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>&nbsp; "
        Response.Write "        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Special.asp'"" style='cursor:hand;'></td>"
        Response.Write "    </tr>"
        Response.Write "  </table>"
        Response.Write "</form>"
    End If
    rsSpecial.Close
    Set rsSpecial = Nothing
End Sub

Sub ShowUniteForm()
    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='0' 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 height='100'><form name='myform' method='post' action='Admin_Special.asp' onSubmit='return ConfirmUnite();'>"
    Response.Write "        &nbsp;&nbsp;将专题 <select name='SpecialID' id='SpecialID'>" & GetSpecial_Option(0) & "</select> 合并到 <select name='TargetSpecialID' id='TargetSpecialID'>" & GetSpecial_Option(0) & "</select>"
    Response.Write "        <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='UniteSpecial'>"
    Response.Write "        <input type='submit' name='Submit' value=' 合并专题 ' style='cursor:hand;'>&nbsp;&nbsp;"
    Response.Write "        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Special.asp?ChannelID=" & ChannelID & "'"" style='cursor:hand;'>"
    Response.Write "      </form></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td height='60'><strong>注意事项：</strong><br>"
    Response.Write "      &nbsp;&nbsp;&nbsp;&nbsp;所有操作不可逆，请慎重操作！！！<br>"
    Response.Write "      &nbsp;&nbsp;&nbsp;&nbsp;不能在同一个专题内进行操作。<br>"
    Response.Write "      &nbsp;&nbsp;&nbsp;&nbsp;合并后您所指定的专题将被删除，所有" & InfoShortName & "将转移到目标专题中。</td>"
    Response.Write "  </tr>"
    Response.Write "</table>" & vbCrLf
    Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
    Response.Write "function ConfirmUnite(){" & vbCrLf
    Response.Write "  if (document.myform.SpecialID.value==document.myform.TargetSpecialID.value){" & vbCrLf