admin_spacemanage.asp

个人网站比较简短

        Else
            CurrentPage = 1
        End If
    End If
    Do While Not rsBlog.EOF
        If rsBlog("Type") = 1 Then
            Response.Write "  <tr align='center' bgcolor='#ffbbbb' onmouseout=""this.style.backgroundColor='#ffbbbb'"" onmouseover=""this.style.backgroundColor='#bbbbbb'"">"
        Else
            Response.Write "  <tr align='center' class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
        End If
        Response.Write "    <td><input name='ID' type='checkbox' id='ID' value='" & rsBlog("ID") & "'  onclick='unselectall()'></td>"
        Response.Write "    <td>" & rsBlog("ID") & "</td>"
        Response.Write "    <td>" & GetKingName(rsBlog("ClassID")) & "</td>"
        Response.Write "    <td>" & GetSubStr(rsBlog("Name"), 24, False) & "</td>"
        Response.Write "    <td>" & rsBlog("Hits") & "</td><td>"
        If rsBlog("Passed") = True Then
            Response.Write "<font color=""green"">√</font>"
        Else
            Response.Write "<font color=""red"">×</font>"
        End If
        If rsBlog("onTop") = True Then
            Response.Write "&nbsp;<font color=""blue"">固</font>"
        Else
            Response.Write "&nbsp;&nbsp;&nbsp;"
        End If
        If rsBlog("IsElite") = True Then
            Response.Write "&nbsp;<font color=""green"">荐</font>"
        Else
            Response.Write "&nbsp;&nbsp;&nbsp;"
        End If
        Response.Write "</td><td>"
        Response.Write "<a href='Admin_SpaceManage.asp?Action=Modify&ID=" & rsBlog("ID") & "&UserID=" & UserID & "'>修改</a>"
        If rsBlog("Passed") = True Then
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=Dis&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>禁用</a>"
        Else
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=En&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>启用</a>"
        End If
        If rsBlog("onTop") = True Then
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=DisTop&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>解固</a>"
        Else
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=EnTop&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>固顶</a>"
        End If
        If rsBlog("IsElite") = True Then
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=DisElite&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>取消推荐</a>"
        Else
            Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=EnElite&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "'>设为推荐</a>"
        End If
        Response.Write "&nbsp;&nbsp;<a href='Admin_SpaceManage.asp?Action=Del&ID=" & rsBlog("ID") & "&UserID=" & UserID & "&KindID=" & KindID & "&page=" & CurrentPage & "&Field=" & strField & "&keyword=" & Keyword & "' onClick=""return confirm('确定要删除" & tempname & rsBlog("Name") & "吗？');"">删除</a>"
        Response.Write "</td>"
        If UserID > 0 Then
            If rsBlog("Type") < 2 Then
                Response.Write "<td>根栏目</td>"
            Else
                Response.Write "<td><input name='OrderID" & rsBlog("ID") & "' type='text' id='OrderID" & rsBlog("ID") & "' value='" & rsBlog("OrderID") & "' size='4' maxlength='4' style='text-align:center'><input type='submit' name='Submit' value='修改' onClick=""document.myform.Action.value='order|" & rsBlog("ID") & "'""></td>"
            End If
        Else
            Set rsUser = Conn.Execute("select Top 1 UserName from PE_User Where UserID=" & rsBlog("UserID"))
            Response.Write "<td><a href='Admin_User.asp?Action=Show&UserID=" & rsBlog("UserID") & "'>" & rsUser("UserName") & "</a> <a href='Admin_SpaceManage.asp?UserID=" & rsBlog("UserID") & "'>详</a></td>"
        End If
        Response.Write "</tr>"
        iCount = iCount + 1
        If iCount >= MaxPerPage Then Exit Do
        rsBlog.MoveNext
    Loop
    If UserID = 0 Then rsUser.Close: Set rsUser = Nothing
    rsBlog.Close: Set rsBlog = Nothing
    
    Response.Write "</table>  "
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "    <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'> 选中本页显示的所有" & tempname & "</td>"
    Response.Write "    <td><input name='Action' type='hidden' id='Action' value='Del'>"
    Response.Write "<input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
    Response.Write "    <input name='Submit' type='submit' id='Submit' value='删除选中的" & tempname & "'>"
    If UserID > 0 Then Response.Write "&nbsp;&nbsp;<input name='add' type='button' id='add' value='增加一个" & tempname & "' onClick=""window.location.href='Admin_SpaceManage.asp?Action=Add&UserID=" & UserID & "';"" style='cursor:hand;'>"
    Response.Write "</td></tr>"
    Response.Write "</table>"
    Response.Write "</form>"
    Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个" & tempname, True)
    Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
    Response.Write "<tr class='tdbg'><td width='80' align='right'><strong>" & tempname & "搜索：</strong></td>"
    Response.Write "<td><table border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "<form method='Get' name='SearchForm' action='Admin_SpaceManage.asp'>"
    Response.Write "<input name='Action' type='hidden' id='Action' value='" & Action & "'>"
    Response.Write "<input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
    Response.Write "<tr><td height='28' align='center'>"
    Response.Write "<select name='Field' size='1'><option value='name' selected>名称</option><option value='address'>地址</option><option value='Phone'>电话</option><option value='intro'>简介</option></select>"
    Response.Write "<input type='text' name='keyword' size='20' value='"
    If Keyword <> "" Then
        Response.Write Keyword
    Else
        Response.Write "关键字"
    End If
    Response.Write "' maxlength='50'>"
    Response.Write "<input type='submit' name='Submit' value='搜索'>"
    Response.Write "</td></tr></form></table></td></tr></table>"
