user_space_code.asp

个人网站比较简短

<!--#include file="CommonCode.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Dim oldKInd

Sub Execute()
    MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))

    If MaxPerPage <= 0 Then MaxPerPage = 10
       
    FileName = "User_Space.asp?Action=" & Action
    If MaxPerPage > 0 Then strFileName = FileName & "&MaxPerPage=" & MaxPerPage
    If Keyword <> "" Then strFileName = FileName & "&keyword=" & Keyword

    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    If Action = "Template" Then
        Response.Write "function changetemplate(fname){" & vbCrLf
        Response.Write "  var curl = 'User_Space.asp?action=CTemplate&fname=' + fname;" & vbCrLf
        Response.Write "  if(confirm('应用“' + fname + '”到您的空间？')){;" & vbCrLf
        Response.Write "      window.location.href=curl;" & vbCrLf
        Response.Write "  }" & vbCrLf
        Response.Write "}" & vbCrLf
    Else
        Response.Write "function CheckInput(){" & vbCrLf
        Response.Write "  if(document.myform.BlogName.value==''){" & vbCrLf
        Response.Write "      alert('名称不能为空！');" & vbCrLf
        Response.Write "      document.myform.BlogName.focus();" & vbCrLf
        Response.Write "      return false;" & vbCrLf
        Response.Write "  }" & vbCrLf
        Response.Write "  document.myform.Intro.value=editor.HtmlEdit.document.body.innerHTML;" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "function changemode(){" & vbCrLf
        Response.Write "    var dbname=document.myform.addtype.value;" & vbCrLf
        Response.Write "    if(dbname=='2'){" & vbCrLf
        Response.Write "        url.style.display='';" & vbCrLf
        Response.Write "    }else{" & vbCrLf
        Response.Write "        url.style.display='none';" & vbCrLf
        Response.Write "    }" & vbCrLf
        Response.Write "}" & vbCrLf
    End If
    Response.Write "</script>" & vbCrLf

    If Left(LCase(Action), 5) = "order" Then
        Call SetStat
    Else
        Select Case Action
        Case "Add", "AddRss"
            Call Add
        Case "Modify"
            Call Modify
        Case "SaveAdd", "SaveModify"
            Call SaveBlog
        Case "Del"
            Call Del
        Case "Template"
            Call Template
        Case "CTemplate"
            Call CTemplate
        Case Else
            Call main
        End Select
    End If
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If
End Sub

Sub main()
    Dim rsBlogList, sql, rsuserblog, usespacepass
    If Request("page") <> "" Then
        CurrentPage = CInt(Request("page"))
    Else
        CurrentPage = 1
    End If
    Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
    Response.Write "    <form name='myform' method='Post' action='User_Space.asp'>"
    Response.Write "     <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
    Response.Write "          <tr class='title' height='22' align='center'> "
    Response.Write "            <td width='25'><strong>ID</strong></td>"
    Response.Write "            <td width='120'><strong>分类</strong></td>"
    Response.Write "            <td><strong>名称</strong></td>"
    Response.Write "            <td width='100'><strong>创建日期</strong></td>"
    Response.Write "            <td width='70'><strong>当前状态</strong></td>"
    Response.Write "            <td width='70'><strong>管理操作</strong></td>"
    Response.Write "            <td width='70'><strong>排 序</strong></td>"
    Response.Write "          </tr>"

    sql = "select * from PE_Space Where UserID=" & UserID & " order by OrderID"
    Set rsBlogList = Server.CreateObject("ADODB.Recordset")
    rsBlogList.Open sql, Conn, 1, 1
    If rsBlogList.BOF And rsBlogList.EOF Then
        totalPut = 0
        Set rsuserblog = Conn.Execute("Select Blog From PE_User Where UserID=" & UserID)
        Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br><a href='User_Space.asp?Action=Add'>立即申请开通我的聚合空间,</a><br><br></td></tr>"
    Else

        totalPut = rsBlogList.RecordCount
        If CurrentPage < 1 Then
            CurrentPage = 1
        End If
        If (CurrentPage - 1) * MaxPerPage > totalPut Then
            If (totalPut Mod MaxPerPage) = 0 Then
                CurrentPage = totalPut \ MaxPerPage
            Else
                CurrentPage = totalPut \ MaxPerPage + 1
            End If
        End If
        If CurrentPage > 1 Then
            If (CurrentPage - 1) * MaxPerPage < totalPut Then
                rsBlogList.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If
        Dim BlogNum
        Do While Not rsBlogList.EOF
            If rsBlogList("Type") < 2 Then
                If rsBlogList("Passed") = True Then usespacepass = True
                Response.Write "  <tr align='center' bgcolor='#ffbbbb' onmouseout=""this.style.backgroundColor='#ffbbbb'"" onmouseover=""this.style.backgroundColor='#bbbbbb'"">"
            Else
                Response.Write "      <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            End If
            Response.Write "<td align='center'>" & rsBlogList("ID") & "</td>"
            Response.Write "<td align='center'>"
            If rsBlogList("Type") < 2 Then Response.Write GetKingName(rsBlogList("ClassID"))
            Response.Write "</td><td>" & rsBlogList("Name") & "</td>"
            Response.Write "<td align='center'>" & FormatDateTime(rsBlogList("BirthDay"), 1) & "</td>"
            Response.Write "<td align='center'>"
            If usespacepass = True Then
                If rsBlogList("Passed") = True Then
                    Response.Write "<font color=""green"">√</font>"
                Else
                    Response.Write "<font color=""red"">×</font>"
                End If
                If rsBlogList("onTop") = True Then
                    Response.Write "&nbsp;<font color=""blue"">固</font>"
                Else
                    Response.Write "&nbsp;&nbsp;&nbsp;"
                End If
                If rsBlogList("IsElite") = True Then
                    Response.Write "&nbsp;<font color=""green"">荐</font>"
                Else
                    Response.Write "&nbsp;&nbsp;&nbsp;"
                End If
            Else
                Response.Write "审核中..."
            End If
            Response.Write "</td><td align='center'>"
            If rsBlogList("Type") < 2 Then
                Response.Write "<a href='User_Space.asp?Action=Modify&ID=" & rsBlogList("ID") & "'>设置空间</a>&nbsp;"
                Response.Write "&nbsp;</td><td></td>"
            Else
                Response.Write "<a href='User_Space.asp?Action=Modify&ID=" & rsBlogList("ID") & "'>修改</a>&nbsp;"
                Response.Write "&nbsp;<a href='User_Space.asp?Action=Del&ID=" & rsBlogList("ID") & "'>删除</a></td>"
                Response.Write "<td><input name='OrderID" & rsBlogList("ID") & "' type='text' id='OrderID" & rsBlogList("ID") & "' value='" & rsBlogList("OrderID") & "' size='4' maxlength='4' style='text-align:center'><input type='submit' name='Submit' value='修改' onClick=""document.myform.Action.value='order|" & rsBlogList("ID") & "'""></td>"
            End If
            Response.Write "</tr>"
            BlogNum = BlogNum + 1
            If BlogNum >= MaxPerPage Then Exit Do
            rsBlogList.MoveNext
        Loop
    End If
    rsBlogList.Close
    Set rsBlogList = Nothing
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "    <input name='Action' type='hidden' id='Action' value=''>"
    Response.Write "</form></tr></table>"
    If totalPut > 0 Then
        Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个聚合空间", True)
    End If
