'————————–删除友情链接—————————-
    ElseIf Request.Form("whatdo") = "DelLink" Then
        LinkName = conn.Execute ("select link_Name from blog_Links where link_ID="&CheckStr(Request.Form("ALinkID")))(0)
        conn.Execute ("Delete * from blog_Links where link_ID="&CheckStr(Request.Form("ALinkID")))
        Session(CookieName&"_ShowMsg") = True
        Session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"<span style=""color:#900"">“"&LinkName&"”</span> 删除成功!"
        Bloglinks(2)
        PostLink
        RedirectUrl("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.Form("page"))

ElseIf Request.Form("whatdo") = "DelLinks" Then
        dim LinksID, PartLinks, LinksNum
        LinksID = Request.Form("checklinkID")
        PartLinks = split(LinksID, ", ")
        if int(ubound(PartLinks)) > 0 then
           for LinksNum = 0 to ubound(PartLinks)
               conn.execute("delete * from blog_Links where link_ID="&PartLinks(LinksNum))
           next
        Session(CookieName&"_ShowMsg") = True
        Session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"共删除"&ubound(PartLinks)+1&"条信息，请返回！"
        RedirectUrl("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.Form("page"))
        else
        Session(CookieName&"_ShowMsg") = True
        Session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"您没有选择欲删除的链接，请返回"
        RedirectUrl("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.Form("page"))
        end if