End Sub

Sub Add()
    Dim rsUser, rsBlog, rsBlogClass, UName
    If UserID = 0 Then
        Call main
        Exit Sub
    End If
    Set rsUser = Conn.Execute("select Top 1 UserName,Blog from PE_User Where UserID=" & UserID)
    If rsUser.BOF And rsUser.EOF Then
        Call main
    Else
        UName = rsUser("UserName")
        Set rsBlog = Conn.Execute("select Top 1 * from PE_Space Where Type=1 and Passed=" & PE_True & " and UserID=" & UserID)
        If rsBlog.BOF And rsBlog.EOF Then
            Call PopCalendarInit
            Response.Write "<form method='post' action='Admin_SpaceManage.asp' name='myform' onsubmit='javascript:return CheckInput();'>"
            Response.Write "  <table width='600' border='0' align='center' cellpadding='2' cellspacing='1' class='border' >"
            Response.Write "    <tr class='title'> "
            Response.Write "      <td height='22' colspan='2'> <div align='center'><strong>[<font color=red>" & rsUser("UserName") & "</font>] 新 增 聚 合 空 间</strong></div></td>"
            Response.Write "    </tr>"
            Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>空间名称：</strong><input name='BlogName' type='text' size='20' maxlength='20'> <font color='#FF0000'>*</font></td></tr>"
            Response.Write "  <tr class='tdbg'><td colspan='2'><table><tr><td>&nbsp;<strong>空间首页<br>&nbsp;显示项目：</strong></td><td>"
            Set rsBlogClass = Conn.Execute("select * from PE_Channel Where Disabled=" & PE_False & " and ModuleType>0 and ModuleType<4 order by OrderID")
            Do While Not rsBlogClass.EOF
                Response.Write "<input type='checkbox' name='Showitem' value='" & rsBlogClass("ChannelID") & "' checked>我在" & rsBlogClass("ChannelName") & "频道发表的作品<br>"
                rsBlogClass.MoveNext
            Loop
            Response.Write "</td></tr></table></td></tr><tr class='tdbg'>"
            Response.Write "    <td width='300' class='tdbg'>&nbsp;<strong>分类：</strong><select name='BlogType'>" & GetKingOpti(0) & "</select></td>"
            Response.Write "    <td rowspan='9 align='center' valign='top' class='tdbg'>"
            Response.Write "        <table width='180' height='200' border='1'>"
            Response.Write "            <tr><td width='100%' align='center'><img id='showphoto' src='" & InstallDir & "Space/default.gif' width='150' height='172'></td></tr>"
            Response.Write "        </table>"
            Response.Write "        <input name='Photo' type='text' size='25'><strong>：照 片 地 址</strong><br><iframe style='top:2px' ID='uploadPhoto' src='Upload.asp?dialogtype=AdminBlogPic&Uname=" & UName & "' frameborder=0 scrolling=no width='285' height='25'></iframe>"
            Response.Write "     </td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>日期：</strong><input name='BirthDay' type='text' size='20' maxlength='20' value='" & FormatDateTime(Date, 2) & "' maxlength='20'><a style='cursor:hand;' onClick='PopCalendar.show(document.myform.BirthDay, ""yyyy-mm-dd"", null, null, null, ""11"");'><img src='Images/Calendar.gif' border='0' Style='Padding-Top:10px' align='absmiddle'></a></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>地址：</strong><input name='Address' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>电话：</strong><input name='Tel' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>传真：</strong><input name='Fax' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>单位：</strong><input name='Company' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>部门：</strong><input name='Department' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>邮编：</strong><input name='ZipCode' type='text' size='20' maxlength='20'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>ＱＱ：</strong><input name='QQ' type='text'></td></tr>"
            Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>邮件：</strong><input name='Email' type='text' size='20' maxlength='20'></td><td><strong> 主页：</strong><input name='HomePage' type='text'></td></tr>"
            Response.Write "  <tr class='tdbg'> "
            Response.Write "    <td colspan='2'>&nbsp;<strong>简介</strong>↓<br>"
            Response.Write "      <textarea name='Intro' id='Intro' cols='72' rows='9' style='display:none'></textarea>"
            Response.Write "      <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Intro' frameborder='1' scrolling='no' width='550' height='300' ></iframe>"
            Response.Write "    </td>"
            Response.Write "  </tr>"
            Response.Write "  <tr>"
            Response.Write "  <td height='40' colspan='2' align='center' class='tdbg'>"
            Response.Write "    <input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
            Response.Write "    <input name='addtype' type='hidden' id='addtype' value=1>"
            Response.Write "    <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
            Response.Write "    <input  type='submit' name='Submit' value=' 添 加 ' style='cursor:hand;'>&nbsp;<input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_SpaceManage.asp';"" style='cursor:hand;'></td>"
            Response.Write "  </tr>"
            Response.Write "</table></form>"
        Else
            Call PopCalendarInit
            Response.Write "<form method='post' action='Admin_SpaceManage.asp' name='myform' onsubmit='javascript:return CheckInput();'>"
            Response.Write "  <table width='600' border='0' align='center' cellpadding='2' cellspacing='1' class='border' >"
            Response.Write "    <tr class='title'> "
            Response.Write "      <td height='22' colspan='2'> <div align='center'><strong>[<font color=red>" & rsUser("UserName") & "</font>] 新 增 聚 合 空 间 模 块</strong></div></td>"
            Response.Write "    </tr>"
            Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>模块名称：</strong><input name='BlogName' type='text' size='20' maxlength='20'> <font color='#FF0000'>*</font></td></tr>"
            Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>模块类型：</strong><select name='addtype' onChange=""changemode()""><option value=2>外部RSS数据</option><option value=3>我的日志</option><option value=4>我的音乐</option><option value=5>我的图书</option><option value=6>我的图片</option><option value=7>我的连接</option></select></td></tr>"
            Response.Write "<tbody id='url' style='display:'>"
            Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>ＲＳＳ地址：</strong><input name='LinkUrl' type='text' size='67' maxlength='100' value='http://'> <font color='#FF0000'>* RSS来源地址</font></td></tr></tbody>"
            Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>显示条数：</strong><input name='ListNum' type='text' size='2' maxlength='2' value='10'> <font color='#FF0000'>* 前台显示条数</font></td></tr>"
            Response.Write "  <tr class='tdbg'> "
            Response.Write "    <td colspan='2'>&nbsp;<strong>简介</strong>↓<br>"
            Response.Write "      <textarea name='Intro' id='Intro' cols='72' rows='9' style='display:none'></textarea>"
            Response.Write "      <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Intro' frameborder='1' scrolling='no' width='550' height='300' ></iframe>"
            Response.Write "    </td>"
            Response.Write "  </tr>"
            Response.Write "  <tr>"
            Response.Write "  <td height='40' colspan='2' align='center' class='tdbg'>"
            Response.Write "    <input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
            Response.Write "    <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
            Response.Write "    <input  type='submit' name='Submit' value=' 添 加 ' style='cursor:hand;'>&nbsp;<input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_SpaceManage.asp';"" style='cursor:hand;'></td>"
            Response.Write "  </tr>"
            Response.Write "</table></form>"
       End If
       Set rsBlog = Nothing
    End If
    Set rsUser = Nothing
