1、Admin/KS.GuestBoard.asp，文件最后部分

'清空版面帖子
    Sub DelTopic()
          Dim GuestBoardID:GuestBoardID = KS.ChkClng(KS.G("GuestBoardID"))
          Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
    RS.Open "Select PostTable,id From KS_GuestBook Where BoardID=" & GuestBoardID,conn,1,1
    Do While Not RS.Eof
      Conn.Execute("Delete From " & RS(0) & " Where TopicID=" & RS(1))
      RS.MoveNext
    Loop
    Conn.Execute ("Delete From KS_GuestBook Where BoardID=" & GuestBoardID)
    Conn.Execute ("Delete From KS_GuestCategory Where BoardID =" & GuestBoardID)
    RS.Close : Set RS=Nothing
    Response.Write ("<script>alert('恭喜,该版面数据已被清空!');location.href='KS.GuestBoard.asp';</script>")
    End Sub

红色删除就不会清空主题分类

2、批量删除后，避免误删，正式版本增加了回收站功能，帖子都在回收站中，在回收站里清空就可以

3、不知道是的是哪个地方的？看不明白