message_del.asp

来自「这是ASP的OA」· ASP 代码 · 共 40 行

<!-- #include file="const.asp" -->
<%
call opendb()
checkuser()
dim sql,rs,type1,id
id=nrequest("id")
type1=trim1(request.QueryString("type"))
if id<>"" then
	sql="select owner,valid from m3_message where id="&id&""
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		call closedb()
		response.write"<script>alert('失败：无效的参数');history.back();</script>"
		response.End()
	else
		if rs("owner")<>request.Cookies("matrix3")("matrix3_name") then
			rs.close
			set rs=nothing
			call closedb()
			response.write"<script>alert('您不能删除他人的信件！');history.back();</script>"
			response.End()
		else
			if rs("valid")=1 then
				rs("valid")=0
				response.write"<script>alert('已将该信件转移到垃圾箱！');location.href='message.asp?type="&type1&"';</script>"
			else
				rs.delete
				response.write"<script>alert('删除成功！');location.href='message.asp?type="&type1&"';</script>"
			end if
			rs.update
		end if
	end if
	rs.close
	set rs=nothing	
end if
call closedb()
%>