persondelete.asp

很好的OA办公系统

<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
id=request("id")
if id="" then
	response.redirect "person_notebook.asp"
	response.end
end if
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if

set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from personrecord where id="&cstr(id)
rs.open sql,conn,3,2
if not rs.eof and not rs.bof then
	if rs("thisinfousername")<>oabusyusername then
		conn.close
		set rs=nothing
		response.write("<script language=""javascript"">")
		response.write("location.href=""person_notebook.asp"";")
		response.write("</script>")
		response.end
	else
		rs.delete
	end if
end if
conn.close
set rs=nothing
response.redirect "person_notebook.asp"
response.end
%>