matrix3_list_action.asp

这是ASP的OA

<!-- #include file="const.asp" -->
<%
dim rs,sql,what,item,turnto,action,lname,lvalue,page
what=request.form("what")
page=trim1(request.QueryString("page"))
lvalue=trim1(request.QueryString("lvalue"))
lname=trim1(request.QueryString("lname"))
action=trim1(request.form("action"))
turnto=nrequest2("turnto")
if what="" then
	what=0
else
	what=cint(what)
end if
call opendb()
checkadmin()
if what=1 then
	'sql="delete from bbs where "&lname&"='"&lvalue&"'"
	'conn.execute(sql)
	'response.write("<script>alert('删除全部资料成功！');location.href='p_resume.asp?page="&page&"';</script >")
	if action="0" then
		if turnto="" then 
			call closedb()
			response.write("<script>alert('请选择要将帖子转移到的论坛！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&lvalue="&lvalue&"';</script >")
			response.End()
		else
			sql="update m3_bbs set FID="&turnto&" where "&lname&"='"&lvalue&"'"
			conn.execute(sql)
			response.write("<script>alert('转移成功！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&&lvalue="&lvalue&"';</script >")
		end if
	else
		sql="delete from m3_bbs where "&lname&"='"&lvalue&"'"
		conn.execute(sql)
		response.write("<script>alert('删除成功！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&&lvalue="&lvalue&"';</script >")
	end if
else
	if action="0" then
		if turnto="" then 
			response.write("<script>alert('请选择要将帖子转移到的论坛！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&lvalue="&lvalue&"';</script >")
		end if
		for each item in request("id")
			sql="update m3_bbs set FID="&turnto&" where id="&item&""
			conn.execute(sql)
		next
		response.write("<script>alert('转移成功！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&lvalue="&lvalue&"';</script >")
	else
		for each item in request("id")
			sql="delete from m3_bbs where id="&item&""
			conn.execute(sql)
		next
		response.write("<script>alert('删除成功！');location.href='matrix3_list.asp?page="&page&"&lname="&lname&"&lvalue="&lvalue&"';</script >")
	end if
end if
call closedb()
%>