nb_delete.asp

蓝芒3.0A最新所有功能完整破解版

<!--#include file="passinc.asp" -->

<%
dim nb
set nb = server.createobject("easymail.NoteBooksManager")
nb.Load Session("wem")

mdel = trim(Request("mdel"))

dim isedit
isedit = false

if mdel = "1" then
	themax = nb.count

	do while themax >= 0
		if trim(request("check" & themax)) <> "" then
			md = trim(request("check" & themax))

			if IsNumeric(md) = true then
				nb.DeleteByIndex CInt(md)
				isedit = true
			end if
		end if

	    themax = themax - 1
	loop
else
	if trim(request("id")) <> "" then
		md = trim(request("id"))

		if IsNumeric(md) = true then
			nb.DeleteByIndex CInt(md)
			isedit = true
		end if
	end if
end if

if isedit = true then
	nb.Save
end if

set nb = nothing
response.redirect "nb_brow.asp?" & getGRSN() & "&page=" & trim(request("thispage"))
%>