del.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<%	dim opFlag,Number,vnumber,rs
	'设置操作对象
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3

	opFlag=Request("opFlag")
	Number=Cint(Request("Number"))
	'选择操作程序
	select case opFlag
		case "cmdDel"
			rs.Open(Session("SQL"))
			rs.Move Number
			vnumber=rs("vnumber")
			Session("conn").Execute("DELETE  from bookout where vnumber='" & vnumber & "'")
	end select
	rs.close
	set rs=nothing
	'重定向
	response.redirect "../dbdisp/disp.asp?opFlag=cmdDel&Number=" & Number

%>