saveuser.asp

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

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

<%
if isadmin() = false then
	response.redirect "noadmin.asp"
end if
%>

<%
dim cdomain
cdomain = trim(request("cdomain"))


dim ei
set ei = Application("em")
'-----------------------------------------

i = ei.GetUsersCount



if trim(request("mode")) = "del" then

	do while i >= 0
		if trim(request("check" & i)) <> "" then
			ei.DelUserByIndex i
		end if
	
	    i = i - 1
	loop

elseif trim(request("mode")) = "forbid" then

	do while i >= 0
		if trim(request("check" & i)) <> "" then
			ei.ForbidUserByIndex i, TRUE
		end if
	
	    i = i - 1
	loop

elseif trim(request("mode")) = "clear" then

	do while i >= 0
		if trim(request("check" & i)) <> "" then
			ei.ForbidUserByIndex i, FALSE
		end if
	
	    i = i - 1
	loop

end if


set ei = nothing


searchtext = trim(request("searchtext"))
page = trim(request("page"))

response.redirect "showuser.asp?" & getGRSN() & "&cdomain=" & cdomain & "&page=" & page & "&searchtext=" & searchtext
%>