matrix3_kill_do.asp

这是ASP的OA

<!-- #include file="const.asp" -->
<%
dim admin,ulevel,rs,sql,kill,action,id
call opendb()
checkadmin()
action=trim(request("action"))
kill=trim1(request("kill"))
if action="kill" then
	if kill<>"" then
		sql="select * from m3_kill where killstr='"&kill&"'"
		set rs=server.createobject("adodb.recordset")
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
			response.write"帐号或IP已在封杀列表中, &nbsp;&nbsp;<a href=""matrix3_killlist.asp"">后退</a>"
		else
			rs.addnew
			rs("killstr")=kill
			rs("admin")=request.Cookies("matrix3")("matrix3_name")
			rs("ktime")=now()
			rs.update
			response.write"成功封杀 "&kill&" ! &nbsp;&nbsp;<a href=""matrix3_killlist.asp"">返回</a>"
		end if
		rs.close
		set rs=nothing
	else
		response.write"无效的帐号或IP , &nbsp;&nbsp;<a href=""matrix3_killlist.asp"">后退</a>"
	end if
elseif action="free" then
	id=trim1(request("id"))
	if id<>"" then
		sql="delete from m3_kill where id="&id&""
		conn.execute(sql)
		response.write"解封成功 ，&nbsp;&nbsp;<a href=""matrix3_killlist.asp"">返回</a>"
	else
		response.write"无效的操作 ,&nbsp;&nbsp;<a href=""matrix3_killlist.asp"">后退</a>"
	end if
else
	response.write"缺少参数 .&nbsp;&nbsp;<a href=""matrix3_killlist.asp"">后退</a>"
end if
call closedb()
%>