admin_spacemanage.asp

个人网站比较简短

                Response.Write "      </textarea>"
                Response.Write "      <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Intro' frameborder='1' scrolling='no' width='550' height='250' ></iframe>"
                Response.Write "    </td>"
                Response.Write "  </tr>"
                Response.Write "    <tr>"
                Response.Write "      <td colspan='2' align='center' class='tdbg'>"
                Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveModify'>"
                Response.Write "      <input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
                Response.Write "      <input name='addtype' type='hidden' id='addtype' value=0>"
                Response.Write "      <input name='ID' type='hidden' id='ID' value=" & rsBlog("ID") & ">"
                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>"
                Response.Write "</form>"
            Else
                Call PopCalendarInit
                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' maxlength='20' value='" & rsBlog("Name") & "'> <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") & "'"
                    If FoundInArr(rsBlog("LinkUrl"), rsBlogClass("ChannelID"), ",") Then Response.Write " checked"
                    Response.Write ">我在" & rsBlogClass("ChannelName") & "频道发表的作品<br>"
                    rsBlogClass.MoveNext
                Loop
                Response.Write "</td></tr></table></td></tr><tr class='tdbg'>"

                Response.Write "  <tr class='tdbg'> "
                Response.Write "    <td width='300' class='tdbg'>&nbsp;<strong>分类：</strong><select name='BlogType'>" & GetKingOpti(rsBlog("ClassID")) & "</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'>"
                If IsNull(rsBlog("Photo")) Then
                    Response.Write "<img id='showphoto' src='" & InstallDir & "Space/default.gif' width='150' height='172'>"
                Else
                    Response.Write "<img id='showphoto' src='" & rsBlog("Photo") & "' width='150' height='172'>"
                End If
                Response.Write "        </td></tr></table>"
                Response.Write "        <input name='Photo' type='text' size='25' value='" & rsBlog("Photo") & "'><strong>：照 片 地 址</strong><br><iframe style='top:2px' ID='uploadPhoto' src='Upload.asp?dialogtype=AdminBlogPic&Uname=" & rsUser("UserName") & "' 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'  value='" & rsBlog("BirthDay") & "' 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'  value='" & rsBlog("Address") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>电话：</strong><input name='Tel' type='text' value='" & rsBlog("Tel") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>传真：</strong><input name='Fax' type='text' value='" & rsBlog("Fax") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>单位：</strong><input name='Company' type='text' value='" & rsBlog("Company") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>部门：</strong><input name='Department' type='text' value='" & rsBlog("Department") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>邮编：</strong><input name='ZipCode' type='text' value='" & rsBlog("ZipCode") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>ＱＱ：</strong><input name='QQ' type='text' value='" & rsBlog("QQ") & "'></td></tr>"
                Response.Write "  <tr class='tdbg'><td>&nbsp;<strong>邮件：</strong><input name='Email' type='text' value='" & rsBlog("Email") & "'></td><td><strong> 主页：</strong><input name='HomePage' type='text' value='" & rsBlog("HomePage") & "'></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"))
                Response.Write "      </textarea>"
                Response.Write "      <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Intro' frameborder='1' scrolling='no' width='550' height='250' ></iframe>"
                Response.Write "    </td>"
                Response.Write "  </tr>"
                Response.Write "    <tr>"
                Response.Write "      <td colspan='2' align='center' class='tdbg'>"
                Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveModify'>"
                Response.Write "      <input name='addtype' type='hidden' id='addtype' value=1>"
                Response.Write "      <input name='UserID' type='hidden' id='UserID' value=" & UserID & ">"
                Response.Write "      <input name='ID' type='hidden' id='ID' value=" & rsBlog("ID") & ">"
                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>"
                Response.Write "</form>"
            End If
        End If
    End If
    rsBlog.Close
    Set rsBlog = Nothing
End Sub

