PJblog实现批量删除友情链接功能

一共分两步完成。
第一步,找到control/Action.asp,找到代码

程序代码 程序代码
'————————–删除友情链接—————————-
    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

第二步,下载文件.覆盖原文件即可.
下载文件 common/c_link.asp 
 

点赞 (0)

发表评论

电子邮件地址不会被公开。 必填项已用*标注