If usespacepass = True Then
    '显示快速操作连接
    Response.Write "<br><table align='center'><tr align='center' valign='top'><td width='80'><a href='User_Space.asp?Action=Add'><img src='images/soft_add.gif' border='0'><br>填加栏目</a></td>"
    Dim rsItem
    Set rsItem = Conn.Execute("select ID,Name,Type from PE_Space where (Type>=3 and Type<=7) and Passed=" & PE_True & " and UserID=" & UserID & " order by Type desc")
    Do While Not rsItem.EOF
        Select Case rsItem("Type")
        Case 3
            Response.Write "<td width='80'><a href='User_SpaceDiary.asp?Action=Add&ID=" & rsItem("ID") & "'><img src='images/article_add.gif' border='0'><br>新增" & rsItem("Name") & "</a></td>"
        Case 4
            Response.Write "<td width='80'><a href='User_SpaceMusic.asp?Action=Add&ID=" & rsItem("ID") & "'><img src='images/article_add.gif' border='0'><br>新增" & rsItem("Name") & "</a></td>"
        Case 5
            Response.Write "<td width='80'><a href='User_SpaceBook.asp?Action=Add&ID=" & rsItem("ID") & "'><img src='images/article_add.gif' border='0'><br>新增" & rsItem("Name") & "</a></td>"
        Case 6
            Response.Write "<td width='80'><a href='User_SpacePhoto.asp?Action=Add&ID=" & rsItem("ID") & "'><img src='images/photo_add.gif' border='0'><br>新增" & rsItem("Name") & "</a></td>"
        Case 7
            Response.Write "<td width='80'><a href='User_SpaceLink.asp?Action=Add&ID=" & rsItem("ID") & "'><img src='images/article_add.gif' border='0'><br>新增" & rsItem("Name") & "</a></td>"
        End Select
        rsItem.MoveNext
    Loop
    Set rsItem = Nothing
    Response.Write "</tr></table>"
    '取得用户目录大小
    Dim ft, foldersize, strSize, displaysize, usize, D2, spacename
    usize = UserSetting(27)
    spacename = Replace(LCase(UserName & UserID), ".", "")

    If fso.FolderExists(Server.MapPath(InstallDir & "Space/" & spacename & "/")) Then
        Set ft = fso.GetFolder(Server.MapPath(InstallDir & "Space/" & spacename & "/"))
        foldersize = ft.size
        If foldersize = 0 Then foldersize = 1
        displaysize = foldersize / 1048576
        If displaysize < 1 Then
            D2 = 1
        Else
            D2 = Int((displaysize / usize) * 300)
            If D2 > 300 Then D2 = 300
        End If
        strSize = foldersize & "&nbsp;Byte"
        If foldersize > 1024 Then
           foldersize = (foldersize / 1024)
           strSize = FormatNumber(foldersize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;KB"
        End If
        If foldersize > 1024 Then
           foldersize = (foldersize / 1024)
           strSize = FormatNumber(foldersize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;MB"
        End If
        If foldersize > 1024 Then
           foldersize = (SpaceSize / 1024)
           strSize = FormatNumber(foldersize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;GB"
        End If
        Set ft = Nothing
        Response.Write "<br><div align='center'>您已经使用了" & usize & "M空间中的:" & strSize & "<div style=""border: 1px solid #d2d3d9;width: 300px;""><div style=""float: left;width: " & D2 & "px;background:#a2ffa9;""></div></div></div>"
    End If