全方面的OA管理程序代码

				
				
				
				
				
				
				
				
				
				
								ID=trim(request("ID"))
				if request("cmdUp")"" and isnumeric(ID) then
					oConn.execute "update tblDoc set isOld=1 where ID="& ID
					response.write "归档处理完成，[返回]"
					response.end
				end if
				
				if request("cmdDelete")"" and isnumeric(ID) then
					oConn.execute "delete tblDocFinal where DocID="& ID
					oConn.execute "delete tblDocSuggest where DocID="& ID
					oConn.execute "Delete tblDoc where ID="& ID
					response.write "公文已经删除！[返回]"
					response.end
				end if
				
				%>