Sub SaveAdd()
    Dim BlogName, Birthday, Address, Tel, Fax, Company, Department, ZipCode, Homepage, Email, QQ, Intro, Photo, BlogType, LinkUrl
    Dim rsBlog, sqlBlog, BlogID, isFirst, addtype, listnum, UserName
    isFirst = False

    BlogName = Trim(Request.Form("BlogName"))
    If BlogName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>空间名称不能为空！</li>"
    Else
        BlogName = ReplaceBadChar(BlogName)
    End If
    UserID = PE_CLng(Trim(Request.Form("UserID")))
    If UserID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>未指定用户！</li>"
    End If

    addtype = PE_CLng(Trim(Request.Form("addtype")))
    If addtype = 0 Or addtype = 2 Then
        addtype = 2
        LinkUrl = Trim(Request("LinkUrl"))
        If LinkUrl = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>连接地址不能为空！</li>"
        End If
    ElseIf addtype = 1 Then
        LinkUrl = Trim(Request.Form("Showitem"))
        Birthday = Trim(Request.Form("BirthDay"))
        Photo = Trim(Request.Form("Photo"))
        Address = Trim(Request.Form("Address"))
        Tel = Trim(Request.Form("Tel"))
        Fax = Trim(Request.Form("Fax"))
        Company = Trim(Request.Form("Company"))
        Department = Trim(Request.Form("Department"))
        ZipCode = Trim(Request.Form("ZipCode"))
        Homepage = Trim(Request.Form("HomePage"))
        Email = Trim(Request.Form("Email"))
        QQ = Trim(Request.Form("QQ"))
    End If
    Intro = Trim(Request.Form("Intro"))
    listnum = PE_CLng(Trim(Request.Form("ListNum")))
    If listnum = 0 Then listnum = 10

    BlogType = PE_CLng(Trim(Request.Form("BlogType")))
    If addtype = 1 Then
        Set rsBlog = Conn.Execute("Select Top 1 UserID from PE_Space where UserID=" & UserID & " and Type=1")
        If rsBlog.BOF And rsBlog.EOF Then
            Dim blogdir
            Set blogdir = Conn.Execute("Select Top 1 UserName from PE_User where UserID=" & UserID)
            If Not (blogdir.BOF And blogdir.EOF) Then
                isFirst = True
                UserName = blogdir("UserName")
            Else
                FoundErr = True
                ErrMsg = ErrMsg & "<li>未指定用户！</li>"
            End If
            Set blogdir = Nothing
        End If
    End If

    If FoundErr = True Then
        Exit Sub
    End If

    Set rsBlog = Server.CreateObject("Adodb.RecordSet")
    sqlBlog = "Select * from PE_Space"
    rsBlog.Open sqlBlog, Conn, 1, 3
    BlogID = GetNewID("PE_Space", "ID")
    rsBlog.addnew
        rsBlog("ID") = BlogID
        rsBlog("UserID") = UserID
        If BlogType > 0 Then rsBlog("ClassID") = BlogType
        rsBlog("Name") = BlogName
        If addtype = 1 And Birthday <> "" Then
            rsBlog("BirthDay") = Birthday
        Else
            rsBlog("BirthDay") = Now()
        End If
        If addtype = 1 Then
            rsBlog("Address") = Address
            rsBlog("Tel") = Tel
            rsBlog("Fax") = Fax
            rsBlog("Company") = Company
            rsBlog("Department") = Department
            rsBlog("ZipCode") = ZipCode
            rsBlog("HomePage") = Homepage
            rsBlog("Email") = Email
            rsBlog("QQ") = PE_CLng(QQ)
            If Photo <> "" Then rsBlog("Photo") = Photo
        End If
        rsBlog("Intro") = Intro
        If Trim(LinkUrl & "") = "" Then
           rsBlog("LinkUrl") = Null
        Else
           rsBlog("LinkUrl") = LinkUrl
        End If
        If isFirst = True Then
            rsBlog("Type") = 1
            rsBlog("OrderID") = 1
        Else
            rsBlog("Type") = addtype
            rsBlog("OrderID") = 2
        End If
        rsBlog("LastUseTime") = Now()
        rsBlog("Passed") = True
        rsBlog("listnum") = listnum
    rsBlog.Update
    rsBlog.Close
    Set rsBlog = Nothing
    If addtype = 1 And isFirst = True Then
        Conn.Execute ("update PE_User set Blog=" & PE_True & " where UserID=" & UserID)
        Call CreateBlogDir(UserID, UserName)
    End If
    Call CloseConn
    Response.Redirect ComUrl
End Sub

Sub SaveModify()
    Dim BlogName, BlogID, Birthday, Address, Tel, Fax, Company, Department, ZipCode, Homepage, Email, QQ, Intro, Photo, BlogType, LinkUrl
    Dim rsBlog, sqlBlog, addtype, listnum
    BlogName = Trim(Request.Form("BlogName"))
    If BlogName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>空间名称不能为空！</li>"
    End If
    BlogID = Trim(Request.Form("ID"))
    If BlogID <> "" Then
        If InStr(BlogID, ",") > 0 Then
            BlogID = ReplaceBadChar(BlogID)
        Else
            BlogID = PE_CLng(BlogID)
        End If
    Else
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的聚合空间！</li>"
    End If
    addtype = PE_CLng(Trim(Request.Form("addtype")))
    If addtype = 0 Or addtype = 2 Then
        addtype = 2
        LinkUrl = Trim(Request.Form("LinkUrl"))
        If LinkUrl = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>连接地址不能为空！</li>"
        End If
    ElseIf addtype = 1 Then
        LinkUrl = Trim(Request.Form("Showitem"))
        Birthday = Trim(Request.Form("BirthDay"))
        Photo = Trim(Request.Form("Photo"))
        Address = Trim(Request.Form("Address"))
        Tel = Trim(Request.Form("Tel"))
        Fax = Trim(Request.Form("Fax"))
        Company = Trim(Request.Form("Company"))
        Department = Trim(Request.Form("Department"))
        ZipCode = Trim(Request.Form("ZipCode"))
        Homepage = Trim(Request.Form("HomePage"))
        Email = Trim(Request.Form("Email"))
        QQ = Trim(Request.Form("QQ"))