End Sub

Sub Modify()
    Dim BlogID
    Dim rsBlog, rsBlogClass, sqlBlog, rsUser, UName
    BlogID = PE_CLng(Trim(Request("ID")))
    If BlogID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的聚合空间</li>"
        Exit Sub
    End If
    sqlBlog = "Select * from PE_Space where ID=" & BlogID
    Set rsBlog = Server.CreateObject("Adodb.RecordSet")
    rsBlog.Open sqlBlog, Conn, 1, 3
    If rsBlog.BOF And rsBlog.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>不存在此聚合空间！</li>"
    Else
        Set rsUser = Conn.Execute("select Top 1 UserName from PE_User Where UserID=" & rsBlog("UserID"))
        If rsUser.BOF And rsUser.EOF Then
            Call main
        Else
            If rsBlog("type") > 1 Then
                Response.Write "<form method='post' action='Admin_SpaceManage.asp' name='myform' onsubmit='return CheckInput();'>"
                Response.Write "  <table width='600' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
                Response.Write "    <tr class='title'> "
                Response.Write "      <td height='22' colspan='2'> <div align='center'><font size='2'><strong>修 改 聚 合 空 间 模 块</strong></font></div></td>"
                Response.Write "    </tr>"
                Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>模块名称：</strong><input name='BlogName' type='text' size='20' value='" & rsBlog("Name") & "'><font color='#FF0000'>*</font></td></tr>"
                Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>模块类型：</strong><select name='addtype' onChange=""changemode()""><option value=2"
                If rsBlog("type") = 2 Then Response.Write " selected"
                Response.Write ">外部RSS数据</option><option value=3"
                If rsBlog("type") = 3 Then Response.Write " selected"
                Response.Write ">我的日志</option><option value=4"
                If rsBlog("type") = 4 Then Response.Write " selected"
                Response.Write ">我的音乐</option><option value=5"
                If rsBlog("type") = 5 Then Response.Write " selected"
                Response.Write ">我的图书</option><option value=6"
                If rsBlog("type") = 6 Then Response.Write " selected"
                Response.Write ">我的图片</option><option value=7"
                If rsBlog("type") = 7 Then Response.Write " selected"
                Response.Write ">我的连接</option></select></td></tr>"
                If rsBlog("type") = 2 Then
                    Response.Write "<tbody id='url' style='display:'>"
                Else
                    Response.Write "<tbody id='url' style='display:none'>"
                End If
                Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>ＲＳＳ地址：</strong><input name='LinkUrl' type='text' size='67' maxlength='100' value='" & rsBlog("LinkUrl") & "'> <font color='#FF0000'>* RSS来源地址</font></td></tr></tbody>"
                Response.Write "  <tr class='tdbg'><td colspan='2'>&nbsp;<strong>显示条数：</strong><input name='ListNum' type='text' size='2' maxlength='2' value='" & rsBlog("ListNum") & "'> <font color='#FF0000'>* 前台显示条数</font></td></tr>"
                Response.Write "  <tr class='tdbg'> "
                Response.Write "    <td colspan='2'>&nbsp;<strong>简介</strong>↓<br>"
                Response.Write "      <textarea name='Intro' cols='72' rows='9' style='display:none'>"
                If Trim(rsBlog("Intro") & "") <> "" Then Response.Write Server.HTMLEncode(rsBlog("Intro"))